Új hozzászólás Aktív témák

• #552 QuarK senior tag

  Új Válasz 2005-01-25 19:09:15 #552

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  QuarK

  senior tag

  Ebben a (már bezárt) totyikban (Bővebben: link) kérdezték (ha jól értelmeztem), hogy lehet negatív kitevővel hatványozni pascalban. Írtam egy kis saját pow() függvényt, ami pozitív, negatív kitevőkkel is jól működik. Hátha a srác idekukkant, vagy bárki másnak kellene
  
  function Power( Base : real; Exponent: integer): real;
  var i : integer;
      pow : real;
   begin
    pow := Base;
    if ( Abs( Exponent) = 2) then
     pow := Base * Base
    else if ( Abs( Exponent) = 1) then
     pow := Base
    else if ( Exponent = 0) then
     pow := 1;
    else
     begin
      if ( Exponent > 0) then
       begin
        for i := 2 to Exponent do
         pow := pow * Base;
       end
      else
       begin
        for i := -2 downto Exponent do
         pow := pow * Base;
       end;
     end;
    if ( Exponent < 0) then
     Power := 1 / pow
    else
     Power := pow;
   end;
  

Új hozzászólás Aktív témák