home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / beispiel / tiere.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-24  |  887 b   |  39 lines
  1.  
  2. PROGRAM Tiere;
  3.  
  4. TYPE Alle = (See, Land, Flug, Borsten, Loewe, Adler, Schwein,
  5. Ente, Hund, Elefant);
  6.      Vor  = See .. Borsten;
  7.      Nach = Loewe .. Elefant;
  8.  
  9. VAR Erst : Vor;
  10.     Tier : Nach;
  11.  
  12. PROCEDURE Drucke (Wort : Alle);
  13.  BEGIN
  14.   CASE Wort OF
  15.    See : Write ('    See');    Loewe : Write ('löwe   ');
  16.    Land : Write ('   Land');   Adler : Write ('adler  ');
  17.    Flug : Write ('   Flug');   Schwein : Write ('schwein');
  18.    Borsten : Write ('Borsten');Ente : Write ('ente   ');
  19.    Hund : Write ('hund   ');
  20.    Elefant : Write ('elefant');
  21.   END { von Case }
  22.  END; { von Drucke }
  23.  
  24. BEGIN { Hauptprogramm }
  25.  Writeln ('Tiernamengenerator:');
  26.  Writeln;
  27.  FOR Tier := Loewe TO Elefant DO BEGIN
  28.   Writeln;
  29.   FOR Erst := See TO Borsten DO BEGIN
  30.    Drucke (Erst);
  31.    Drucke (Tier);
  32.    Write ('     ')
  33.   END { von Erst }
  34.  END { von Tier };
  35.  Writeln;
  36. END.
  37.  
  38.  
  39.