Найти Произведение Матрицы (5х4) На Вектор (4х1)

  • Автор темы parampampam
  • Дата начала
Статус
Закрыто для дальнейших ответов.
P

parampampam

#1
Найти произведение матрицы (5х4) на вектор (4х1) для любых заданных вещественных компонентов матрицы и вектора.
Код:
const
m=5;
n=4;
type
arr1=array[1..m,1..n] of real;
arr2=array[1..n] of real;
arr3=array[1..m] of real;
var
a:arr1;
b:arr2;
c:arr3;
i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
a[i,j]:=strtofloat(str1.Cells[j-1,i-1]);
for i:=1 to n do
b[i]:=strtofloat(Memo1.Lines[i-1]);
for i:=1 to m do
for j:=1 to n do
c[i]:=c[i]+a[i,j]*b[j];
for i:=1 to 5 do
Memo2.Lines.Add(floattostr(c[i]));
end;
Нужно с массиву задать какое-то значение,точнее обнулить его.где?
 
Статус
Закрыто для дальнейших ответов.