This is the second disk of the PASCAL TUTOR system. It has the
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 3 - Program 10 *)
program New_Real_Types;
(* Note; This program will not work unless you are using *)
(* TURBO Pascal version 4.0 and you must have an *)
(* 80X87 Math Co-processor installed. *)
(* Select the 80X87 mode from the pull-down menus *)
(* as follows; *)
(* Options/Compiler/Numeric processing Hardware *)
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.
