🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.lang.ada
Article #1054

Re: Getting the integer part of a real

#1054
From: emery
Date: Fri, 07 Nov 1986 15:31
18 lines
854 bytes

oops, made a type mismatch mistake in the last note:

comparison should be:

	if (real(i) > x) then
	    i := i - 1;		-- machine rounded up

There is no operation ">" (L : integer, R : real)....

Sorry about that, chief...

			Dave Emery
			Mitre Corp.
			emery@mitre-bedford.arpa

	    
Technical Details
Message-ID: <38000035@gypsy.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!lll-crg!rutgers!princeton!siemens!gypsy!emery
References: <38000034@gypsy.UUCP>

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!lll-crg!rutgers!princeton!siemens!gypsy!emery
From: emery@gypsy.UUCP
Newsgroups: net.lang.ada
Subject: Re: Getting the integer part of a real
Message-ID: <38000035@gypsy.UUCP>
Date: Fri, 7-Nov-86 10:31:00 EST
Article-I.D.: gypsy.38000035
Posted: Fri Nov  7 10:31:00 1986
Date-Received: Sun, 9-Nov-86 02:55:47 EST
References: <38000034@gypsy.UUCP>
Lines: 18
Nf-ID: #R:gypsy:38000034:gypsy:38000035:000:289
Nf-From: gypsy!emery    Nov  7 10:31:00 1986