Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Вниз
Ну вот, кто-то грубиян, а ветку закрыли... Найти похожие ветки
← →
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 или нет?
← →
Ega23 © (2006-03-30 11:39) [5]
> Real тот же Double или нет?
Не то посмотрел...
Да, real - это тот же Double. Но если тебе и double не хватает - работай со строками...
← →
Рамиль © (2006-03-30 12:27) [6]Есть еще Extended.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c
