home *** CD-ROM | disk | FTP | other *** search
- <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.0//EN">
- <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds -->
- <HTML>
- <HEAD>
- <TITLE>Frac</TITLE>
- <META NAME="description" CONTENT="Frac">
- <META NAME="keywords" CONTENT="ref">
- <META NAME="resource-type" CONTENT="document">
- <META NAME="distribution" CONTENT="global">
- <LINK REL=STYLESHEET HREF="ref.css">
- </HEAD>
- <BODY LANG="EN">
- <A NAME="tex2html1452" HREF="node81.htm"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="../buttons/next_motif.gif"></A> <A NAME="tex2html1450" HREF="node51.htm"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="../buttons/up_motif.gif"></A> <A NAME="tex2html1444" HREF="node79.htm"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="../buttons/previous_motif.gif"></A> <A NAME="tex2html1454" HREF="node1.htm"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="../buttons/contents_motif.gif"></A> <A NAME="tex2html1455" HREF="node138.htm"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="../buttons/index_motif.gif"></A> <BR>
- <B> Next:</B> <A NAME="tex2html1453" HREF="node81.htm">Freemem</A>
- <B>Up:</B> <A NAME="tex2html1451" HREF="node51.htm">Functions and Procedures</A>
- <B> Previous:</B> <A NAME="tex2html1445" HREF="node79.htm">Flush</A>
- <BR> <P>
- <H2><A NAME="SECTION004229000000000000000">Frac</A></H2>
- <P>
- <A NAME="fuFrac"> </A>
- <A NAME=2148> </A>
- <H3><A NAME="SECTION004229100000000000000">Declaration:</A></H3>
- <P>
- <tt>Function Frac (X : real) : Real;</tt>
- <H3><A NAME="SECTION004229200000000000000">Description:</A></H3>
- <P>
- <tt>Frac</tt> returns the non-integer part of <tt>X</tt>.
- <H3><A NAME="SECTION004229300000000000000">Errors:</A></H3>
- <P>
- None.
- <H3><A NAME="SECTION004229400000000000000">See also:</A></H3>
- <P>
- <A HREF="node117.htm#fuRound">Round</A>, <A HREF="node88.htm#fuInt">Int</A>
- <P>
- <DL ><DT><STRONG>Example</STRONG>
- <DD>
- <PRE>Program Example27;
-
- { Program to demonstrate the Frac function. }
-
- Var R : Real;
-
- begin
- Writeln (Frac (123.456):0:3); { Prints O.456 }
- Writeln (Frac (-123.456):0:3); { Prints -O.456 }
- end.</PRE>
- <P>
- </DL><BR> <HR>
- <P><ADDRESS>
- <I>Michael Van Canneyt <BR>
- Tue Mar 31 16:48:49 CEST 1998</I>
- </ADDRESS>
- </BODY>
- </HTML>
-