ошибка кода

[kotopezzz]

Прога запускалась и работала пока я не добавил 16 строку в таблицу...тут начались беды спасибо что посмотрели на чудеса...

[Человек_Борща]

Поправил чудеса, поправил пару багов застрял вот где:

    for j := 1 to RowCount - 1 do
    begin
      if cells[1, j] = '' then
        cells[1, j] := '0';
      if cells[7, j] = '' then
        cells[7, j] := '0';
      if cells[8, j] = '' then
        cells[8, j] := '0';

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

      if s3 <= 1 then
      begin
        s1 := s1 + StrToFloat(Cells[1, j]) * StrToFloat(Cells[7, j]);
        s2 := s2 + StrToFloat(Cells[2, j]) * StrToFloat(Cells[7, j]); //проблема здесь , когда j = 17 тогда происходит ошибка, но для меня это конечный тупик
        edit1.text := Floattostr(s1);
        edit2.text := Floattostr(s2);
      end
      else
      begin
        edit1.text := '';
        edit2.text := '';
        label2.visible := true;
        label2.caption := 'Неверное значение r(i)';
      end;
    end;

Отформатировал в приличный вид код.

конечный продукт в прилепе.

p.S. сложно ориентирроваться в коде, когда нет ни единого пояснения кода и вычислений.

[asmodey1]

Сообщение от Человек_Борща

Поправил чудеса, поправил пару багов застрял вот где:
//проблема здесь , когда j = 17 тогда происходит ошибка, но для меня это конечный тупик

J не может быть равно 17, потому что StringGrid1.RowCount=17.
А J гуляет

for j := 1 to RowCount - 1 do

[kotopezzz]

Такс ну вроде подправил и немного разобрался.

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

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

     if s3<=1 then
     begin
        s1:=s1+StrToFloat(Cells[1,j])*StrToFloat(Cells[7,j]);
        s2:=s2+StrToFloat(Cells[2,j])*StrToFloat(Cells[7,j]);
        edit1.text:=Floattostr(s1);
        edit2.text:=Floattostr(s2);
     end
     else
     begin
        edit1.text:='';
        edit2.text:='';
        label2.visible:=true;
        label2.caption:='Íåâåðíîå çíà÷åíèå r(i)';
     end;
   end;

   if s2<>0 then
   begin
     for j := 1 to RowCount - 1 do
     begin
         s4:=(strtofloat(cells[2,j])*strtofloat(cells[7,j]))/s2;
         stringgrid1.cells[8,j]:=floattostr(s4);
         n:=StrToFloat(Cells[3,j]);
         m:=StrToFloat(Cells[4,j]);
         l:=StrToFloat(Cells[5,j]);
         p:=StrToFloat(Cells[6,j]);
         if 12*n+m+16*l+p*32<>0 then
         begin
            b1:=12*n/(12*n+m+16*l+p*32);
            b2:=m/(12*n+m+16*l+p*32);
            b3:=16*l/(12*n+m+16*l+p*32);
            b4:=32*p/(12*n+m+16*l+p*32);
            s5:=s5+StrToFloat(Cells[7,j])*b1;
            s6:=s6+StrToFloat(Cells[7,j])*b2;
            s7:=s7+StrToFloat(Cells[7,j])*b3;
            s8:=s8+StrToFloat(Cells[7,j])*b4;
            edit3.Text:=floattostr(s5);
            edit4.Text:=floattostr(s6);
            edit5.Text:=floattostr(s7);
            edit6.Text:=floattostr(s8);
        M0:=(1/0.209)*(s5/12+s6/4+s8/32-s7/32);
        edit7.Text:=floattostr(M0);
     end;
     end;
     end;
     end;
     end;

Вот так все работает

[kotopezzz]

но мне нужно поставить вот это условие

 end;
         if 12*n+m+16*l+p*32<>0 then
          begin
     for j := 1 to 15 do
      begin
            b1:=12*n/(12*n+m+16*l+p*32);
            b2:=m/(12*n+m+16*l+p*32);
            b3:=16*l/(12*n+m+16*l+p*32);
            b4:=32*p/(12*n+m+16*l+p*32);
            s5:=s5+StrToFloat(Cells[7,j])*b1;
            s6:=s6+StrToFloat(Cells[7,j])*b2;
            s7:=s7+StrToFloat(Cells[7,j])*b3;
            s8:=s8+StrToFloat(Cells[7,j])*b4;
       end;
       begin
     for j := 16 to Rowcount -1 do
      begin
            b1 := 0.855;
            b2 := 0.145;
            b3 := 0;
            b4 := 0;
      end;

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

[ArtGrek]

зачем тебе помогать если ты даже не читаеш

            s7:=s7+StrToFloat(Cells[7,j])*b3;
            s8:=s8+StrToFloat(Cells[7,j])*b4;
       end;
       begin // begin чего ето?
     for j := 16 to Rowcount -1 do
      begin
            b1 := 0.855;

[phomm]

Сообщение от kotopezzz

Такс ну вроде подправил и немного разобрался.

procedure TForm1.Button1Click(Sender: TObject);
public
    s1,s2,s3,n,m,l,p,b1,b2,b3,b4,s4,s5,s6,s7,s8,M0: real;
    end;
 
var
   j: integer;
begin
...
end;

Вот так все работает

как может компилироваться то, что красное ?

советую убрать все описанные там переменные в var


добавляю :

Сообщение от kotopezzz

но мне нужно поставить вот это условие

for j := 16 to Rowcount -1 do
      begin
            b1 := 0.855;
            b2 := 0.145;
            b3 := 0;
            b4 := 0;
      end;

ты уверен, что это надо делать циклом ???