e-mail: Alfred Nussbaumer
Zum Inhaltsverzeichnis zurück
Programmschleifen werden verwendet, wenn ein oder mehrere Befehle wiederholt ausgeführt werden müssen. Ist die Anzahl der Durchläufe bekannt, verwendet man eine sogenannte Zählschleife, andernfalls werden While- oder Repeat-Schleifenverwendet.
:For (Zählvariable, Anfangswert, Endwert, Inkrement) :Aktion1 :Aktion2 :... :End Ende der Zählschleife :Anweisung Fortsetzung des Programms
Fehlt das Inkrement (die Schrittweite), wird sie intern auf den Wert 1 gesetzt.
PROGRAM:K3 :ClLCD :For(I,1,21) :Outpt(4,I,"*") :End |
Die obigen Programmanweisungen füllen die 4. Zeile des
Displays mit 21 "Sternchen".
Was bewirkt das folgende Programm?
PROGRAM:K4 :ClLCD :For(Z,1,8) :For(S,1,21) :Outpt(Z,S,"*") :End :End |
:While Bedingung :Aktion1 :Aktion2 :... :End Ende der While-Schleife :Anweisung Fortsetzung des Programms
Die Schleife wird so lange ausgeführt, als die Bedingung erfüllt ist. Die Bedingung wird am Anfang abgefragt, daher ist es möglich, dass die Schleife nicht ausgeführt wird. Man nennt solche Schleifen auch kopfgesteurte Schleifen.
:Repeat Bedingung :Aktion1 :Aktion2 :... :End Ende der Repeat-Schleife :Anweisung Fortsetzung des Programms
Diese Schleife wird minestens einmal (!) durchlaufen, da die Bedingung erst am Ende abgefragt wird. Man nennt diese Schleifen auch fußgesteuerte Schleifen.
Beachte, dass alle drei Schleifen geschachtelt werden können...
Beispiel: Summe von beliebig vielen ZahlenPROGRAM:SUMME :0->SUM :Disp "Anzahl der Zahlen" :Prompt Z :FOR(N,1,Z) :Prompt Zahl :SUM+Zahl->SUM :End :Disp "Gesamtsumme",SUM |