[kotopezzz]

Ребят нужна помощь...прога запускается но второе действие категорически не считает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.Button1Click(Sender: TObject); var     j,i: integer;     s, d, b, c: real; begin    S := 0; for j := 1 to StringGrid1.RowCount - 1 do begin if stringgrid1.cells[1,j]='' then                stringgrid1.cells[1,j]:='0'; if stringgrid1.cells[3,j]='' then                stringgrid1.cells[3,j]:='0';   if stringgrid1.cells[3,j]<='1' then begin d:=StrToFloat(StringGrid1.Cells [3,j]) * StrToFloat(StringGrid1.Cells [1,j]); s := s + d; edit1.text:=Floattostr(s); end else begin label2.visible:=true; label2.caption:='Неверное значение r(i)'; end; begin B := 0; for i:=1 to stringGrid1.RowCount - 1 do b:= StrToFloat(StringGrid1.Cells [3,i]) * StrToFloat(StringGrid1.Cells [2,i]); b:=c+b; edit2.text:=Floattostr(b); end;

Админ: 5-дневный бан за несоблюдение правил форма по оформлению кода.

в чем ошибка может быть?