home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 10 / triangle.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-08-26  |  1.2 KB  |  41 lines
  1. PROGRAM triangle;
  2.  
  3. (* Macht die Struktur des Pascal'schen Dreiecks sichtbar, indem fuer
  4.    alle Zahlen mit dem angegebenen Teiler ein Punkt gesetzt wird. *)
  5.  
  6. TYPE reihe = ARRAY [0..200] OF INTEGER;
  7.  
  8. VAR  r1, r2 : reihe;
  9.      spalte, zeile, teiler : INTEGER;
  10.  
  11. BEGIN
  12.  
  13.   REPEAT
  14.  
  15.     TextMode;                    
  16.     WRITE ('Bitte den Teiler eingeben: ');
  17.     READ (teiler);
  18.     Hires;          (* 640 x 200 Grafikmodus, Bildschirm loeschen *)
  19.     IF teiler > 0 THEN BEGIN
  20.                                 (* Arrays initialisieren *)
  21.        FOR spalte := 1 TO 200 DO r1[spalte] := 1;
  22.        r2[0] := 1;
  23.  
  24.        FOR zeile := 1 TO 200 DO BEGIN
  25.           FOR spalte := 1 TO 200 DO BEGIN
  26.              r2[spalte] := (r2[spalte-1] + r1[spalte]) MOD teiler;
  27.              r1[spalte] := r2[spalte];
  28.              IF r2[spalte] = 0 THEN BEGIN
  29.                 plot (spalte*2 + 120,zeile-1,1);
  30.                 plot (spalte*2 + 121,zeile-1,1)
  31.              END;
  32.           END;  (* letzte Spalte *)
  33.        END;  (* letzte Zeile *)
  34.  
  35.        REPEAT UNTIL keypressed;
  36.  
  37.     END;  (* Grafik fertig *)
  38.     TextMode;
  39.   UNTIL teiler < 1     (* Programmende, wenn Teiler < 1 *)
  40.  
  41. END.