home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / tricks / realdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-10-10  |  1.9 KB  |  65 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    REALDEMO.PAS                        *)
  3. (*        Demonstrationsprogramm zur Unit Ausgabe         *)
  4. (*          (c) 1988 by Manfred Grote & TOOLBOX           *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Test;
  7.  
  8. USES Crt, Printer, Ausgabe;
  9.  
  10. VAR r : REAL;
  11.     c : CHAR;
  12.     i : INTEGER;
  13.  
  14. BEGIN
  15.   r := -0.000000001234;
  16.   FOR i := 1 TO 18 DO BEGIN
  17.     ClrScr;
  18.     WriteLn('  Eigenschaften der Prozedur "WriteReal" ');
  19.     WriteLn('  ====================================== ');
  20.     WriteLn;
  21.     WriteLn('r = ',r);
  22.     WriteLn;
  23.     WriteLn('                              12345678');
  24.     Write('linksbündig  -   8,7:     r = ');
  25.     WriteReal(Monitor,r,8,7);
  26.     WriteLn;
  27.     Write('zentriert    -   8,6:     r = ');
  28.     WriteReal(Monitor,r,8,6);
  29.     WriteLn;
  30.     Write('rechtsbündig -   8,4:     r = ');
  31.     WriteReal(Monitor,r,8,4);
  32.     WriteLn;
  33.     WriteLn;
  34.     WriteLn;
  35.     WriteLn('                              1234567890');
  36.     Write('linksbündig  -  10,7:     r = ');
  37.     WriteReal(Monitor,r,10,9);
  38.     WriteLn;
  39.     Write('zentriert    -  10,8:     r = ');
  40.     WriteReal(Monitor,r,10,8);
  41.     WriteLn;
  42.     Write('rechtsbündig -  10,4:     r = ');
  43.     WriteReal(Monitor,r,10,4);
  44.     WriteLn;
  45.     WriteLn;
  46.     WriteLn;
  47.     WriteLn('                              123456789012');
  48.     Write('linksbündig  - 12,11:     r = ');
  49.     WriteReal(Monitor,r,12,11);
  50.     WriteLn;
  51.     Write('zentriert    - 12,10:     r = ');
  52.     WriteReal(Monitor,r,12,10);
  53.     WriteLn;
  54.     Write('rechtsbündig - 12,4:      r = ');
  55.     WriteReal(Monitor,r,12,4);
  56.     WriteLn;
  57.     WriteLn;
  58.     WriteLn;
  59.     Write('weiter mit beliebiger Taste ');
  60.     r := r * (-10);
  61.     c := ReadKey;
  62.   END;
  63. END.
  64. (* ------------------------------------------------------ *)
  65. (*               Ende von REALDEMO.PAS                    *)