home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HISPEED1.LZH / DOSDEMO / PASTRI.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-02  |  734b  |  36 lines
  1. PROGRAM PasTri; (* Pascal/S (ST) ver. 22.07.89 *)
  2.  
  3. CONST
  4.   cols = 13;
  5.  
  6. VAR
  7.   row : ARRAY[0..cols] OF integer;
  8.   i,j : integer;
  9.   max : integer;
  10.  
  11. BEGIN
  12.   ClrScr;
  13.   REPEAT
  14.     REPEAT
  15.       gotoxy(1,21);
  16.       write('Size: (1-',cols:1,'; 0 = stop) : '); 
  17.       ClrEol;
  18.       read(max);
  19.       writeln
  20.     UNTIL (max>=0) AND (max<=cols);
  21.     IF max>0 THEN BEGIN
  22.       gotoxy(1,4);
  23.       FOR i:=0 TO cols DO row[i]:=0;
  24.       row[1]:=1;
  25.       FOR j:=1 TO cols DO BEGIN
  26.         IF j<=max THEN BEGIN
  27.           FOR i:=j DOWNTO 1 DO row[i]:=row[i]+row[i-1];
  28.           write(' ':3*(cols-j));
  29.           FOR i:=1 TO j DO write(row[i]:6)
  30.         END;
  31.         ClrEol; Writeln;
  32.       END
  33.     END
  34.   UNTIL max=0;
  35. END.
  36.