22 lines
428 B
Plaintext
22 lines
428 B
Plaintext
100 c = 0
|
|
110 for i = 0 to 3
|
|
120 for j = 1 to 5
|
|
130 n = (i*5)+j
|
|
140 c = c+1
|
|
150 print "p(";format$(n,"##");") = ";format$(pancake(n),"##");" ";
|
|
160 if c mod 5 = 0 then print
|
|
170 next j
|
|
180 next i
|
|
190 end
|
|
200 function pancake(n)
|
|
210 gap = 2
|
|
220 sum = 2
|
|
230 adj = -1
|
|
240 while sum < n
|
|
250 adj = adj+1
|
|
260 gap = (gap*2)-1
|
|
270 sum = sum+gap
|
|
280 wend
|
|
290 pancake = n+adj
|
|
300 end function
|