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

[Dima007]

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

Даны матрицы A,z,y.

   2 4 6         -2         0.5
A= 3 5 2      z=  3      y= 3
   2 4 7          2        -2

k=(Ay+z,Ay)

Помогите пожалуйста)

 

[Daniellos]

1. Скалярное.
2. Я.П.?

 

[Dima007]

Извините, но я не понял, что вы имеете ввиду)
Да, скалярное)

 

[Dima007]

Забыл, Pascal)))

 

[Vladimir_S]

Аналогичная задачка у нас весной уже разбиралась. Попробуйте, взяв ту программу за основу, адаптировать ее к своим данным:
http://www.tehnari.ru/f41/t94960/

 

[Dima007]

Не могли бы Вы помочь мне с этим разобраться?)

 

[Vladimir_S]

Не могли бы Вы помочь мне с этим разобраться?)

Да куда я денусь...

Type
 Vect=array[1..3] of real;
 Matr=Array[1..3,1..3] of real;

Const
 z:Vect=( -2,3, 2);
 y:Vect=(0.5,3,-2);
 a:Matr=((2,4,6),(3,5,2),(2,4,7));

Function Prod(PM:Matr;PV:Vect):Vect;
var
 i,k:Byte;
 M:Vect;
begin
 for i:=1 to 3 do M[i]:=0;
 for i:=1 to 3 do
  for k:=1 to 3 do
   M[i]:=M[i]+PM[i,k]*PV[k];
 Prod:=M;
end;

Function Sums(V1,V2:Vect):Vect;
var
 i:Byte;
begin
 for i:=1 to 3 do Sums[i]:=V1[i]+V2[i];
end;

Function Scal_Prod(V1,V2:Vect):Real;
var
 i:Byte;
 SP:Real;
begin
 SP:=0;
 for i:=1 to 3 do SP:=SP+V1[i]*V2[i];
 Scal_Prod:=SP;
end;

Var
 k:Real;

Begin
 k:=Scal_Prod(Sums(Prod(A,y),z),Prod(A,y));
 Writeln('k = ',k:0:3);
 Readln
End.

 

[Dima007]

Спасибо огромное.

А можно переписать этот код без испльзования процедур?

 

[Vladimir_S]

А можно переписать этот код без использования процедур?

Можно. Но не нужно. А если нужно - то, пожалуйста, самостоятельно.

 

[Dima007]

Что Вы можете сказать об этом? Правильно ли?)))

uses
crt;

type
Vect = array[1..3] of real;
Matr = Array[1..3, 1..3] of real;

const
y: Vect = (0.5, 3, -2);
z: Vect = (-2, 3, 2);
a: Matr = ((2, 4, 6), (3, 5, 2), (2, 4, 7));

var
p, q: vect;
i, j: byte;
k: real;

begin
clrscr;
for i := 1 to 3 do p := 0;
for i := 1 to 3 do
for j := 1 to 3 do
p := p + a[i, j] * y[j];

for i := 1 to 3 do
f or j := 1 to 3 do
q := p + z;

for i := 1 to 3 do
k := 0;
for i := 1 to 3 do k := k + q * p;
writeln('k = ', k:2:2);
readln
end.

 

[Vladimir_S]

Что Вы можете сказать об этом? Правильно ли?)))

Почти. Всё правильно, за исключением вот этого:

for i := 1 to 3 do
f or j := 1 to 3 do
q[i] := p[i] + z[i];

1. Пробел в служебном слове "for" НЕДОПУСТИМ.
2. Этот цикл по j тут вообще ни нафиг не нужен.
Вывод: вторую строку УДАЛИТЬ!