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 / arrays5.pcat < prev    next >
Text File  |  2005-10-24  |  566b  |  29 lines
  1. program is
  2.   type T is array of integer;
  3.   type U is array of T;
  4.   type V is array of boolean;
  5.   var a := T {{ 100 of 0 }};
  6.   var b := U {{ 10 of t {{ 10 of 0 }} }};
  7.   var c := V {{ 10 of true }};
  8.   var x := 1;
  9.   procedure echo (q:integer) : integer is
  10.     begin
  11.       write(q);
  12.       return q;
  13.     end;
  14.   begin    
  15.     write (a[0]);
  16.     write (b[1][1]);
  17.     write (c[2]);    
  18.     a[0] := 38;
  19.     a[4-x] := 48;
  20.     b[1][1] := 39;
  21.     b[echo(2)][echo(1)] := 88;
  22.     c[2] := false;
  23.     write (a[0]);
  24.     write (a[x+2]);
  25.     write (b[1][1]);
  26.     write (c[2]);    
  27.   end;
  28.  
  29.