Как перевести?

[Serge_Bliznykov]

так показывайте, что Вы внутри циклов FOR намутили!
ТАкая ошибка говорит обычно о попытках изменить переменные цикла ВНУТРИ самого цикла.
Вы что, решили i и j чему-то присвоить?!!

[Nightway]

begin
for i:= 0 to 100 do
begin
p:=0.01 * i;
for j:=0 to 4 do
begin
ss[i,j]:= k[1,j] * kg *p;
q1:=1-p;
q2:=1-kg;
for q:=2 to 6 do
begin
q1:=q1 *(1-p);
q2:=q2*(1-kg);
ss[i,j]:=ss[i,j]+k[q,j]*(1-q1)*(1-q2);
  with strngrd1 do
begin
  rowcount:=4;
  colcount:=6;
  for i := 0 to 5 do
    for j := 0 to 4 do
  cells [j,i]:=inttostr(colcount * i+j);
  end;
end;

end;
end;
end;
end.

[BDA]

Так у Вас получается в циклах по i и j еще два цикла по i и j. Зачем Вы засунули просто так код вывода в цикл? Это же был просто пример.

with stringgrid1 do
begin
  rowcount := 101;
  colcount := 5;
  for i := 0 to 100 do
    for j := 0 to 4 do
      ...
      cells[j, i] := floattostr(s[i, j]);


end;

[northener]

Внутри цикла

for i:= 0 to 100 do
begin
p:=0.01 * i;
for j:=0 to 4 do
begin

находится еще один цикл

 for i := 0 to 5 do
    for j := 0 to 4 do

И каким образом все это должно работать?

[Nightway]

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

Так у Вас получается в циклах по i и j еще два цикла по i и j. Зачем Вы засунули просто так код вывода в цикл? Это же был просто пример.

with stringgrid1 do
begin
  rowcount := 101;
  colcount := 5;
  for i := 0 to 100 do
    for j := 0 to 4 do
      ...
      cells[j, i] := floattostr(s[i, j]);


end;

я не понимаю куда код вывода нужно вставлять?он везде ошибку выдает

[BDA]

Какую ошибку? Вставить код вывода можно в 2 местах:
1) В месте, когда уже полностью посчитана ss[i, j]
2) После отрабатывания циклов расчета всей ss вставить двойной цикл, который выведет ss в stringgrid

[Nightway]

В общем оно всё выводит,но почему то одни нули