home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / dreieck.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  624 b   |  27 lines
  1.  
  2. PROGRAM Dreieck;
  3.  
  4. USES Crt;
  5.  
  6. VAR Sterne_pro_Zeile,
  7.    Aussen, Innen, Leer,
  8.    Anzahl_der_Zeilen: Integer;
  9.  
  10. BEGIN
  11.   ClrScr;
  12.   Write ('Wieviele Zeilen soll das Dreieck haben? ');
  13.   Readln (Anzahl_der_Zeilen);
  14.   Sterne_pro_Zeile:=1;           { für erste Zeile }
  15.  
  16.   FOR Aussen := Anzahl_der_Zeilen DOWNTO 1 DO
  17.        BEGIN          { von Aussen }
  18.      FOR Leer:=Aussen DOWNTO 1 DO Write (' ');
  19.        { Gibt ' ' aus }
  20.      FOR Innen:=1 TO Sterne_pro_Zeile DO Write ('*');
  21.      Sterne_pro_Zeile := Sterne_pro_Zeile + 2;
  22.      Writeln        { nächste Zeile }
  23.        END;            { von Aussen }
  24.        Readln
  25. END.
  26.  
  27.