Loops/With multiple ranges: Difference between revisions
Content added Content deleted
(add RPL) |
|||
| Line 523: | Line 523: | ||
prod= -793618560 |
prod= -793618560 |
||
</pre> |
</pre> |
||
=={{header|Amazing Hopper}}== |
|||
<syntaxhighlight lang="bennugd"> |
|||
#include <jambo.h> |
|||
Main |
|||
prod=1, sum=0, x=5, y=-5,z=-2,one=1, three=3, seven=7, j=0 |
|||
Set decimal '0' |
|||
Let ' j := Neg(three) ' |
|||
Iterator( j+=three, Less equal( j, Pow(3,3) ), Set 'j'; Gosub(Body) ) |
|||
Let ' j := Neg(seven) ' |
|||
Iterator( j+=x, Less equal( j, seven ), Set 'j'; Gosub(Body) ) |
|||
j=555, Iterator( ++j, Less equal( j, Add(550,y) ), Set 'j'; Gosub(Body) ) |
|||
j=22, Iterator( j-=three, Greater equal( j, -28 ), Set 'j'; Gosub(Body) ) |
|||
j=x, Iterator( j+=z, Greater equal( j, y ), Set 'j'; Gosub(Body) ) |
|||
j=1927, Iterator( ++j, Less equal( j, 1939 ), Set 'j'; Gosub(Body) ) |
|||
Let ' j := Pow(11,x)' |
|||
Iterator( ++j, Less equal( j, Add( Pow(11,x),one) ), Set 'j'; Gosub(Body) ) |
|||
Printnl ( "SUM = ", sum, "\nPROD = ",prod ) |
|||
End |
|||
Subrutines |
|||
Define ' Body, j ' |
|||
Let( sum := Add(sum, Abs(j) ) ) |
|||
When ( Less ( Abs(prod), Pow(2,27) ) And (Not zero(j)) ) { |
|||
Let( prod := Mul(prod, j) ) |
|||
} |
|||
Return |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
SUM = 348173 |
|||
PROD = -793618560 |
|||
</pre> |
|||
=={{header|Applesoft BASIC}}== |
=={{header|Applesoft BASIC}}== |
||
All of the numeric variables are Floating Point but get displayed as integers. The variable ONE is named UNO because ON is a keyword. |
All of the numeric variables are Floating Point but get displayed as integers. The variable ONE is named UNO because ON is a keyword. |
||