Loops/Downward for: Difference between revisions
Loops/Downward for en BASIC256 y Yabasic. Agrupados los dialectos BASIC
m (→{{header|J}}) |
(Loops/Downward for en BASIC256 y Yabasic. Agrupados los dialectos BASIC) |
||
Line 374:
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
<lang ApplesoftBasic>FOR I = 10 TO 0 STEP -1 : PRINT I : NEXT I</lang>
Line 384 ⟶ 380:
<lang freebasic>' Downward for
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}}===
Line 389 ⟶ 397:
20 PRINT I
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}}===
Line 394 ⟶ 463:
110 PRINT I
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}}==
<lang dos>@echo off
for /l %%D in (10,-1,0) do echo %%D</lang>
=={{header|bc}}==
Line 852 ⟶ 988:
STOP
END</lang>
=={{header|Frink}}==
Line 872 ⟶ 994:
println[i]
</lang>
=={{header|GAP}}==
Line 945 ⟶ 1,027:
println i
}</lang>
=={{header|Harbour}}==
Line 1,171 ⟶ 1,245:
Slightly different syntax for <code>for</code> compared to Logo.
<lang logo>for "i [10 0] [print :i]</lang>
=={{header|Lingo}}==
Line 1,338 ⟶ 1,404:
<lang metafont>for i = 10 downto 0: show i; endfor end</lang>
=={{header|min}}==
Line 1,418 ⟶ 1,477:
1
0</pre>
=={{header|Oberon-2}}==
Line 1,560 ⟶ 1,614:
true.
</pre>
=={{header|Python}}==
Line 1,576 ⟶ 1,625:
pprint.pprint([i for i in xrange(10, -1, -1)])
</lang>
=={{header|R}}==
Line 1,857 ⟶ 1,900:
}
# puts "We have liftoff!"</lang>
=={{header|Trith}}==
Line 1,966 ⟶ 1,994:
10 9 8 7 6 5 4 3 2 1 0
</pre>
=={{header|XPL0}}==
Line 1,993 ⟶ 2,006:
// tail recursion
fcn(n){ n.println(); if(n==0)return(); return(self.fcn(n-1)) }(10)</lang>
| |||