home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / einfuehr / fall.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-07  |  1.3 KB  |  25 lines
  1. PROGRAM Fall;                                  { Demoprogramm für Case }
  2.  
  3. USES Crt;            { Die Unit Crt wegen ClrScr und ReadKey einbinden }
  4.  
  5. CONST                          { Diesmal verwenden wir auch Konstanten }
  6.      Meldung : STRING = 'Bitte drücken Sie eine Taste';
  7.  
  8. VAR                { Jetzt beginnt der Deklarationsblock für Variablen }
  9.      Ch : CHAR;                 { nur eine Zeichenvariable namens 'Ch' }
  10.  
  11. BEGIN                                                 { Programmbeginn }
  12.      ClrScr;                                      { Bildschirm löschen }
  13.      WriteLn(Meldung);                            { Kommantar ausgeben }
  14.      Ch := ReadKey;                     { auf einen Tastendruck warten }
  15.      CASE Ch OF                          { und die Taste auswerten ... }
  16.           '0'..'9' : WriteLn('Zifferntaste!');
  17.           'ü', 'Ü', 'ä', 'Ä', 'ö', 'Ö' : WriteLn('Deutscher Umlaut!');
  18.           '.' : WriteLn('Punkt!');
  19.           ELSE               { war keine der oben aufgeführten Tasten! }
  20.                WriteLn('Normale Taste');         { dann dies ausgeben! }
  21.      END;                                     { Ende der Case-Struktur }
  22.      ReadKey;                      { auf beliebigen Tastendruck warten }
  23. END.                                                    { Programmende }
  24.                    
  25.