home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / NEWREAL4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  1.7 KB  |  49 lines
  1.                                 (* Chapter 3 - Program 10 *)
  2. program New_Real_Types;
  3.  
  4. (* Note;  This program will not work unless you are using   *)
  5. (*        TURBO Pascal version 4.0 or 5.0 and you must      *)
  6. (*        have an 80X87 Math Co-processor installed.        *)
  7. (*        Select the 80X87 mode from the pull-down menus    *)
  8. (*          as follows;                                     *)
  9. (*  (v4.0)  Options/Compiler/Numeric processing  Hardware   *)
  10. (*  (v5.0)  Options/Compiler/Numeric processing  8087/80287 *)
  11.  
  12. (* Note: If you are using TURBO Pascal Version 5.0 and do   *)
  13. (*       not have a Math Co_Processor, you can still run    *)
  14. (*       this program by using the compiler directives as   *)
  15. (*       explained on page 42 of the User's Guide.          *)
  16.  
  17. var Number       : real;
  18.     Small_Number : single;
  19.     Big_Number   : double;
  20.     Huge_Number  : extended;
  21.     Whole_Number : comp;
  22.  
  23. begin
  24.    Number       := 100000000000000000000000000.0;
  25.    Small_Number := 100000000000000000000000000.0;
  26.    Big_Number   := 100000000000000000000000000.0;
  27.    Huge_Number  := 100000000000000000000000000.0;
  28.    Whole_Number := 1000000000000000000.0;
  29.  
  30.    Writeln('Number       = ',Number      :40:3);
  31.    Writeln('Small_Number = ',Small_Number:40:3);
  32.    Writeln('Big_Number   = ',Big_Number  :40:3);
  33.    Writeln('Huge_Number  = ',Huge_Number :40:3);
  34.    Writeln('Whole_Number = ',Whole_Number:40:3);
  35. end.
  36.  
  37.  
  38.  
  39.  
  40. { Result of execution
  41.  
  42. Number       =          99999999999985900100000000.000
  43. Small_Number =         100000002537764290000000000.000
  44. Big_Number   =         100000000000000005000000000.000
  45. Huge_Number  =         100000000000000000000000000.000
  46. Whole_Number =                 1000000000000000000.000
  47.  
  48. }
  49.