🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.lang.ada
Article #1050

Getting the integer part of a real

#1050
From: emery
Date: Wed, 05 Nov 1986 14:25
24 lines
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!emery

Show 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