Loops/Downward for: Difference between revisions
Content deleted Content added
Loops/Downward for en BASIC256 y Yabasic. Agrupados los dialectos BASIC |
|||
Line 374: | Line 374: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
<lang qbasic>for i = 10 to 0 step -1 |
|||
print i |
|||
next i</lang> |
|||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |
||
<lang ApplesoftBasic>FOR I = 10 TO 0 STEP -1 : PRINT I : NEXT I</lang> |
<lang ApplesoftBasic>FOR I = 10 TO 0 STEP -1 : PRINT I : NEXT I</lang> |
||
Line 384: | Line 380: | ||
<lang freebasic>' Downward for |
<lang freebasic>' Downward for |
||
FOR i = 10 DOWNTO 0 : PRINT i : NEXT</lang> |
FOR i = 10 DOWNTO 0 : PRINT i : NEXT</lang> |
||
==={{header|BASIC256}}=== |
|||
<lang BASIC256>for i = 10 to 0 step -1 |
|||
print i; " "; |
|||
next |
|||
print |
|||
end</lang> |
|||
==={{header|BBC BASIC}}=== |
|||
<lang bbcbasic> FOR i% = 10 TO 0 STEP -1 |
|||
PRINT i% |
|||
NEXT</lang> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |
||
Line 389: | Line 397: | ||
20 PRINT I |
20 PRINT I |
||
30 NEXT</lang> |
30 NEXT</lang> |
||
==={{header|FreeBASIC}}=== |
|||
<lang freebasic>' FB 1.05.0 Win64 |
|||
For i As Integer = 10 To 0 Step -1 |
|||
Print i; " "; |
|||
Next |
|||
Print |
|||
Sleep</lang> |
|||
{{out}} |
|||
<pre> |
|||
10 9 8 7 6 5 4 3 2 1 0 |
|||
</pre> |
|||
==={{header|FutureBasic}}=== |
|||
<lang futurebasic> |
|||
include "ConsoleWindow" |
|||
dim as long i |
|||
for i = 10 to 0 step -1 |
|||
print i |
|||
next |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
10 |
|||
9 |
|||
8 |
|||
7 |
|||
6 |
|||
5 |
|||
4 |
|||
3 |
|||
2 |
|||
1 |
|||
0 |
|||
</pre> |
|||
==={{header|Gambas}}=== |
|||
'''[https://gambas-playground.proko.eu/?gist=b236db5bdb1087fa90e934a5a8210e1f Click this link to run this code]''' |
|||
<lang gambas>Public Sub Main() |
|||
Dim siCount As Short |
|||
For siCount = 10 DownTo 0 |
|||
Print siCount;; |
|||
Next |
|||
End</lang> |
|||
Output: |
|||
<pre> |
|||
10 9 8 7 6 5 4 3 2 1 0 |
|||
</pre> |
|||
==={{header|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
<lang qbasic> |
|||
10 FOR I% = 10 TO 0 STEP -1 |
|||
20 PRINT I% |
|||
30 NEXT I% |
|||
</lang> |
|||
==={{header|IS-BASIC}}=== |
==={{header|IS-BASIC}}=== |
||
Line 394: | Line 463: | ||
110 PRINT I |
110 PRINT I |
||
120 NEXT</lang> |
120 NEXT</lang> |
||
==={{header|Liberty BASIC}}=== |
|||
<lang lb> |
|||
for i = 10 to 0 step -1 |
|||
print i |
|||
next i |
|||
end</lang> |
|||
==={{header|Microsoft Small Basic}}=== |
|||
<lang microsoftsmallbasic> |
|||
For i = 10 To 0 Step -1 |
|||
TextWindow.WriteLine(i) |
|||
EndFor</lang> |
|||
==={{header|NS-HUBASIC}}=== |
|||
<lang NS-HUBASIC>10 FOR 1=10 TO 0 STEP -1 |
|||
20 PRINT I |
|||
30 NEXT</lang> |
|||
==={{header|PureBasic}}=== |
|||
<lang PureBasic>For i=10 To 0 Step -1 |
|||
Debug i |
|||
Next</lang> |
|||
==={{header|QB64}}=== |
|||
''CBTJD'': 2020/03/14 |
|||
<lang qbasic>FOR n = 10 TO 0 STEP -1 |
|||
PRINT n |
|||
NEXT</lang> |
|||
==={{header|QBASIC}}=== |
|||
<lang qbasic>for i = 10 to 0 step -1 |
|||
print i |
|||
next i</lang> |
|||
==={{header|TI-83 BASIC}}=== |
|||
<lang ti83b> |
|||
:For(I,10,0,-1 |
|||
:Disp I |
|||
:End |
|||
</lang> |
|||
==={{header|TI-89 BASIC}}=== |
|||
<lang ti89b>Local i |
|||
For i, 10, 0, –1 |
|||
Disp i |
|||
EndFor</lang> |
|||
==={{header|Yabasic}}=== |
|||
<lang Yabasic>for i = 10 to 0 step -1 |
|||
print i, " "; |
|||
next |
|||
print |
|||
end</lang> |
|||
==={{header|XBasic}}=== |
|||
{{works with|Windows XBasic}} |
|||
<lang xbasic>PROGRAM "downwardfor" |
|||
DECLARE FUNCTION Entry() |
|||
FUNCTION Entry() |
|||
FOR i% = 10 TO 0 STEP -1 |
|||
PRINT i% |
|||
NEXT i% |
|||
END FUNCTION |
|||
END PROGRAM</lang> |
|||
==={{header|ZX Spectrum Basic}}=== |
|||
<lang zxbasic>10 FOR l = 10 TO 0 STEP -1 |
|||
20 PRINT l |
|||
30 NEXT l</lang> |
|||
=={{header|Batch File}}== |
=={{header|Batch File}}== |
||
<lang dos>@echo off |
<lang dos>@echo off |
||
for /l %%D in (10,-1,0) do echo %%D</lang> |
for /l %%D in (10,-1,0) do echo %%D</lang> |
||
=={{header|BBC BASIC}}== |
|||
<lang bbcbasic> FOR i% = 10 TO 0 STEP -1 |
|||
PRINT i% |
|||
NEXT</lang> |
|||
=={{header|bc}}== |
=={{header|bc}}== |
||
Line 852: | Line 988: | ||
STOP |
STOP |
||
END</lang> |
END</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>' FB 1.05.0 Win64 |
|||
For i As Integer = 10 To 0 Step -1 |
|||
Print i; " "; |
|||
Next |
|||
Print |
|||
Sleep</lang> |
|||
{{out}} |
|||
<pre> |
|||
10 9 8 7 6 5 4 3 2 1 0 |
|||
</pre> |
|||
=={{header|Frink}}== |
=={{header|Frink}}== |
||
Line 872: | Line 994: | ||
println[i] |
println[i] |
||
</lang> |
</lang> |
||
=={{header|FutureBasic}}== |
|||
<lang futurebasic> |
|||
include "ConsoleWindow" |
|||
dim as long i |
|||
for i = 10 to 0 step -1 |
|||
print i |
|||
next |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
10 |
|||
9 |
|||
8 |
|||
7 |
|||
6 |
|||
5 |
|||
4 |
|||
3 |
|||
2 |
|||
1 |
|||
0 |
|||
</pre> |
|||
=={{header|Gambas}}== |
|||
'''[https://gambas-playground.proko.eu/?gist=b236db5bdb1087fa90e934a5a8210e1f Click this link to run this code]''' |
|||
<lang gambas>Public Sub Main() |
|||
Dim siCount As Short |
|||
For siCount = 10 DownTo 0 |
|||
Print siCount;; |
|||
Next |
|||
End</lang> |
|||
Output: |
|||
<pre> |
|||
10 9 8 7 6 5 4 3 2 1 0 |
|||
</pre> |
|||
=={{header|GAP}}== |
=={{header|GAP}}== |
||
Line 945: | Line 1,027: | ||
println i |
println i |
||
}</lang> |
}</lang> |
||
=={{header|GW-BASIC}}== |
|||
{{works with|PC-BASIC|any}} |
|||
<lang qbasic> |
|||
10 FOR I% = 10 TO 0 STEP -1 |
|||
20 PRINT I% |
|||
30 NEXT I% |
|||
</lang> |
|||
=={{header|Harbour}}== |
=={{header|Harbour}}== |
||
Line 1,171: | Line 1,245: | ||
Slightly different syntax for <code>for</code> compared to Logo. |
Slightly different syntax for <code>for</code> compared to Logo. |
||
<lang logo>for "i [10 0] [print :i]</lang> |
<lang logo>for "i [10 0] [print :i]</lang> |
||
=={{header|Liberty BASIC}}== |
|||
<lang lb> |
|||
for i = 10 to 0 step -1 |
|||
print i |
|||
next i |
|||
end |
|||
</lang> |
|||
=={{header|Lingo}}== |
=={{header|Lingo}}== |
||
Line 1,338: | Line 1,404: | ||
<lang metafont>for i = 10 downto 0: show i; endfor end</lang> |
<lang metafont>for i = 10 downto 0: show i; endfor end</lang> |
||
=={{header|Microsoft Small Basic}}== |
|||
<lang microsoftsmallbasic> |
|||
For i = 10 To 0 Step -1 |
|||
TextWindow.WriteLine(i) |
|||
EndFor |
|||
</lang> |
|||
=={{header|min}}== |
=={{header|min}}== |
||
Line 1,418: | Line 1,477: | ||
1 |
1 |
||
0</pre> |
0</pre> |
||
=={{header|NS-HUBASIC}}== |
|||
<lang NS-HUBASIC>10 FOR 1=10 TO 0 STEP -1 |
|||
20 PRINT I |
|||
30 NEXT</lang> |
|||
=={{header|Oberon-2}}== |
=={{header|Oberon-2}}== |
||
Line 1,560: | Line 1,614: | ||
true. |
true. |
||
</pre> |
</pre> |
||
=={{header|PureBasic}}== |
|||
<lang PureBasic>For i=10 To 0 Step -1 |
|||
Debug i |
|||
Next</lang> |
|||
=={{header|Python}}== |
=={{header|Python}}== |
||
Line 1,576: | Line 1,625: | ||
pprint.pprint([i for i in xrange(10, -1, -1)]) |
pprint.pprint([i for i in xrange(10, -1, -1)]) |
||
</lang> |
</lang> |
||
=={{header|QB64}}== |
|||
''CBTJD'': 2020/03/14 |
|||
<lang qbasic>FOR n = 10 TO 0 STEP -1 |
|||
PRINT n |
|||
NEXT</lang> |
|||
=={{header|R}}== |
=={{header|R}}== |
||
Line 1,857: | Line 1,900: | ||
} |
} |
||
# puts "We have liftoff!"</lang> |
# puts "We have liftoff!"</lang> |
||
=={{header|TI-83 BASIC}}== |
|||
<lang ti83b> |
|||
:For(I,10,0,-1 |
|||
:Disp I |
|||
:End |
|||
</lang> |
|||
=={{header|TI-89 BASIC}}== |
|||
<lang ti89b>Local i |
|||
For i, 10, 0, –1 |
|||
Disp i |
|||
EndFor</lang> |
|||
=={{header|Trith}}== |
=={{header|Trith}}== |
||
Line 1,966: | Line 1,994: | ||
10 9 8 7 6 5 4 3 2 1 0 |
10 9 8 7 6 5 4 3 2 1 0 |
||
</pre> |
</pre> |
||
=={{header|XBasic}}== |
|||
{{works with|Windows XBasic}} |
|||
<lang xbasic> |
|||
PROGRAM "downwardfor" |
|||
DECLARE FUNCTION Entry() |
|||
FUNCTION Entry() |
|||
FOR i% = 10 TO 0 STEP -1 |
|||
PRINT i% |
|||
NEXT i% |
|||
END FUNCTION |
|||
END PROGRAM |
|||
</lang> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |
||
Line 1,993: | Line 2,006: | ||
// tail recursion |
// tail recursion |
||
fcn(n){ n.println(); if(n==0)return(); return(self.fcn(n-1)) }(10)</lang> |
fcn(n){ n.println(); if(n==0)return(); return(self.fcn(n-1)) }(10)</lang> |
||
=={{header|ZX Spectrum Basic}}== |
|||
<lang zxbasic>10 FOR l = 10 TO 0 STEP -1 |
|||
20 PRINT l |
|||
30 NEXT l</lang> |