Potenz einer Zahl

[DeddyH]

Zitat:

Delphi-Quellcode:

 if Exponent = 0 then
  Exit

Was soll denn hier zurückgegeben werden? Tipp: Eine Zahl hoch 0 ergibt 1.

[leddl]

Und warum dann jetzt unbedingt die rekursive Variante, wenn Delphi doch Power mitliefert?

[DeddyH]

Wenn ich das richtig verstanden habe, geht es ja gerade um eine eigene Funktion.

[leddl]

Zitat von DeddyH:

Wenn ich das richtig verstanden habe, geht es ja gerade um eine eigene Funktion.

Äääähm, Matze89 ist nicht der ursprüngliche Threadersteller... Und wenn er schon einfach nur eine hier gepostete Funktion abschreiben will, dann kann er doch auch gleich Bordmittel benutzen, oder?

[Sharky]

Zitat von DeddyH:

[...]Öhh, wieso? Es geht doch immer noch um eine Funktion zur Berechnung der Potenz.

Sorry,

mein Fehler. Ich habe da etwas falsch gelesen.

[Matze89]

[c function Power(basis, Exponent: Extended):Extended;
begin
power(basis,Exponent);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Basis,Exponent,Ergebnis : Integer;
begin
Basis:= StrToInt(Edit1.Text);
Exponent:= StrToInt(Edit2.Text);
Edit3.Text:= IntToStr(Power(basis, Exponent));

end;

end.


ich hab es jetz mal mit Power probiert, komme da aber auch nicht weiter.

[DeddyH]

Sry, aber vielleicht solltest Du Dich nochmal mit den Grundlagen vertraut machen (insbesondere was Funktionen angeht).

[Macci]

So geht's

Delphi-Quellcode:

function IntPower(X: Extended; I: Integer): Extended;
var
  Y: Integer;
begin
  Y := Abs(I);
  Result := 1.0;
  while Y > 0 do begin
    while not Odd(Y) do
    begin
      Y := Y shr 1;
      X := X * X
    end;
    Dec(Y);
    Result := Result * X
  end;
  if I < 0 then Result := 1.0 / Result
end;

(aus den Delphi-Dateien)

[rollstuhlfahrer]

Zitat von RavenIV:

Aber die Vorgabe ist, dass er es mit einer for-Schleife machen muss.

Wo ist denn die For-Schleife hinverschwunden? (Auch wenn die Lösung phantastisch funktionieren sollte)

Zitat von Matze89:

Delphi-Quellcode:

{ function Power(basis, Exponent: Extended):Extended;
begin
  power(basis,Exponent);
end;}

procedure TForm1.Button1Click(Sender: TObject);
var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(Edit1.Text);
 Exponent:= StrToInt(Edit2.Text);
// Edit3.Text:= IntToStr(Power(basis, Exponent));
  Edit3.Text := FloatToStr(Power(basis, exponent));

end;

So dürfte es dann gehen

Zitat von Matze89:

zum beispiel hab ich die Basis 3 eingegeben, den Exponenten 2 und kam auf das Ergebniss von 169787972918927484
aber bei Basis 2 und Exponent 3 ging es irgendwie, da kamm ich auch auf 8

Schon mal die Schleife debuggt? Die Zahl sieht aus, als ob sie die Obergrenze von Int64 wäre.

Bernhard

[Matze89]

Hab Schleife noch nich debuggt.
thx, habs jetz aba och hinbekommen mit der Potenzrechnung.