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

• #559 Rover623 félisten QuarK #557

  Új Válasz 2005-01-25 23:14:43 #559

  Ú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

  

  Rover623

  félisten

  válasz QuarK #557 üzenetére

  Ráadásul fiatal lehettél és bohó...és nem kellett optimalizálnod sem...
  Ez kb. ugyanazt tudja, ugye...?
  
  function Power( Base : real; Exponent: integer): real;
  var i : integer;
  pow : real;
  begin
  if ( Exponent = 0) then
  Power := 1;
  else
  begin
  pow := Base;
  for i := 2 to Abs(Exponent) do
  pow := pow * Base;
  if ( Exponent < 0) then
  Power := 1 / pow
  else
  Power := pow;
  end;
  end;

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