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

Тема в разделе "Pascal and Delphi", создана пользователем parampampam, 5 апр 2012.

Статус темы:
Закрыта.
  1. parampampam

    parampampam Гость

    Найти произведение матрицы (5х4) на вектор (4х1) для любых заданных вещественных компонентов матрицы и вектора.
    Код (Delphi):
    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;
    Нужно с массиву задать какое-то значение,точнее обнулить его.где?
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    перед циклом с присвоением)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей