home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / indemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-05-17  |  1.5 KB  |  51 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    DEMO.PAS                            *)
  3. (*          Demo-Programm für TurboIn.INC                 *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM DemoTurboIn(Input, Output);
  6.  
  7. (*$I TURBOIN.INC*)
  8.  
  9. VAR s : StrString;
  10.     i : INTEGER;
  11.     r : REAL;
  12.  
  13. BEGIN
  14.   Init;  ClrScr;
  15.   WriteLn('Demo-Programm für TURBOIN.INC');
  16.   WriteLn;  WriteLn;
  17.   Write('String: ');
  18.   ReadString(s, 20);
  19.   WriteLn;
  20.   WriteLn('String: "', Copy(s, 1, 20), '"');
  21.   WriteLn;  WriteLn;
  22.   Write('Integer (mit Vorzeichen und En): ');
  23.   ReadInt(i, 5);
  24.   WriteLn;
  25.   WriteLn('Integer: >', i:5, '<');
  26.   WriteLn;  WriteLn;
  27.   Write('Integer (ohne Vorzeichen und En): ');
  28.   IO.int.sign := FALSE;         (*  verbietet Vorzeichen  *)
  29.   IO.int.exp := FALSE;          (*  verbietet En          *)
  30.   ReadInt(i, 5);
  31.   WriteLn;
  32.   WriteLn('Integer: >', i:5, '<');
  33.   WriteLn;  WriteLn;
  34.   Write('Real (mit Vorzeichen, Punkt und En): ');
  35.   ReadReal(r, 20);
  36.   WriteLn;
  37.   WriteLn('Real: >', r:40:10, '<');
  38.   WriteLn;  WriteLn;
  39.   Write('Real (mit Vorzeichen; ohne En): ');
  40.   IO.real.exp := FALSE;                 (*  verbietet En  *)
  41.   ReadReal(r, 20);
  42.   WriteLn;
  43.   WriteLn('Real: >', r:40:10, '<');
  44.   WriteLn;  WriteLn;
  45.   WriteLn('Demo-Programm beendet.');
  46.   WriteLn('Bitte eine Taste betätigen...');
  47.   Read(s);
  48. END.
  49. (* ------------------------------------------------------ *)
  50. (*                    Ende von DEMO.PAS                   *)
  51.