FSR - QBasic Seite 11

AG Informatik

Eine sehr einfache Schleifenkonstruktion ist auch die WHILE...WEND-Schleife. Die WHILE...WEND-Schleife kann eingesetzt werden, wenn die Anzahl der Wiederholungen nicht schon im voraus feststeht.

Die folgende WHILE...WEND-Schleife bewirkt das gleiche, wie eine FOR...NEXT-Schleife.

       REM WW1
       CLS
       zaehler = 1
       Ende = 10
       WHILE zaehler <= Ende
         PRINT zaehler; " ";
         LET zaehler = zaehler + 1
       WEND
       PRINT

Die folgende WHILE...WEND-Schleife liest durch den Befehl READ aus den DATA-Zeilen kurze Texte ein. Die Anzahl der einzulesenden Wörter ist nicht im voraus festgelegt, sie kann jederzeit verändert werden (prüfe dies!). Wichtig ist, daß als letztes Wort ein leeres Wort ("") eingelesen wird, weil nur dann die Schleife beendet wird.
```
       REM WW2
       CLS
       RESTORE TextDaten
       LET text$ = "*"
       WHILE text$ <> ""
         READ text$
         PRINT text$; " ";
       WEND
       PRINT
       TextDaten:
       DATA "Ich","und","Du,","Müller's","Esel","der","bist","Du!"
       DATA ""
```
Mit dem Befehl RESTORE kann der Lesezeiger für den READ-Befehl auf eine beliebige Programmstelle umgelenkt werden.
Ändere im obigen Programm die Zeile mit RESTORE zu RESTORE Sender und füge an das Programm die folgenden Zeilen an:
```
       Sender:
       DATA ARD,ZDF,S3,RTL,RTL2,SAT 1,PRO 7,Kabelkanal,Premiere
       DATA ""
```