home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / errordem.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-28  |  679 b   |  27 lines
  1. PROGRAM Errordemo;
  2.  
  3. {$I Error.Inc}  (* Error Modul einbinden *)
  4.  
  5. VAR i, k : INTEGER;
  6.     y    : REAL;
  7.  
  8. BEGIN
  9.   WriteLn;
  10.   FOR i := 1 TO 2 DO
  11.   BEGIN
  12.     IF i = 1 THEN InitErrorCheck  (* Fehler werden abgefangen *)
  13.     ELSE OldErrorCheck;           (* bei Fehler abbrechen *)
  14.     y := Sqr(1e20);
  15.     y := 1/0;
  16.     y := Sqrt(-1) + Ln(-1);
  17.     k := Round(123456.0) + Trunc(98765.4);
  18.     WriteLn('User - Break Test : ich durchlaufe Warteschleife !');
  19.     FOR k := 1 TO 1900 DO Write('.');
  20.     WriteLn;
  21.     Write('hier wird eine Integer Variable erwartet : ');
  22.     ReadLn(k);
  23.     Write('hier wird eine Real Variable erwartet : ');
  24.     ReadLn(y);
  25.   END;
  26. END.
  27.