home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / CodePatterns / Pattern8.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  284 b   |  24 lines  |  [TEXT/MPS ]
  1. MODULE Pattern8;
  2.   VAR
  3.     i: INTEGER;
  4.     x: REAL;
  5.  
  6.   PROCEDURE P(x: INTEGER; VAR y: INTEGER);
  7.     VAR
  8.       z: INTEGER;
  9.   BEGIN
  10.     z:=x;
  11.     y:=z
  12.   END P;
  13.  
  14.   PROCEDURE F(x: REAL): REAL;
  15.   BEGIN
  16.     x:=F(0.5*x);
  17.     RETURN x
  18.   END F;
  19.  
  20. BEGIN
  21.   P(5, i);
  22.   x:=F(F(10.0))
  23. END Pattern8.
  24.