А это не векторное произведение а просто перемножение компонентов двух вектров. Вы бы хоть математику посмотрели. Векторным произведением 2-х векторов является вектор, перпендикулярный 2-м перемножаемым, т.е. [a,b]=с - это правая или левая тройка векторов (в зависимости от знака). А находиться векторное произведение так: Пусть a(a1,a2,a3) и b(b1,b2,b3); c= определитель матрицы ((i, j, k,),(a1,a2,a3),(b1,b2,b3)), где i,j,k -единичные орты вектора. Т.е. мы получим вектор c=c1*i+c2*j+c3*k - это и будет векторное произведение. ;)
А это не векторное произведение а просто перемножение компонентов двух вектров. Вы бы хоть математику посмотрели. Векторным произведением 2-х векторов является вектор, перпендикулярный 2-м перемножаемым, т.е. [a,b]=с - это правая или левая тройка векторов (в зависимости от знака). А находиться векторное произведение так: Пусть a(a1,a2,a3) и b(b1,b2,b3); c= определитель матрицы ((i, j, k,),(a1,a2,a3),(b1,b2,b3)), где i,j,k -единичные орты вектора. Т.е. мы получим вектор c=c1*i+c2*j+c3*k - это и будет векторное произведение. ;)
ну видишь, какой ты умный, вот сам и сделай, это же элементарное задание. а математику я читал, как ты выразился, и что что я не так понял задание, еще не означает, что надо здесь пытаться меня унизить тем, что якобы я не знаю как перемножать векторы.
Автор: klem4 5.06.2005 18:06
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]);