Thema: Delphi Wurzel ziehen

Einzelnen Beitrag anzeigen

DevilsCamp
(Gast)

n/a Beiträge
 
#12

Re: Wurzel ziehen

  Alt 29. Aug 2005, 14:36
Man kann aber auch mithilfe der Math-Unit und der Power-Funktion Wurzeln ziehen (hier sogar beliebige )

Delphi-Quellcode:
procedure Test;
var
  qw : Extended;
  cw : Extended;
  bw : Extended;
begin
// Quadrat-Wurzel von a:
  qw := Power(a, 0.5);

// Kubikwurzel von a:
  cw := Power(a, 1.0/3);

// Wurzel aus a*a*a:
  bw := Power(a, 3.0/2);
end;
  Mit Zitat antworten Zitat