home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
ENTERPRS
/
CPM
/
UTILS
/
S
/
TPTUTOR2.ARC
/
PROG16.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-06-15
|
470b
|
25 lines
PROGRAM PROG16;
{$U+ Copyright (C), 1985 by Lyle Faurot. All rights reserved.
New Topics: Real Numbers
}
CONST
C = -2.0;
VAR
A, B : Real;
I, J : Integer;
BEGIN
ClrScr;
Write('Enter a decimal number: ');
ReadLn(A);
WriteLn('A [', A, ']');
WriteLn('A:10:2 [', A:10:2, ']');
WriteLn('A:10:1 [', A:10:1, ']');
WriteLn('A:10:0 [', A:10:0, ']');
WriteLn;
WriteLn('A:-10:2 [', A:-10:2, ']');
END.