[Fanil]

Здравствуйте! Помогите пожалуйста решить следующую задачу:я ввожу в StringGrid (Размерность 2х2) числа. Первая строка это элементы а1,а2. Вторая строка это элементы b1,b2. Нужно вычислить d=(a1*b1+a2*b2)/(b1+b2). В простом варианте я сделал программу:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
a1,a2,b1,b2,d:real;

begin 
a1:=StrToFloat(StringGrid1.Cells[1, 0]);
 a2:=StrToFloat(StringGrid1.Cells[2, 0]);
b1:=StrToFloat(StringGrid1.Cells[1, 1]);
b2:=StrToFloat(StringGrid1.Cells[2, 1]);
d:=(a1*b1+a2*b2)/(b1+b2);
Label1.Caption:='d= '+FloatToStrF(d,ffFixed,5,2); 

end;
end.

Но как сделать, если, допустим, у меня будет не 2 а 100 столбцов? Понимаю, что нужно делать ч\з циклы, но я никак не могу понять их.Помогите пожалуйста! Заранее спасибо!