22 lines
412 B
Text
22 lines
412 B
Text
|
FUNCTION pancake(n)
|
||
|
|
LET gap = 2
|
||
|
|
LET sum = 2
|
||
|
|
LET adj = -1
|
||
|
|
DO while sum < n
|
||
|
|
LET adj = adj+1
|
||
|
|
LET gap = (gap*2)-1
|
||
|
|
LET sum = sum+gap
|
||
|
|
LOOP
|
||
|
|
LET pancake = n+adj
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
FOR i = 0 to 3
|
||
|
|
FOR j = 1 to 5
|
||
|
|
LET n = (i*5)+j
|
||
|
|
LET c = c+1
|
||
|
|
PRINT using "p(##) = ## ": n, pancake(n);
|
||
|
|
IF remainder(round(c),5) = 0 then PRINT
|
||
|
|
NEXT j
|
||
|
|
NEXT i
|
||
|
|
END
|