Loops/With multiple ranges: Difference between revisions
Content added Content deleted
(Loops/With multiple ranges en BASIC256) |
(Loops/With multiple ranges en Yabasic) |
||
Line 2,372: | Line 2,372: | ||
prod = -793,618,560 |
prod = -793,618,560 |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang yabasic> |
|||
sub process(x) |
|||
sum = sum + abs(x) |
|||
if abs(prod) < (2 ^ 27) and x <> 0 then prod = prod * x : fi |
|||
end sub |
|||
prod = 1 |
|||
sum = 0 |
|||
x = 5 : y = -5 : z = -2 |
|||
one = 1 : three = 3 : seven = 7 |
|||
for j = -three to (3 ^ 3) step three: process(j): next j |
|||
for j = -seven to seven step x: process(j): next j |
|||
for j = 555 to 550 - y: process(j): next j |
|||
for j = 22 to -28 step -three: process(j): next j |
|||
for j = 1927 to 1939: process(j): next j |
|||
for j = x to y step z: process(j): next j |
|||
for j = (11 ^ x) to (11 ^ x) + one: process(j): next j |
|||
print " sum= ", sum using "###,###" |
|||
print "prod= ", prod using "####,###,###" |
|||
end |
|||
</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |