Category : Pascal Source Code
Archive   : PASTUT.ZIP
Filename : NEWREAL4.PAS

(* Chapter 3 - Program 10 *)
program New_Real_Types;

(* Note; This program will not work unless you are using *)
(* TURBO Pascal version 4.0 or 5.0 and you must *)
(* have an 80X87 Math Co-processor installed. *)
(* Select the 80X87 mode from the pull-down menus *)
(* as follows; *)
(* (v4.0) Options/Compiler/Numeric processing Hardware *)
(* (v5.0) Options/Compiler/Numeric processing 8087/80287 *)

(* Note: If you are using TURBO Pascal Version 5.0 and do *)
(* not have a Math Co_Processor, you can still run *)
(* this program by using the compiler directives as *)
(* explained on page 42 of the User's Guide. *)

var Number : real;
Small_Number : single;
Big_Number : double;
Huge_Number : extended;
Whole_Number : comp;

begin
Number := 100000000000000000000000000.0;
Small_Number := 100000000000000000000000000.0;
Big_Number := 100000000000000000000000000.0;
Huge_Number := 100000000000000000000000000.0;
Whole_Number := 1000000000000000000.0;

Writeln('Number = ',Number :40:3);
Writeln('Small_Number = ',Small_Number:40:3);
Writeln('Big_Number = ',Big_Number :40:3);
Writeln('Huge_Number = ',Huge_Number :40:3);
Writeln('Whole_Number = ',Whole_Number:40:3);
end.




{ Result of execution

Number = 99999999999985900100000000.000
Small_Number = 100000002537764290000000000.000
Big_Number = 100000000000000005000000000.000
Huge_Number = 100000000000000000000000000.000
Whole_Number = 1000000000000000000.000

}