Article View: net.lang.ada
Article #1050Getting the integer part of a real
From: emery
Date: Wed, 05 Nov 1986 14:25
Date: Wed, 05 Nov 1986 14:25
24 lines
1134 bytes
1134 bytes
When we discovered the 'feature' in Ada that an implementor can pick how
he rounds, we discussed various ways to get the integer part of a number.
Here is the 'best' (meaning most portable) way: (p.s. this 'algorithm'
is obviously language-independent)
declare
x : real;
i : integer; -- integer part of x
begin
i := integer(x);
if (i > x) then
-- machine rounded up
i := i - 1;
end if;
end;
Dave Emery
until 7 Nov: ...princeton!siemens!emery
princeton!siemens!emery@seismo.css.gov
after 10 Nov: linus!emery
emery@mitre-bedford.arpa
Technical Details
Message-ID:
<38000034@gypsy.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!princeton!siemens!gypsy!emeryShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!rutgers!princeton!siemens!gypsy!emery From: emery@gypsy.UUCP Newsgroups: net.lang.ada Subject: Getting the integer part of a real Message-ID: <38000034@gypsy.UUCP> Date: Wed, 5-Nov-86 09:25:00 EST Article-I.D.: gypsy.38000034 Posted: Wed Nov 5 09:25:00 1986 Date-Received: Fri, 7-Nov-86 09:20:04 EST Lines: 24 Nf-ID: #N:gypsy:38000034:000:625 Nf-From: gypsy!emery Nov 5 09:25:00 1986