home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PASSRC.ZIP / REALMATH.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  633b  |  26 lines
  1.                                 (* Chapter 3 - Program 4 *)
  2. program Real_Math_Demo;
  3.  
  4. var A,B,C,D : real;
  5.  
  6. begin
  7.    A := 3.234;               {simply assigning a value}
  8.    B := A + 1.101;           {adding a constant}
  9.    C := A + B;               {summing two variables}
  10.    D := 4.234*A*B;           {multiplication}
  11.    D := 2.3/B;               {division}
  12.    D := A - B;               {subtraction}
  13.    D := (A + B)/(12.56-B);   {example of a multiple expression}
  14.  
  15.   {It will be left up to you to print out some of the above values}
  16. end.
  17.  
  18.  
  19.  
  20.  
  21. { Result of execution
  22.  
  23. (There is no output from this program )
  24.  
  25. }
  26.