векторы и матрицы, умножение вектора на мптрицу Опции

[Darkmax]

помогите пожалуйста просто горю пора здовать а у мне не получается написать
написать эти проги зарание блогодарен:

1) Ввести число срок и столбцов и заполнить матрицу по спирали примерно так :
1 2 3 4 5 6
20 21 22 23 24 7
19 32 30 34 25 8
18 31 36 35 26 9
17 30 29 28 27 10
16 15 14 13 12 11

2) Заданы два вектора X и Y и матрица А. Найти сумму двух векторов C и D
где С есть произведение вектора X на матрицу А , а вектор D произведения вектора Y на матрицу А. Вычислить произведения вектора на матрицу оформить в виде подпрограммы.

PLIZZZZ HELPPPPP !!!!!

Сообщение отредактировано: Darkmax - 25.11.2004 1:41

[АП]

я не знаю, сто значит умножить вектор на матрицу, но по линейной алгебре я такую прогу делал, и по ней контрольную писал. прода на дельфи

Код

procedure TForm1.Button1Click(Sender: TObject);


procedure  {*}peremnoshit{*};
Begin

k:=0;
 for i:=1 to strtoint(bb.Text) do    {строки 1}

 for l:=1 to strtoint(aa2.Text) do     {столбцы 2}
 begin
 k:=k+1;
 for j:=1 to strtoint(aa.Text) do  {столбцы 1}
 begin
   s[k]:=s[k]+FloatToStr(matr[j,i])+'*'+FloatToStr(matr2[l,j]);     {ход решения}
   otv[k]:=otv[k]+matr[j,i]*matr2[l,j];                  {реальное умножение}
   if j<strtoint(aa.Text) then s[k]:=s[k]+'+'
   else  s[k]:=s[k]+' | '+inttostr(i)+inttostr(l);


 end;

Исходники заключаем в теги [ code ] [ /code ]

Сообщение отредактировано: volvo - 25.11.2004 11:25