home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p3 / tst / proc5.pcat < prev    next >
Text File  |  2005-10-24  |  670b  |  47 lines
  1. program is
  2.   procedure b() is
  3.     begin
  4.       write(101);
  5.     end;
  6.   procedure c(x: boolean) is
  7.     begin
  8.       write(not x);
  9.     end;
  10.   procedure f(x : integer) is
  11.     begin
  12.       write(x+10);
  13.     end;
  14.   procedure f1(x : integer) is
  15.     begin
  16.       x := x + 10;
  17.       write(x);
  18.     end;
  19.   var y := 20;
  20.   procedure h(x : integer; z: integer; w: integer) is
  21.     begin
  22.       write(x + z + w);
  23.     end;      
  24.   procedure g(x: integer) is
  25.     begin
  26.     end;
  27.   procedure echo(x: integer) : integer is  
  28.     begin
  29.       write (x);
  30.       return x;
  31.     end;
  32.   begin
  33.     b();
  34.     c(true);
  35.     f (10);
  36.     f1(y);
  37.     write(y);
  38.     h(echo(10), echo(20), echo(30));
  39.  
  40.   end;
  41.  
  42.  
  43.  
  44.  
  45.  
  46.   
  47.