Potenzberechnung mit Hilfe einer Rekursion

[Xbe]

Hallo Leute^^

nach langen hin und her, entschloss ich mich info bis zur 13 durchzuziehen, jedoch verzweifle ich an so einigen Dingen, die Theorie ist meist leicht zu verstehen, jedoch scheiter ich jedesmal bei der Praxis...

Nun zu meiner Frage: Als Hausaufgabe soll ich ein Programm zur Potenzberechnung mit Hilfe einer Rekursion erstellen. Da ich bereits an der einfachen Aufgabe dies mit Hilfe einer Schleife zu machen , frag ich nun euch!

Danke schon mal im vorraus!

[Wolfgang Mix]

Erstmal herzlich willkommen in der DP

Es war schon einmal so ein Thread, schau' 'malhier

Gruß

Wolfgang

[Xbe]

Danke schön

Hab das auch schon gefunden, das Problem ist das hier praktisch nicht meine Bedingungen erfüllt werden. Bei mir soll es ja nicht mit einer Schleife berechnet werden. Kurz nicht mit einer Iteration sondern Rekursion!

[Wolfgang Mix]

Schau' Dir noch einmal Post #7 von dem Link an.
Da ruft die Funktion Potenz sich innerhalb der Funktion selber auf.
Ich denke, so etwas nennt man rekursiv
Lies aber noch den Thread einmal komplett.

Gruß

Wolfgang

[Xbe]

ok versteh ich mehr oder minder, nur worüber ich immer steuper ist diese zeile:

function Potenz(Basis, Exponent: Integer): Int64;

...kann damit nix anfangen

Gruß Xbe

[Mithrandir]

Das ist der Funktionskopf. Delphi Grundlagen, ick hör dir trapsen?

[Wolfgang Mix]

@Xbe

Du übergibst der Funktion mit z.B. Button1 für Basis den Wert 5
und als Exponent den Wert 6. Die Funktion berechnet 5 hoch 6 und gibt als
Ergebnis (Result) de ausgerechneten Wert als (große) Ganzzahl zurück (sh. Int64)
in der OH.

Gruß

Wolfgang

[Xbe]

....*duck

Grundlagen...*pfeif

naja bei uns sieht der Kopf n bissl anders aus (mal nen BSP) -> procedure TForm1.Button1Click(Sender: TObject); [edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Aphton]

Das ist eine Klassenmethode, deshalb steht auch der Klassename (TForm) dabei.
Lose Methoden werden eben ohne diese Bezeichnung definiert und sind somit nicht einer Klasse angebunden.

Zu deinem Problem:

Code:

 * Routine:
 1. Ist Exponent = 0, dann gebe 1 zurück
 2. Ist Exponent = 1, dann gebe Base zurück
 3. Ansonsten (hier kommt die Rekursion):
    Gebe Base * Routine (mit Exponent - 1)

Beispiel:
  Base: 2
  Exponent: 3

  (3): 2 * Routine( .. 2 ) 
-> 2 * 2 * Routine( ... 1 ) 
-> 2 * 2 * 2 * Routine( ... 0 ) 
-> 2 * 2 * 2 * 1  

Und somit ergibt sich 8

MfG

[mkinzler]

Zitat:

naja bei uns sieht der Kopf n bissl anders aus (mal nen BSP) -> procedure TForm1.Button1Click(Sender: TObject);

Das ist eine Methode, grundsätzlich aber sehr ähnlich