home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / NEWINT4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  752 b   |  38 lines
  1.                                 (* Chapter 3 - Program 9 *)
  2. program New_Integer_Types;
  3.  
  4. var Index     : integer;
  5.     Big_int   : longint;
  6.     Small_int : shortint;
  7.     Pos_int   : word;
  8.  
  9. begin
  10.    Index := MaxInt;
  11.    Small_int := 127;
  12.    Pos_int := Index + 256 * Small_int;
  13.    Big_int := 1000 * MaxInt + 1234;
  14.  
  15.    Writeln('Index     = ',Index:12);
  16.    Writeln('Small_int = ',Small_int:12);
  17.    Writeln('Pos_int   = ',Pos_int:12);
  18.    Writeln('Big_int   = ',Big_int:12);
  19.    Writeln;
  20.  
  21.    Big_int := 1000 * Index + 1234;
  22.    Writeln('Big_int   = ',Big_int:12);
  23. end.
  24.  
  25.  
  26.  
  27.  
  28. { Result of execution
  29.  
  30. Index     =        32767
  31. Small_Int =          127
  32. Pos_Int   =        65279
  33. Big_Int   =     32768234
  34.  
  35. Big_Int   =          234
  36.  
  37. }
  38.