[Grynyuk]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function summ(k:integer;st:TStringgrid):real; var i,j:integer;     sum:real; begin sum:=0;   for i:=1 to k do  begin     for j:=1 to k do     begin       if (i mod 2=0) then       sum:= sum + strtofloat(st.Cells[i,j]);     result:=sum;   end; end;   end;

Помогите найти ошибку

[Snake22]

скорее всего надо писать

Код:

1	...to k-1 do begin...// ( в обоих строчках)

а так, покажи хотя бы какие данные подаются в функцию?
во вторых, покажи код ошибки?

[Alegun]

Возможно надо так (подсчёт идет не по горизонтали, а по вертикали)

Код:

1 2 3

... sum:= sum + strtofloat(st.Cells[j, i]); ...