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

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

real & integer


тим ©   (2006-04-13 18:55:00) 

подскажите плиз не получаеться посчитать вот это:
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);

почему?


palva   (2006-04-13 23:38:00) [1]

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

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


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

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


elfebet   (2006-04-13 19:00:00) [3]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо