home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / modula2 / mod2src.arc / CIRCLES.MOD < prev    next >
Encoding:
Modula Implementation  |  1987-02-09  |  580 b   |  25 lines
  1.                                         (* Chapter 13 - Program 3 *)
  2. IMPLEMENTATION MODULE Circles;
  3.  
  4. PROCEDURE GetPi(VAR Pi : REAL);
  5. BEGIN
  6.    Pi := 3.14159;
  7. END GetPi;
  8.  
  9. PROCEDURE AreaOfCircle(Radius : REAL; VAR Area : REAL);
  10. VAR Pie : REAL;
  11. BEGIN
  12.    GetPi(Pie);
  13.    Area := Pie * Radius * Radius;
  14. END AreaOfCircle;
  15.  
  16. PROCEDURE PerimeterOfCircle(Radius : REAL; VAR Perim : REAL);
  17. VAR Cake : REAL;
  18. BEGIN
  19.    GetPi(Cake);
  20.    Perim := 2.0 * Cake * Radius;
  21. END PerimeterOfCircle;
  22.  
  23. BEGIN            (* IMPLEMENTATION MODULE body, empty in this case *)
  24. END Circles.
  25.