Procedure

Beitrag von **NicTheQuick** » 03.04.2005 14:11

Komischerweise funktioniert eine Rekursion aber problemlos.

a = 10

Gosub TestGosub

Debug a

End

TestGosub:
  a - 1
  If a > 1
    Gosub TestGosub
  EndIf
Return

Beitrag von **Falko** » 03.04.2005 15:08

Rekursiv? Dann ist es mit Goto ähnlich.

Code: Alles auswählen

a = 10

Gosub TestGosub

Debug a

End

TestGosub:
  Debug a
  a - 1
  If a > 1
    Goto TestGosub
  EndIf
Return

freedimension · Beitrag von **freedimension** » 03.04.2005 15:55

Die Rekursion mit Prozeduren zeichnet sich dadurch aus, dass du für jeden Prozeduraufruf "frisch" deklarierte Variablen zur Verfügung hast, dir also Werte rückwirkend auf's Einfachste merken kannst. Das a aus deinem Beispiel wird ja durchweg benutzt.
Versucht einmal mit Gosub eine wirklich nützliche rekursive Funktion zu schreiben! Da musst du alle wichtigen Werte selber auf einen Stack legen und verwalten.

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 03.04.2005 16:05

freedimension hat geschrieben:Da musst du alle wichtigen Werte selber auf einen Stack legen und verwalten.

sic!

ts-soft · Beitrag von **ts-soft** » 03.04.2005 16:05

Die Zeit, die man durch Gosub (UrBefehl aus den 60-ern) spart, die nächsten 50 Jahre addieren, es wird nicht reichen ne Tasse Kaffee zu trinken

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 03.04.2005 16:10

im endeffekt ist ja GOSUB nix weiter als ein wrapper des ASM-Befehls JumpToSubroutine...

Beitrag von **Falko** » 03.04.2005 18:47

Was sind dann wohl die anderen PB-Befehle?

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 03.04.2005 18:50

die anderen befehle sind mehr oder weniger komplexe ASM-Routinen.

lediglich GOTO und GUSUB entsprechen fast 1:1 ihren ASM-Kollegen.