Loops/Downward for: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Rdm (talk | contribs)
6,962 edits
Jjuanhdez (talk | contribs)
2,170 edits
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>
Retrieved from "https://rosettacode.org/wiki/Loops/Downward_for"