Векторное произведение Опции

[Ivon]

Не хотел забивать вам голову таким пустяшным заданием, но обстаятельства повернулись чем-то другим...

Даны три вектора... найти их векторные произведения. т.е. a*b b*c a*c.

Написать задание смогу, но только с большим кол-ом переменных... помогите или хотя бы намекните

[klem4]

uses crt;
const
   n=2;
   m=3;

var
  coeffs:array[1..n,1..m] of integer;
  i,j:integer;

begin
   clrscr;
   for i:=1 to n do
    for j:=1 to m do
     readln(coeffs[i,j]);

   write('Vect p = ');

   write('i*(',coeffs[1,2]*coeffs[2,3]-coeffs[1,3]*coeffs[2,2],')+');
   write('j*(',coeffs[1,1]*coeffs[2,3]-coeffs[1,3]*coeffs[2,1],')+');
   write('k*(',coeffs[1,1]*coeffs[2,2]-coeffs[2,1]*coeffs[1,2],')');

   readln;
end.

Сообщение отредактировано: klem4 - 5.06.2005 14:06