Помогите пожалуйста разобраться с задачей... Что-то я не пойму, что тут делать нужно.
Для заданной матрицы 3х3 получить 3 вектора. Пару векторов перемножить векторно и проверить ортогональность векторного произведения одного из сомножителей. Матрица: -2, 2, -2, 3, 0, 0 0, -1, 1
мисс_граффити
17.11.2006 2:46
и на каком из этапов возникает проблема?
KerK
17.11.2006 3:08
Цитата(мисс_граффити @ 16.11.2006 22:46)
и на каком из этапов возникает проблема?
Непонятно, откуда получить 3 вектора, и какие 2 вектора надо перемножить? ВОбщем реализация задачи меня не пугает, я просто смысла не могу понять.... что делать то нужно ))
KerK
17.11.2006 8:45
спасибо за помощь... разобрался сам.... правда можно спать уже не ложиться
program prg2;
uses crt;
type
A = array [1..3,1..3] of integer;
const
t:a=((-2,2,-2),(3,0,0),(0,-1,1));
var
i,j,e,k:integer;
pr,z,n,summa:integer;
begin
clrscr;
n:=3;
z:=0;
for i:=1to n-1dofor e:=i+1to n dobegin
pr:=0;
summa:=0;
for j:=1to n-1dofor k:=j+1to n dobegin
z:=z+1;
pr:=t[i,z]*(t[i,j]*t[e,k]-t[e,j]*t[i,k]);
summa:=summa+pr;
end;
if (pr=0) thenbegin
writeln('Вектор произведения:');
for z:=1to n do write(t[i,z]:2);
writeln;
for z:=1to n do write(t[e,z]:2);
writeln(' ортогонален');
endelsebegin
writeln('Вектор произведения:');
for z:=1to n do write(t[i,z]:2);
writeln;
for z:=1to n do write(t[e,z]:2);
writeln(' не ортогонален');
end;
end;
readln;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.