19 lines
629 B
Plaintext
19 lines
629 B
Plaintext
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
|