home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / INTMATH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  996 b   |  33 lines
  1.                                 (* Chapter 3 - Program 5 *)
  2. program Integer_Math_Demo;
  3.  
  4. var A,B,C,D : integer;
  5.     E       : real;
  6.  
  7. begin
  8.    A := 9;                   (* Simple assignment *)
  9.    B := A + 4;               (* simple addition *)
  10.    C := A + B;               (* simple addition *)
  11.    D := 4*A*B;               (* multiplication *)
  12.    E := A/B;                 (* integer division with the result
  13.                                 expressed as a real number *)
  14.    D := B div A;             (* integer division with the result
  15.                                 expressed as a truncated integer
  16.                                 number *)
  17.    D := B mod A;             (* d is the remainder of the division,
  18.                                 in this case d = 4 *)
  19.    D := (A + B) div (B + 7); (* composite math statement *)
  20.  
  21.   (* It will be up to you to print out some of these values *)
  22.  
  23. end.
  24.  
  25.  
  26.  
  27.  
  28. { Result of execution
  29.  
  30. (There is no output from this program)
  31.  
  32. }
  33.