home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / tutorial / programs / circles.mod < prev    next >
Text File  |  1993-03-14  |  580b  |  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.