17 lines
355 B
Text
17 lines
355 B
Text
100 CLS
|
|
110 FOR I = 0 TO 3
|
|
120 FOR J = 1 TO 5
|
|
130 N = (I*5)+J
|
|
140 C = C+1
|
|
150 GOSUB 200
|
|
160 PRINT USING "p(##) = ## ";N;PANCAKE
|
|
170 NEXT J
|
|
180 NEXT I
|
|
190 END
|
|
200 REM pancake(n)
|
|
210 GAP = 2
|
|
220 SUM = 2
|
|
230 ADJ = -1
|
|
240 IF SUM < N THEN ADJ = ADJ+1 : GAP = (GAP*2)-1 : SUM = SUM+GAP
|
|
250 IF SUM >= N THEN PANCAKE = N+ADJ : RETURN
|
|
260 GOTO 240
|