Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

Real в Integer   Найти похожие ветки 

← →
Oleg Khvostenko   (2003-11-15 13:46) [0]

Как переделать Real в Integer? Подскажите пожалуйста!

---

← →
Romkin   (2003-11-15 13:52) [1]

round trunc ceil и так далее

---

← →
WithOut Any ...   (2003-11-15 13:53) [2]

Если объяснишь на пальцах во что переделать, например, 1.4172, то возможно тебе помогут

---

← →
don_dampster   (2003-11-15 13:55) [3]

var
a:real;
b:integer;
...
begin
...
b:=round(a);
...
end;
...

---

← →
dead1   (2003-11-15 14:12) [4]


c = 1.4172;
Round(c) = 1
Trunc(c) = 1
Frac(c) = 0.4172
Ceil(c) = 2
Floor(c) = 1


---

← →
dead1   (2003-11-15 14:28) [5]

Так даже интереснее :


var i : integer;
c : real;
begin
c := 0.32;
WriteLn("N Round Trunc Frac Ceil Floor");
for i := 0 to 10 do
begin
Write(c*i:1:4," ");
Write(Round(c*i)," ");
Write(Trunc(c*i)," ");
Write(Frac(c*i):1:4," ");
Write(Ceil(c*i)," ");
WriteLn(Floor(c*i));
end;
end.

---

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

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх

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