home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / REALMATH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  886 b   |  24 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.                              {Pascal has no expression for
  15.                               raising a number to a power.
  16.                               It must be done with the log and
  17.                               exp functions}
  18.   {The trigonometric functions, log functions and others are
  19.    available as predefined routines.}
  20.  
  21.   {It will be left up to you to print out some of the above values}
  22. end.
  23.  
  24.