Potenz einer Zahl

[Dax]

Zitat:

Zitat von RavenIV

Da muss noch mehr korrigiert werden.
So würde IMMER 1 rauskommen, weil am Ende der Rekursion der Exponent auf 0 steht.

Eigentlich nicht. In höheren Ebenen wird sukzessive mit Basis multipliziert.

[RavenIV]

Zitat:

Zitat von Dax

Zitat:

Zitat von RavenIV

Da muss noch mehr korrigiert werden.
So würde IMMER 1 rauskommen, weil am Ende der Rekursion der Exponent auf 0 steht.

Eigentlich nicht. In höheren Ebenen wird sukzessive mit Basis multipliziert.

Du hast Recht.
Ist doch schon ne Weile her, dass ich effektiv mit Rekursion gearbeitet habe.

[Ultimator]

Und was ist, wenn man 5^(-1/2) berechnen soll? Das geht doch mit keiner Schleife, oder?

[fLaSh11]

Doch, geht genauso!
Bei Gleitkommazahlen als Exponenten wirds mit der Methode schwierig. Nutze hier Power. Mit Negativen ist es auch einfach. Zu Beginn deiner Potenzier-Funktion den Kehrwert der Basis bilden und dann normal weiterrechnen.

[RavenIV]

Zitat:

Zitat von Ultimator

Und was ist, wenn man 5^(-1/2) berechnen soll? Das geht doch mit keiner Schleife, oder?

Ist das überhaupt eine gültige Formel.

x^(1/2) wäre ja Wurzel(x).
aber x^(-1/2)?

Also der Windows-Taschenrechner (in wissenschaftlicher Ansicht) akzeptiert das nicht.

[Dax]

Zitat:

Zitat von RavenIV

x^(1/2) wäre ja Wurzel(x).
aber x^(-1/2)?

Das wäre 1 / x^0.5

[Khabarakh]

Zitat:

Zitat von RavenIV

Also der Windows-Taschenrechner (in wissenschaftlicher Ansicht) akzeptiert das nicht.

Natürlich tut er das, so abartig schlecht ist er nun auch wieder nicht...

... oder ist das ein Vista-Feature :mrgreen: ?

[Medium]

x^k = exp(k*ln(x))

Und nun ratet mal, was die Funktion Power() macht. Für ganzzahlige Exponenten, positive und negative, gibts eine sehr hübsche kleine handassemblierte Funktion. Die ist, sinnigerweise, iterativ.

[dominikkv]

Ist zwar alles schön und gut aber er hat die Hausaufgabe das mit einer Schleife zu lösen.
Dass kann man natürlich mit Power etc machen, ist aber nicht Sinn der Übung.

Wie gasagt, selbst nachdenken oder bei Neutral General spicken^^

[Matze89]

[ function Potenz(Basis, Exponent: Integer): Int64;
begin
if Exponent = 0 then
Exit
else
Result := Basis * Potenz(Basis, Exponent - 1);
end;

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

end;

end.
]

kann mir aml jem. sagen, was hier falsch ist? ich möchte, das ich eine Zahl eingebeben, und dann will ich die Potenz berechnen.