не разобрался в написании программы расчета рисков через StringGrid Delphi

[Rusik1992]

не разобрался в написании программы StringGrid. Вот основное задание: Написать программу которая будет рассчитывать риск на производстве. Есть 4 таблицы, в 1й таблице первая колонка заголовок,2я колонка поле для ввода значений(численное от 0 до 1) пользователем. 2я таблица тоже 1я колонка заголовок, и от 1 до 18-строк, от 1 до 16 столбцов, таблица 3 такая же только от 1 до 11 строк и от 1 до 18 столбцов, таблица 4 точно такая же как и первая, и последняя, результирующая 3 колонки и 20 строк.1я колонка берется из 4й таблици, во вторую колонку рассчитываются значения 1й, 2й и 3й таблици(перемножабтся) и заносятся в 5ю таблицу во вторую колонку, в 3ю колонку перемножаются значения из 5й таблици(1я и 2я колонка 5й таблици). И окончательный результат, нужно все сложить что в 5й таблице в 3м столбце и сумму вывести в какойто компонент.:conf used:

[Rusik1992]

Вот основное задание: Написать программу которая будет рассчитывать риск на производстве. Есть 4 таблицы, в 1й таблице первая колонка заголовок,2я колонка поле для ввода значений(численное от 0 до 1) пользователем. 2я таблица тоже 1я колонка заголовок, и от 1 до 18-строк, от 1 до 16 столбцов, таблица 3 такая же только от 1 до 11 строк и от 1 до 18 столбцов, таблица 4 точно такая же как и первая, и последняя, результирующая 3 колонки и 20 строк.1я колонка берется из 4й таблици, во вторую колонку рассчитываются значения 1й, 2й и 3й таблици(перемножабтся) и заносятся в 5ю таблицу во вторую колонку, в 3ю колонку перемножаются значения из 5й таблици(1я и 2я колонка 5й таблици). И окончательный результат, нужно все сложить что в 5й таблице в 3м столбце и сумму вывести в какойто компонент.
вот код

procedure TMain.Button1Click(Sender: TObject);
var
  i , j : integer;
begin
      n:=m;
      for i:=1 to n do
      for j:=1 to m do
      Begin
        B[i,j]:= StrToFloat(Form2.StringGrid1.Cells[i,j]);
        C[i,j]:= StrToFloat(Form3.StringGrid1.Cells[i,j]);
      End;
      for i:=1 to n do
          Begin
                S[i]:= StrToFloat(Form1.StringGrid1.Cells[1,i]);
                Alfa[i]:= StrToFloat(Form1.StringGrid1.Cells[1,i]);
          End;
      for i:=1 to n do
          Begin
          Sum[i]:=0;
              for j:=1 to m do
                  Begin
                      Sum1:=0;
                      for k:=1 to n do
                        Begin
                              Sum1:=Sum1+C[j,k]*S[k];
                        End;
                        Sum[i]:=Sum[i]+B[i,j]*Sum1;
                  End;
               Sum[i]:=Alfa[i]*Sum[i];
               Form5.StringGrid1.Cells[2,i] := FloatToStr(Sum[i]);
          End;
end;

не работает



________
1. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

2. Кросспостинг (создание одинаковых тем) запрещён правилами форума.

Не забывайте об этом!

Модератор.

[Stilet]

Так а в чем запутался то?