24 lines
340 B
Text
24 lines
340 B
Text
|
c = 0
|
||
|
|
|
||
|
|
for i = 0 to 3
|
||
|
|
for j = 1 to 5
|
||
|
|
n = (i * 5) + j
|
||
|
|
c += 1
|
||
|
|
print "p("; rjust(string(n),2); ") = "; pancake(n); " ";
|
||
|
|
if c mod 5 = 0 then print
|
||
|
|
next j
|
||
|
|
next i
|
||
|
|
end
|
||
|
|
|
||
|
|
function pancake(n)
|
||
|
|
gap = 2
|
||
|
|
sum = 2
|
||
|
|
adj = -1
|
||
|
|
while sum < n
|
||
|
|
adj += 1
|
||
|
|
gap = (gap * 2) - 1
|
||
|
|
sum += gap
|
||
|
|
end while
|
||
|
|
return rjust(string(n + adj), 2)
|
||
|
|
end function
|