![]() |
warum 30 und nicht 35?!?
Hallo ihr
warum gibt diese Function 30 aus, und nicht 35!?
Delphi-Quellcode:
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]
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; |
Re: warum 30 und nicht 35?!?
weil 1 + 4 + 9 + 16 = 30
MfG Niels |
Re: warum 30 und nicht 35?!?
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 |
Re: warum 30 und nicht 35?!?
warum rechne ich das Lies_zahl (z-1) nicht jedes mal noch dazu....
also 3 +4*4? |
Re: warum 30 und nicht 35?!?
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 |
Re: warum 30 und nicht 35?!?
Das "if z > 1" kannst du auch umgehen, indem du den Integer-Parameter durch einen Cardinal-Parameter ersetzt :zwinker:
|
Re: warum 30 und nicht 35?!?
also erst mal danke ;)
ich glaub das ich gard ziemlich auf dem schlauch steh *sorry* aber warum gilt jedes mal: lieszahl:(4-1) + 4*4 = lieszahl(3-1) + 3*3 + 4*4 usw... |
Re: warum 30 und nicht 35?!?
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:
PS: Benutz das nächste mal die [delphi]-Tags für den Quelltext! Sieht einfach besser aus! ;)
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; |
Re: warum 30 und nicht 35?!?
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?!? |
Re: warum 30 und nicht 35?!?
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:
MfG
Aufruf 3: 1 + 2 * 2 = 5
____________| | Aufruf 2: 5 + 3 * 3 = 14 ____________| | Aufruf 1: 14 + 4 * 4 = 30 ____________| | Ergebnis: 30 Thorsten |
Re: warum 30 und nicht 35?!?
Zitat:
|
Re: warum 30 und nicht 35?!?
hey danke jetzt hab ichs verstanden...
hab wohl das Zurücklaufen vergessen! |
Re: warum 30 und nicht 35?!?
Zitat:
Es ist (meistens) überhaupt kein Problem, eine Rekursion in eine Schleife umzubasteln. Die Diskussion hatte wir neulich mal in der CodeLib. ;) Das schöne an einer Rekursion ist, daß man in den meisten Fällen recht schnell erkennen kann, was die Funktion eigentlich tut. Um das Schleifen-Pendant der ursprünglichen Funktion zu erhalten, mußt du einfach das "+ (z-1)" entfernen, das hab ich ja nur für dich eingefügt, weil du das ja erwartet hast. Zitat:
//Edit: So, und warum hab ich jetzt mal wieder nicht gesehen, daß während ich geschrieben habe gleich mehrere Beiträge gepostet wurden? :gruebel: Zitat:
Zitat:
//Edit2: Falls jemand das letzte Quote liest und sich wundert: :lol: Hier is noch alles in Ordnung, die Reihenfolge stimmt noch. :lol: |
Re: warum 30 und nicht 35?!?
Zitat:
|
Re: warum 30 und nicht 35?!?
also noch aml danke für die ausführliche erklärung! :thumb:
irgendwie seh ich meiner klausur morgen gaaanz beruhigt entgegen ;) *lach* |
Re: warum 30 und nicht 35?!?
hey hansa siehe erklärung von leddle :)
--> da steht mein zurücklaufen beschrieben.. :lol: |
Re: warum 30 und nicht 35?!?
Zitat:
![]() Unter dem Aspekt wäre ich da nicht so sicher, ob was gescheites dabei rauskommt. :lol: |
Re: warum 30 und nicht 35?!?
Nanana, so schlimm war das Topic im DF aber dann auch nich! Ich mußte da auch erst mal kurz überlegen, woran das ganze liegen könnte.
Aber Hauptsache is, daß ers jetzt kapiert hat. Darum stellt man ja Fragen! :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:06 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-2025 by Thomas Breitkreuz