Ну вот, кто-то грубиян, а ветку закрыли...

← →
Logos (2006-03-30 10:54) [0]

У меня такая проблема - нужно подсчитать в таблице в строке Xi сумму (sqr(Xi-50)). Подскажите как это сделать, скажем в StringGrid, а потом вывести на Edit.

← →
Ega23 © (2006-03-30 11:08) [1]

Попробуем ещё раз.
for

← →
Chapchaps (2006-03-30 11:18) [2]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
S:real;
T:variant;
B:real;

begin
B:=0;
T:=0;
S:=0;
for i:=1 to 50 do
S:=S+StrToFloat(StringGrid1.Cells[i,1]);
T:=S/2;
B:=(sqr(StringGrid1.Cells[i,1]-T));
Edit1.Text:=FloatToStr(S);
Edit2.Text:=FloatToStr(T);
Edit3.Text:=FloatToStr(mmm(StringGrid1));
Edit4.Text:= FloatToStr(B);
end;

← →
Ega23 © (2006-03-30 11:31) [3]

Где и какая ошибка возникает?
Зачем T - variant?
Если не хватает разрядов - используй вместо real - double

← →
balepa © (2006-03-30 11:36) [4]

> Ega23 © (30.03.06 11:31) [3]
> Где и какая ошибка возникает?
> Зачем T - variant?
> Если не хватает разрядов - используй вместо real - double
Так без {$REALCOMPATIBILITY ON} Real тот же Double или нет?

> Real тот же Double или нет?

Не то посмотрел...
Да, real - это тот же Double. Но если тебе и double не хватает - работай со строками...

Есть еще Extended.

Ну вот, кто-то грубиян, а ветку закрыли... Найти похожие ветки