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 
 While- Bedingung
Autor: Karl-Jürgen Hilger (---.dyn.telefonica.de)
Datum:   25.07.15 13:36

Hallo,

ich habe ein Problem mit While- Bedingungen, das ich nicht klären kann.

Es soll in Schritten von einem Zehntel von 0 bis 1 gezählt werden.
Der Wert 1 ist die Bedingung für den Abbruch der Schleife.
Demnach ist 0.9 der letzte gültige Wert für einen Durchlauf der Schleife.

In meinem Beispiel habe ich das in 2 Variationen umgesetzt, die beide fehlschlagen.

Variation 1 "bemerkt" die Abbruch-Bedingung nicht und läuft ewig weiter.
Variation 2 macht noch einen Schleifendurchlauf, obwohl die Bedingung nicht mehr gegeben ist.

Daß beide Variationen aber logisch richtig sind, kann man einfach prüfen, indem man keine Brüche benutzt.
Zum Beispiel:

zeit.aktuell = 0
zeit.schritt = 1
zeit.stopbedingung = 10

Nun arbeiten beide Variationen korrekt von 0-9.
Wo liegt mein Fehler?
XProfan- Version ist die aktuelle X3.

Gruß
KJ

 CLS
 
 Declare Double zeit.aktuell, \
                zeit.schritt, \
                zeit.stopbedingung
 
 zeit.aktuell        = 0
 zeit.schritt        = 0.1
 zeit.stopbedingung  = 1.0
 
 var Integer true = 1
 
 // Bitte Variation_1 oder Variation_2 aktivieren
 Variation_1
 //Variation_2
 
 WaitInput
 
 Proc Variation_1
   While true
     zeige_abgelaufene_zeit
     zeit.aktuell = zeit.aktuell + zeit.schritt
     true = (zeit.aktuell <> zeit.stopbedingung)//
   EndWhile
 EndProc
 
 Proc Variation_2
   While zeit.aktuell < zeit.stopbedingung
     zeige_abgelaufene_zeit
     zeit.aktuell = zeit.aktuell + zeit.schritt
   EndWhile
 EndProc
 
 Proc zeige_abgelaufene_zeit
   Locate 15,35
   Print zeit.aktuell
   Sleep 1000
 EndProc
 




Nachricht bearbeitet (25.07.15 14:33)

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

 Beiträge Autor  Datum
 While- Bedingung  Neu
Karl-Jürgen Hilger 25.07.15 13:36 
 Re: While- Bedingung  Neu
Heinz Brill 25.07.15 14:58 
 Re: While- Bedingung  Neu
Karl-Jürgen Hilger 25.07.15 16:01 
 Re: While- Bedingung  Neu
Heinz Brill 25.07.15 16:27 
 Re: While- Bedingung  Neu
RGH 25.07.15 18:25 
 Re: Danke  Neu
Karl-Jürgen Hilger 25.07.15 19:46 
 Re: While- Bedingung  Neu
Michael Wodrich 27.07.15 01:05 


 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