procedure Avrundning is F : Float; I : Integer; begin Get(F); -- 2.3 Put(F, Fore => 2, Aft => 3, Exp => 0); -- 2.300 I := Integer(F); -- 2 I := Integer( Float'Ceiling(F) ); -- 3 I := Integer( Float'Floor(F) ); -- 2 I := Integer( Float'Rounding(F) ); -- 2 -- 2.34 => 2.3 -- Float'Floor(F * 10.0) / 10.0 end Avrundning;