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 / arrays1.pcat < prev    next >
Text File  |  2005-10-24  |  290b  |  16 lines
  1. program is
  2.   type T is array of integer;
  3.   var a := T {{ 100 of 0 }};
  4.   var b := T {{ 10 of 0, 10 of 1, 10 of 2 }};
  5.   procedure echo (q:integer) : integer is
  6.     begin
  7.       write(q);
  8.       return q;
  9.     end;
  10.   begin    
  11.     write (a[0]);
  12.     write (b[1][1]);
  13.     b[echo(2)][1] := 88;
  14.   end;
  15.  
  16.