Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.063 c
15-1143620105
balepa
2006-03-29 12:15
2006.04.16
Нормально ли?


2-1144002474
Ded22
2006-04-02 22:27
2006.04.16
Как удалить из подчиненой таблицы ?


15-1143477441
Serg1981
2006-03-27 20:37
2006.04.16
Глюк или что ?


2-1143658106
jeneka
2006-03-29 22:48
2006.04.16
как работать с tdbcombobox?


2-1143795002
Glen
2006-03-31 12:50
2006.04.16
Winamp?