Path: utzoo!attcan!uunet!mcvax!kth!draken!tut!santra!taltta!s32935k
From: s32935k@taltta.hut.fi (Carl Torsten Stenholm)
Newsgroups: comp.lang.pascal
Subject: Realint qestion
Message-ID: <21930@santra.UUCP>
Date: 12 May 89 07:25:47 GMT
References: <19573@adm.BRL.MIL>
Sender: news@santra.UUCP
Reply-To: s32935k@taltta.hut.fi (Carl Torsten Stenholm)
Organization: Helsinki University of Technology, Finland
Lines: 32



I was looking at a bit of software posted on the net and there was a function
looking like this (I hope I don't break any copyrights now...)

function realint (x: real): real;
begin
  realint := x - (x - trunc (x));
end;

As far as I can see this must be the same as 

function realint (x: real): real;
begin
  realint :=  nt := trunc (x); 
end;

Well now the only difference between this function and putting "trunc (x)" 
directly in the code is that trunc returns an integer (I  think). In that
case -- is there any situation where you must have an real returned instead
of an integer and thus forced to use this function ?


                                  Ctrl-C.Stenholm
                                  32935k@taltta.hut.fi


    BTW -- A while a go someone (I just can't find his mail adress, I've looked
    everywhere) posted a TPU file called TRI_D.TPU. I think this was compiled
    using turbo using ver 4.0. I can't get it to work on my 5.0, is there any
    chance of getting it posted compiled with 5.0 -- or does anybody know who
    posted it.