home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / qpdemo / mathe.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-11  |  2.7 KB  |  98 lines
  1.  
  2. PROGRAM mathe;
  3.  
  4. { MATHE.PAS demonstriert den Einsatz der mathematischen Funktionen, u.a.:
  5.  
  6.      Abs     Int    Odd          Round    Sqrt
  7.      Exp     Ln     Random       Sqr      Trunc
  8.      Frac    Pi     Randomize
  9. }
  10.  
  11. CONST
  12.    prog_name  = 'MATHE ';
  13.    prog_zweck = 'demonstriert viele der mathematischen Routinen.';
  14.  
  15. VAR
  16.    x,y : Real;
  17.    i   : Integer;
  18.  
  19. BEGIN
  20.  
  21.    Writeln( prog_name, prog_zweck );
  22.    Writeln;
  23.  
  24.    Write( 'Geben Sie eine reelle Zahl ein: ' );
  25.    Readln( x );
  26.    Writeln;
  27.    Writeln( 'Funktion   Ergebnis ', x );
  28.    Writeln( '--------   --------------------------------------------------' );
  29.    y := Frac(x);
  30.    Writeln( 'Frac       ', y:12:9 );
  31.    y := Int(x);
  32.    Writeln( 'Int        ', y:3:1 );
  33.    y := Round( x );
  34.    Writeln( 'Round      ', y );
  35.    y := Trunc( x );
  36.    Writeln( 'Trunc      ', y  );
  37.    y:= Exp( x );
  38.    Writeln( 'Exp        ', y );
  39.    IF (x > 0.0) THEN
  40.       BEGIN
  41.     y:= Ln( x );
  42.     Writeln( 'Ln         ', y )
  43.       END;
  44.    IF (x >= 0.0) THEN
  45.       BEGIN
  46.     y:= Sqrt( x );
  47.     Writeln( 'Sqrt      ', y )
  48.       END;
  49.    y := Sqr( x );
  50.    Writeln( 'Sqr       ', y );
  51.    y := Abs( x );
  52.    Writeln( 'Abs       ', y );
  53.    Writeln;
  54.  
  55.    Writeln( 'Funktion   Ergebnis von PI = ', Pi:12:10 );
  56.    Writeln( '--------   --------------------------------------------------' );
  57.    Writeln( 'Frac       ', Frac( Pi ):12:9 );
  58.    Writeln( 'Int        ', Int( Pi ):3:1 );
  59.    Writeln( 'Round      ', Round( Pi ) );
  60.    Writeln( 'Trunc      ', Trunc( Pi ) );
  61.    Writeln( 'Exp        ', Exp( Pi ) );
  62.    Writeln( 'Ln         ', Ln( Pi ) );
  63.    Writeln( 'Sqrt       ', Sqrt( Pi ) );
  64.    Writeln( 'Sqr        ', Sqr( Pi ) );
  65.    Writeln( 'Abs        ', Abs( Pi ) );
  66.    Writeln;
  67.  
  68.    Randomize;
  69.    x := Random;
  70.    Writeln;
  71.    Writeln( 'Funktion   Ergebnis bei Zufallszahl ', x );
  72.    Writeln( '--------   --------------------------------------------------' );
  73.    Writeln( 'Frac       ', Frac( x ):12:9 );
  74.    Writeln( 'Int        ', Int( x ):3:1 );
  75.    Writeln( 'Round      ', Round( x ) );
  76.    Writeln( 'Trunc      ', Trunc( x ) );
  77.    Writeln( 'Exp        ', Exp( x ) );
  78.    IF (x > 0.0) THEN
  79.       Writeln( 'Ln         ', Ln( x ) );
  80.    IF (x >= 0.0) THEN
  81.       Writeln( 'Sqrt       ', Sqrt( x ) );
  82.    Writeln( 'Sqr        ', Sqr( x ) );
  83.    Writeln( 'Abs        ', Abs( x ) );
  84.    Writeln;
  85.  
  86.    i := Random (50);
  87.    Writeln( 'Funktion   Ergebnis bei einer Integer-Zufallszahl ', i );
  88.    Writeln( '--------   --------------------------------------------------' );
  89.    Writeln( 'Odd        ', Odd( i ) );
  90.    Writeln( 'Exp        ', Exp( i ) );
  91.    Writeln( 'Ln         ', Ln( i ) );
  92.    Writeln( 'Sqrt       ', Sqrt( i ) );
  93.    Writeln( 'Sqr        ', Sqr( i ) );
  94.    Writeln( 'Abs        ', Abs( i ) );
  95.  
  96. END.
  97.  
  98.