warum 30 und nicht 35?!?

[kkkiwi]

Hallo ihr

warum gibt diese Function 30 aus, und nicht 35!?

Delphi-Quellcode:

function lies_zahl(z:integer):integer;
begin
if z>1 then
begin lies_zahl:= lies_zahl(z-1)+z*z; end
else lies_zahl:=1;
end;

procdure TForm1.Button1click(sender: TObject);
begin
edit1.text:=inttostr(Lies_zahl(4));
end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[Niels]

weil 1 + 4 + 9 + 16 = 30

MfG Niels

[tommie-lie]

Erster Aufruf: lies_zahl(3)+4*4 = lies_zahl(3) + 16
Zweiter Aufruf: lies_zahl(2) + 9
Dritte Aufruf: lies_zahl(1) + 4
Vierter Aufruf: 1
Ergebnis: 1 + 4 + 9 + 16 = 30

[kkkiwi]

warum rechne ich das Lies_zahl (z-1) nicht jedes mal noch dazu....
also 3 +4*4?

[Niels]

lieszahl(4-1) + 4*4 = lieszahl(3-1) + 3*3 + 4*4 = lieszahl(2-1) + 2*2 + 3*3 + 4*4 = 1 + 2*2 + 3*3 + 4*4 = 30

mfg niels

[malo]

Das "if z > 1" kannst du auch umgehen, indem du den Integer-Parameter durch einen Cardinal-Parameter ersetzt

[kkkiwi]

also erst mal danke

ich glaub das ich gard ziemlich auf dem schlauch steh *sorry*

aber warum

gilt jedes mal:
lieszahl4-1) + 4*4 = lieszahl(3-1) + 3*3 + 4*4 usw...

[leddl]

Sowas nennt sich Rekursion.
[Edit]
Damit ist gemeint, daß eine Funktion sich selbst immer wieder mit veränderten Parametern aufruft, um so schlußendlich zu einem Ergebnis zu kommen. In deinem Fall nimmt halt die Zahl immer ab, bis sie 1 ist. Addiert wird dann immer das Ergebnis des nächsten Funtkionsaufrufes. Da dort aber wieder die Funktion aufgerufen wird, wird erst dieser Aufruf verarbeitet und das Ergebnis addiert, usw....
[/Edit]

Was du meinst, könntest du so lösen:

Delphi-Quellcode:

function lies_zahl(z:integer):integer; 
var i : Integer;
begin 
  Result := 1;
  for i := z DownTo 2 Do  
    Result := Result + (z-1) + z*z;
end;

PS: Benutz das nächste mal die [delphi]-Tags für den Quelltext! Sieht einfach besser aus!

[kkkiwi]

werd ich machen


--> dann hätte ich das selbe programm aber nur anderst geschrieben?, oder!?

also bei diesen rekursions programmen, rufe ich immer wieder meine zahl auf, subtrahiere in dem fall -1 und behalte alle rechnungen von vorher bei, und addier sie dann alle zusammen, und des wars dann?!?

[omata]

Moin,

und ich versuche mich auch nochmal dran...

Es gilt: Punkt vor Strichrechnung

1. Aufruf: (3) + 4 * 4
2. Aufruf: (2) + 3 * 3
3. Aufruf: (1) + 2 * 2

Beim Zurücklaufen wird dann gerechnet...

Delphi-Quellcode:

Aufruf 3:  1 + 2 * 2 =  5
            ____________|
           |            
Aufruf 2:  5 + 3 * 3 = 14
            ____________|
           |
Aufruf 1: 14 + 4 * 4 = 30
            ____________|
           |
        Ergebnis: 30

MfG
Thorsten