Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: IsPowerOfN

    Delphi
    by himitsu, 26. Okt 2009
  function IsPowerOn: Boolean;
  begin
  Result := True;
  end;
  
  function IsPowerOff: Boolean;
  begin
  Result := False;
  end;
• Forum: Programmieren allgemein

  Re: IsPowerOfN

    Delphi
    by himitsu, 23. Okt 2009
  sollte das Ergebnis von Ln nicht immer größer als 0 sein, wenn auch der übergebene Wert größer 0 ist?
• Forum: Programmieren allgemein

  Re: IsPowerOfN

    Delphi
    by himitsu, 23. Okt 2009
  function LgX(base, number: Double): Double; //inline;
  begin
  if (base <= 0.0) or (number <= 0.0) then
  System.Error(reInvalidOp);
  Result := Ln(number) / Ln(base);
  end;
  
  function IsPowerOfX(base, number: Double): Boolean; //inline;
  begin
  Result := Frac(LgX(base, number)) < 1e-9;