Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
1 - Einsteigerfragen

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Bewährte Proc nicht mehrfach aufrufbar
Autor: p. specht (---.aon.at)
Datum:   19.08.18 21:54

Irgendwas klappt nicht, die Proc getPrimeFactors() wurde aber schon mehrfach mit Erfolg verwendet. Einzeln klappt sie auch weiterhin, nur: Wenn man sie aus dieser Schleife mehrfach aufruft, kommt beim 2. Durchgang die Fehlermeldung "Variable nicht deklariert: K&" in Zeile 14 "if (k& mod divisor)". Der Parameter K& wurde aber erfolgreich übergeben, man kann ihn im Proc ausdrucken lassen.

Stehe auf der Leitung ... gut, daß ich schon graue Haare habe ;-). Ach so ja: XProfan11.2a, vor Jahren gekauft. Workaround?
Gruss

EDIT: Mit X4a und mit Free32 Interpreter klappt es: Kaufargument!
 CLS
 Declare F&[],Zahl&
 Whileloop 5,7:Zahl&=&Loop
   clear F&[]
   print getPrimeFactors(Zahl&,F&[])
 EndWhile 'Nur erster Durchlauf klappt!
 Print "-- OK ---"
 Waitinput
 
 Proc getPrimeFactors :parameters K&,FF&[]
 var divisor&=2
 While 1
 
     If (K& mod divisor&)=0
       FF&[sizeof(FF&[])]=divisor&
       K& = K& \ divisor&
       case K&=1:Return sizeof(FF&[])
     Else
       inc divisor&
     EndIf
 
 EndWhile
 EndProc
 


____
Ein richtiges Problem hat keine Lösung, nur Näherungen!

Nachricht bearbeitet (19.08.18 22:21)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 19.08.18 21:54 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
Jörg Sellmeyer 19.08.18 22:30 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 19.08.18 23:16 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
Jörg Sellmeyer 20.08.18 00:42 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 20.08.18 01:10 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
RGH 20.08.18 09:37 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
Michael Wodrich 20.08.18 09:31 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 20.08.18 16:40 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 20.08.18 17:09 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
Arndt Lindner 22.08.18 00:02 
 Re: Bewährte Proc nicht mehrfach aufrufbar  Neu
p. specht 22.08.18 21:55 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org