![]() |
Re: Potenz einer Zahl
Zitat:
|
Re: Potenz einer Zahl
:gruebel: Und warum dann jetzt unbedingt die rekursive Variante, wenn Delphi doch
![]() |
Re: Potenz einer Zahl
Wenn ich das richtig verstanden habe, geht es ja gerade um eine eigene Funktion.
|
Re: Potenz einer Zahl
Zitat:
|
Re: Potenz einer Zahl
Zitat:
mein Fehler. Ich habe da etwas falsch gelesen. |
Re: Potenz einer Zahl
[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. |
Re: Potenz einer Zahl
Sry, aber vielleicht solltest Du Dich nochmal mit den Grundlagen vertraut machen (insbesondere was Funktionen angeht).
|
Re: Potenz einer Zahl
So geht's
Delphi-Quellcode:
(aus den Delphi-Dateien)
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; |
Re: Potenz einer Zahl
Zitat:
Zitat:
Zitat:
Bernhard |
Re: Potenz einer Zahl
Hab Schleife noch nich debuggt.
thx, habs jetz aba och hinbekommen mit der Potenzrechnung. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz