Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Вниз

real & integer   Найти похожие ветки 

← →
тим   (2006-04-13 18:55) [0]

подскажите плиз не получаеться посчитать вот это:
var
n2,n3,n4,n5:real;
begin
n5:=strtoint(label4.Caption);
n4:=strtoint(label3.Caption);
n3:=strtoint(label2.Caption);
n2:=strtoint(label1.Caption);

label5.Caption:=inttostr(n5*1+n4*0.64+n3+n2);

почему?

---

← →
elfebet ©   (2006-04-13 19:00) [1]

вместо IntToStr надо FloatToStr

---

← →
Дарья   (2006-04-13 23:23) [2]

спс,вот еще, ответ получается в виде 0,66666666666666666666666666667
почему? как сделать 0,66 или 0,67?

---

← →
palva ©   (2006-04-13 23:38) [3]

Форматируйте:

uses SysUtils;
var
 s: String;
 d: Double;
begin
 d := -3.666666667;
 s:= Format("%.2f", [d]);
 WriteLn(s); // -3,67
end.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.017 c