| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Logos ©   (2006-03-30 10:54:00) 

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

---

Рамиль   (2006-03-30 12:27:00) [1]

Есть еще Extended.

---

Ega23   (2006-03-30 11:39:00) [2]

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


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

---

balepa   (2006-03-30 11:36:00) [3]

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

---

Ega23   (2006-03-30 11:31:00) [4]

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

---

Chapchaps   (2006-03-30 11:18:00) [5]

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:08:00) [6]

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

---

Наверх