24 lines
459 B
Plaintext
24 lines
459 B
Plaintext
Dim As Integer num_pancakes = 20
|
|
Dim As Integer i, j, c = 0, n
|
|
|
|
Function pancake(n As Integer) As Integer
|
|
Dim As Integer gap = 2, sum = 2, adj = -1
|
|
While sum < n
|
|
adj += 1
|
|
gap = (gap * 2) - 1
|
|
sum += gap
|
|
Wend
|
|
Return n + adj
|
|
End Function
|
|
|
|
For i = 0 To 3
|
|
For j = 1 To 5
|
|
n = (i * 5) + j
|
|
c += 1
|
|
Print Using "p(##) = ## "; n; pancake(n);
|
|
If c Mod 5 = 0 Then Print
|
|
Next j
|
|
Next i
|
|
|
|
Sleep
|