Нахождение доли одного столбца от другого

[supreme]

найти сумму столбца и сумму другого столбца.и посчитать долю первого от второго Чет не получается

begin
for j:=1 to StringGrid1.RowCount-1 do
begin
a:=strtofloat(StringGrid1.Cells[2,j]);
b:=strtofloat(StringGrid1.Cells[10,j]);
c:=c+a;
d:=D+b;
g:= c/d;
Edit1.Text:=FloatToStr(g);
end;
end;

пдскажите чт не так

[Streletz]

Во первых:

for j:=0 to StringGrid1.RowCount-1 do

Во вторых, сумма каждого столбца:

a:=a+strtofloat(StringGrid1.Cells[2,j]);
b:=a+strtofloat(StringGrid1.Cells[10,j]);

Итого получаем:

begin
a:=0;
b:=0;
for j:=1 to StringGrid1.RowCount-1 do
  begin
    a:=strtofloat(StringGrid1.Cells[2,j]);
    b:=strtofloat(StringGrid1.Cells[10,j]);
  end;
c:=c+a;
d:=D+b;
g:= c/d;
Edit1.Text:=FloatToStr(g);
end;

Приблизительно как-то так...

[Аватар]

Во первых:

Не факт. В самой первой строке возможно титул

А по проге end поставить после d:=D+b; и убрать после Edit1.Text:=FloatToStr(g);

Да, c и d не помешало бы обнулить перед циклом

[Serge_Bliznykov]

всё не так! )
вот, допустим,
у Вас есть в гриде значения (
x x 2.5 x x x x x x x 0.5
x x 5.0 x x x x x x x 1.5
x x 2.5 x x x x x x x 2.0

что именно Вы хотите получить в Edit1 ???

так, навскидку, попробуйте:

begin
  c :=0;
  d :=0;
  for j:=1 to StringGrid1.RowCount-1 do
  begin
      c := c + strtofloat(StringGrid1.Cells[2,j]);
      d := d + strtofloat(StringGrid1.Cells[10,j]);
  end;
  if d=0 
     then Edit1.Text := 'бесконечность'
     else  Edit1.Text := FloatToStr(c/d);
end;

UPDATED
Streletz, Аватар, за вами не угонишься!!

[Аватар]

бесконечность

Насчет нуля не подумал