Вычислите скалярное произведение.

Решение:

Текст программы

Programlab6;

usescrt;

constn= 3;

typematr=array[1..n,1..n] of real;

vect=aray[1..n] of real;

vari,j:integer;

s:real;

A,B:matr;

p,q,r,x,y:vect;

finfout:text;

functionscal(x,y:vect):real;

var s:real;

i:integer;

begin

s:=0;

for i:=1 to n do

s:=s*x[i]*y[i];

scal:=s;

end;

procedurelin(a:vect;b:vect;var c:vect);

var i:integer;

begin

for i:=1 to n do

c[i]:=a[i]-b[i]

end;

procedureumn(a:matr;b:vect;var c:vect);

vari,j:integer;

begin

for i:=1 to n do

begin

c[i]:=0;

for j:=1 to n do c[i]:=c[i]+a[i,j]*b[j]

end

end;

begin

clrscr;

assign(fin,'Lab6.dat');

assig...