home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1988
/
15
/
make.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-07-25
|
440b
|
18 lines
{$R+,C-}
PROGRAM Make_Real_Data;
VAR
R : real;
F : file of Real;
BEGIN
(* The following line is for plain TURBO*)
R := 1.2345678912E-37; assign(F,'6DATA');
(* The following line is for TURBO-87 *)
(*R := 1.234567891234567E-50; assign(F,'8DATA');*)
ReWrite(F);
REPEAT
Write(F,R);
R := -10.0*R;
UNTIL Abs(R) > 1E37; (* plain TURBO *)
(*UNTIL Abs(R) > 1E50;*) (* TURBO-87 *)
Close(F);
END.