Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c