home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / wurzeln / mathe.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-12-18  |  1.3 KB  |  44 lines
  1. (* ------------------------------------------------- *)
  2. (*                    MATHE.PAS                      *)
  3. (*        (c) 1991 Dirk Groneberg & DMV-Verlag       *)
  4. (* ------------------------------------------------- *)
  5. PROGRAM Mathe;
  6.  
  7.   FUNCTION Pot(b, e : REAL) : REAL;
  8.   BEGIN
  9.     IF (e = 0) AND (b <> 0) THEN
  10.       Pot := 1
  11.     ELSE IF (b = 0) AND (e <> 0) THEN
  12.       Pot := 0
  13.     ELSE IF (b < 0) AND (Odd(Trunc(e)) = TRUE) AND
  14.             (e = Int(e)) THEN
  15.       Pot := -(Exp(Ln(Abs(b))/(1/e)))
  16.     ELSE IF (b < 0) AND (Odd(Trunc(e)) = FALSE) AND
  17.             (e = int(e)) THEN
  18.       Pot := Exp(Ln(Abs(b))/(1/e))
  19.     ELSE
  20.       Pot := Exp(Ln(b)/(1/e))
  21.   END;
  22.  
  23.   FUNCTION Wurzel(e, r : REAL) : REAL;
  24.   BEGIN
  25.     IF (r < 0) AND (e <> 0) AND (e = Int(e)) AND
  26.        (Odd(Trunc(e)) = TRUE) THEN
  27.       Wurzel := -(Exp(Ln(Abs(r))/e))
  28.     ELSE IF (r = 0) AND (e <> 0) THEN
  29.       Wurzel := 0
  30.     ELSE IF e = 1 THEN
  31.       Wurzel := r
  32.     ELSE
  33.       Wurzel := Exp(Ln(r)/e);
  34.   END;
  35.  
  36. BEGIN
  37.   Write  (' 2.5 hoch -4.8        = ');
  38.   WriteLn(Pot(2.5,-4.8):2:2);
  39.   Write  ('-3.5te Wurzel aus 1.5 = ');
  40.   Writeln(Wurzel(-3.5,1.5):2:2);
  41. END.
  42. (* ------------------------------------------------- *)
  43. (*              Ende von MATHE.PAS                   *)
  44.