home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / briefe / eingabe.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-03  |  616 b   |  38 lines
  1. Program Eingabe;
  2.  
  3. USES Crt;
  4.  
  5. VAR
  6.   g: ARRAY [1..12] of INTEGER;
  7.   i: BYTE;
  8.   IOErr: INTEGER;
  9.  
  10. BEGIN
  11.   ClrScr;
  12.   FOR i := 1 TO 12 DO BEGIN
  13.     REPEAT
  14.       {$I-}
  15.       ReadLn(g[i]);
  16.       {$I+}
  17.       IOErr:=IOResult;
  18.       (* erhält den Wert 106,
  19.          wenn Eingabe nicht
  20.          numerisch *)
  21.  
  22.       IF (IOErr <> 0) or
  23.          (g [i] < 1) or
  24.          (g [i] > 99) THEN
  25.       BEGIN
  26.         Writeln
  27.         ('Eingabefehler!');
  28.         REPEAT
  29.         UNTIL KeyPressed;
  30.         ClrScr;
  31.       END;
  32.     UNTIL (IOErr=0) and
  33.           (g[i]>0) and
  34.           (g[i]<100);
  35.   END;
  36. END.
  37.  
  38.