07.12.2014, 23:23
|
#10 (permalink)
|
|
Новичок
Регистрация: 02.12.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Что Вы можете сказать об этом? Правильно ли?)))
Цитата:
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[i] := 0;
for i := 1 to 3 do
for j := 1 to 3 do
p[i] := p[i] + a[i, j] * y[j];
for i := 1 to 3 do
f or j := 1 to 3 do
q[i] := p[i] + z[i];
for i := 1 to 3 do
k := 0;
for i := 1 to 3 do k := k + q[i] * p[i];
writeln('k = ', k:2:2);
readln
end.
|
|
|
|