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 
 Re: Bewährte Proc nicht mehrfach aufrufbar
Autor: p. specht (---.aon.at)
Datum:   20.08.18 16:40

Setsize oder Clear, beide bewirken keine Besserung.
Das Problem liegt darin, dass While, Whileloop und Repeat mit der Übergabe an das While 1 der Proc in XProfan 11.2a scheinbar interferieren. Verzichtet man auf Whileloop und bildet das Ganze per ´Goto mit inc Schleifenvariable" nach, dann klappt alles!

Einer von zwei Wegen zum Workaround sieht daher so aus:
      Windowtitle "Workaround mit GOTO"
      CLS:Declare F&[],Zahl&
 
 Zahl&=5:luup:
 
      clear F&[]:print getPrimFact(Zahl&,F&[])
 
 inc zahl&:case zahl&<=7:goto "luup"
 
      Print "-- OK ---":Waitinput:End
  
 Proc getPrimFact :parameters K&,FF&[]:var divi&=2
  :While 1:If (K& mod divi&)=0:FF&[sizeof(FF&[])]=divi&:K&=K&\divis&
  case K&=1:Return sizeof(FF&[]):Else:inc divisor&:EndIf :EndWhile
  EndProc
  


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

Nachricht bearbeitet (20.08.18 16:50)

 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