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.

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