Loops/With multiple ranges: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
(Added Chipmunk Basic) |
||
Line 1,059: | Line 1,059: | ||
<pre>sum = 348173 |
<pre>sum = 348173 |
||
prod = -793618560</pre> |
prod = -793618560</pre> |
||
=={{header|Chipmunk Basic}}== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
{{trans|FreeBASIC}} |
|||
<syntaxhighlight lang="qbasic">100 cls |
|||
110 prod = 1 : sum = 0 |
|||
120 x = 5 : y = -5 : z = -2 |
|||
130 uno = 1 : tres = 3 : siete = 7 |
|||
140 for j = -tres to (3^3) step tres : process(j) : next j |
|||
150 for j = -siete to siete step x : process(j) : next j |
|||
160 for j = 555 to 550-y : process(j) : next j |
|||
170 for j = 22 to -28 step -tres : process(j) : next j |
|||
180 for j = 1927 to 1939 : process(j) : next j |
|||
190 for j = x to y step z : process(j) : next j |
|||
200 for j = (11^x) to (11^x)+uno : process(j) : next j |
|||
210 print " sum= ";sum |
|||
220 print "prod= ";prod |
|||
230 end |
|||
240 sub process(x) |
|||
250 sum = sum+abs(x) |
|||
260 if abs(prod) < (2^27) and x <> 0 then prod = prod*x |
|||
270 end sub</syntaxhighlight> |
|||
{{out}} |
|||
<pre> sum= 348173 |
|||
prod= -793618560</pre> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |