Loops/Downward for: Difference between revisions

Content added Content deleted
m (→‎{{header|GW-BASIC}}: Works with BASICA.)
(Dialects of BASIC moved to the BASIC section.)
Line 507: Line 507:
20 PRINT I
20 PRINT I
30 NEXT</syntaxhighlight>
30 NEXT</syntaxhighlight>

==={{header|FBSL}}===
<syntaxhighlight lang="qbasic">#APPTYPE CONSOLE

FOR DIM i = 10 DOWNTO 0
PRINT i
NEXT

PAUSE
</syntaxhighlight>


==={{header|FreeBASIC}}===
==={{header|FreeBASIC}}===
Line 608: Line 618:
NEXT</syntaxhighlight>
NEXT</syntaxhighlight>


==={{header|QBASIC}}===
==={{header|QuickBASIC}}===
<syntaxhighlight lang="qbasic">for i = 10 to 0 step -1
<syntaxhighlight lang="qbasic">for i = 10 to 0 step -1
print i
print i
Line 652: Line 662:
70 END</syntaxhighlight>
70 END</syntaxhighlight>


==={{header|Yabasic}}===
==={{header|VBA}}===
<syntaxhighlight lang="vb">For i = 10 To 0 Step -1
{{works with|QBasic}}
Debug.Print i
<syntaxhighlight lang="yabasic">for i = 10 to 0 step -1
Next i</syntaxhighlight>
print i, " ";

next i
==={{header|Visual Basic .NET}}===
print
end</syntaxhighlight>
<syntaxhighlight lang="vbnet">For i = 10 To 0 Step -1
Console.WriteLine(i)
Next</syntaxhighlight>


==={{header|XBasic}}===
==={{header|XBasic}}===
Line 672: Line 684:
END FUNCTION
END FUNCTION
END PROGRAM</syntaxhighlight>
END PROGRAM</syntaxhighlight>

==={{header|Yabasic}}===
{{works with|QBasic}}
<syntaxhighlight lang="yabasic">for i = 10 to 0 step -1
print i, " ";
next i
print
end</syntaxhighlight>


==={{header|ZX Spectrum Basic}}===
==={{header|ZX Spectrum Basic}}===
Line 1,161: Line 1,181:
}
}
}
}
</syntaxhighlight>

=={{header|FBSL}}==
<syntaxhighlight lang="qbasic">#APPTYPE CONSOLE

FOR DIM i = 10 DOWNTO 0
PRINT i
NEXT

PAUSE
</syntaxhighlight>
</syntaxhighlight>


Line 2,243: Line 2,253:
<syntaxhighlight lang="vala">for (int i = 10; i >= 0; --i)
<syntaxhighlight lang="vala">for (int i = 10; i >= 0; --i)
stdout.printf("%d\n", i);</syntaxhighlight>
stdout.printf("%d\n", i);</syntaxhighlight>

=={{header|VBA}}==
<syntaxhighlight lang="vb">For i = 10 To 0 Step -1
Debug.Print i
Next i</syntaxhighlight>


=={{header|Vedit macro language}}==
=={{header|Vedit macro language}}==
Line 2,266: Line 2,271:
endmodule
endmodule
</syntaxhighlight>
</syntaxhighlight>

=={{header|Visual Basic .NET}}==
<syntaxhighlight lang="vbnet">For i = 10 To 0 Step -1
Console.WriteLine(i)
Next</syntaxhighlight>


=={{header|V (Vlang)}}==
=={{header|V (Vlang)}}==