Ребят не могу разобраться с кодом!

[kotopezzz]

Ребят помогите...прога запускается но считает неправильно...где может быть ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var
j: integer;
s1,s2,s3,n,m,l,b1,b2,b3,s4,s5,s6,s7 :real;
begin
s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
s5 := 0;
s6 := 0;
s7 := 0;
with stringgrid1 do
for j := 1 to RowCount - 1 do
begin
if cells[1,j]='' then cells[1,j]:='0';
if cells[6,j]='' then cells[6,j]:='0';
if cells[7,j]='' then cells[7,j]:='0';

s3:=s3+StrToFloat(Cells[6,j]);

if s3<=1
then
begin
s1:=s1+StrToFloat(Cells[1,j])*StrToFloat(Cells[6,j]);
s2:=s2+StrToFloat(Cells[2,j])*StrToFloat(Cells[6,j]);
edit1.text:=Floattostr(s1);
edit2.text:=Floattostr(s2);
end
else
begin
edit1.text:='';
edit2.text:='';
label2.visible:=true;
label2.caption:='Íåâåðíîå çíà÷åíèå r(i)';
end;
begin
if s2<>0
then
s4:=(strtofloat(cells[2,j])*strtofloat(cells[6,j]))/s2;
stringgrid1.cells[7,j]:=floattostr(s4);
end;
n:=StrToFloat(Cells[3,j]);
m:=StrToFloat(Cells[4,j]);
l:=StrToFloat(Cells[5,j]);
if 12*n+m+16*l<>0
then
begin
b1:=12*n/(12*n+m+16*l);
b2:=m/(12*n+m+16*l);
b3:=16*l/(12*n+m+16*l);
s5:=s5+s4*b1;
s6:=s6+s4*b2;
s7:=s7+s4*b3;
edit3.Text:=floattostr(s5);
edit4.Text:=floattostr(s6);
edit5.Text:=floattostr(s7);
end;
end;
end;

[VadikV]

Эх, еще бы знать, что она должна посчитать и что должно получиться....

[Serge_Bliznykov]

тема названа неверно.
код не оформлен тегами.
задача не сформулирована.

закрыто!

Модератор