home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 032.lha / doc / samples / pas.d < prev    next >
Encoding:
Text File  |  1987-05-17  |  397 b   |  21 lines
  1. int SIZE = 13;
  2.  
  3. proc main()void:
  4.     int i, j, k;
  5.     [SIZE] int oldArray, newArray;
  6.  
  7.     for i from 1 upto SIZE - 1 do
  8.     newArray[i] := 0;
  9.     od;
  10.     newArray[0] := 1;
  11.     for i from 0 upto SIZE - 1 do
  12.     write(newArray[0] : (40 - 3 * i));
  13.     for j from 1 upto i do
  14.         newArray[j] := oldArray[j] + oldArray[j - 1];
  15.         write(newArray[j] : 6);
  16.     od;
  17.     oldArray := newArray;
  18.     writeln();
  19.     od;
  20. corp;
  21.