22 lines
373 B
Text
22 lines
373 B
Text
110 FOR I = 0 TO 3
|
|
120 FOR J = 1 TO 5
|
|
130 LET N = (I*5)+J
|
|
150 GOSUB 200
|
|
160 PRINT "P(";N;") =";P;" "
|
|
170 NEXT J
|
|
180 NEXT I
|
|
190 GOTO 330
|
|
200 REM PANCAKE(N)
|
|
210 LET G = 2
|
|
220 LET S = 2
|
|
230 LET A = -1
|
|
240 IF S < N THEN 270
|
|
250 IF S >= N THEN 310
|
|
260 GOTO 240
|
|
270 LET A = A+1
|
|
280 LET G = (G*2)-1
|
|
290 LET S = S+G
|
|
300 GOTO 250
|
|
310 LET P = N+A
|
|
320 RETURN
|
|
330 END
|