MELFA-BASIC-V-Befehle
6.3.41
For-Next (For-Next)
Funktion: Programmschleife
Dieser Befehl bewirkt eine Wiederholung des Programmteils, der zwischen der For-Anweisung und
der Next-Anweisung steht. Der Programmteil wird solange wiederholt, bis die Abbruchbedingungen
erfüllt sind.
Eingabeformat
For
:
Next
<Zähler>
<Vorgabewert>
<Endwert>
<Schrittwert>
Programmbeispiel
Programm zur Addition der Zahlen 1 bis 10
1 MSUM = 0
2 For M1 = 1 To 10
3 MSUM = MSUM + M1
4 Next M1
Speichert das Produkt zweier numerischer Variablen in eine zweidimensionale Feldvariable (Beispiel
für verschachtelte For-Next-Programmschleifen)
1 Dim MBOX(10,10)
2 For M1 = 1 To 10 Step 1
3 For M2 = 1 To 10 Step 1
4 MBOX(M1,M2) = M1 * M2
5 Next M2
6 Next M1
CR750/CR751
<Zähler> = <Vorgabewert> To <Endwert>[Step<Schrittwert>]
[<Zähler 1> [,<Zähler 2] ...]
Der numerische Datentyp gibt die Anzahl der Wiederholungen
der Programmschleife an.
Gilt auch für Zähler 1 und Zähler 2 usw.
Gibt den Startwert des Zählers vor
Gibt den Endwert des Zählers vor
Legt die Schrittweite des Zählers fest
Die Angabe des Wertes kann entfallen.
'Weist MSUM den Wert 0 zu
'Erhöht den Zähler der numerischen Variablen
M1 von 1 bis 10 um 1
'Addiert M1 zu der numerischen Variablen MSUM
'Sprung zum Programschritt 2
'Reserviert Speicherplatz für eine 10 × 10 Feldvariable
'Erhöht den Zähler der numerischen Variablen M1 von 1
bis 10 um 1 und springt zum Programmschritt 7, sobald der
Wert 10 überschritten ist („STEP 1" kann weggelassen werden).
'Erhöht den Zähler der numerischen Variablen M2 von 1
bis 10 um 1 und springt zum Programmschritt 6, sobald der
Wert 10 überschritten ist („STEP 1" kann weggelassen werden).
'Ersetzt die Elemente der Feldvariablen MBOX(M1,M2)
durch das Produkt M1 * M2.
'Sprung zum Programmschritt 3
'Sprung zum Programmschritt 2
Detaillierte Befehlsbeschreibung
6 - 89