Stair-climbing puzzle: Difference between revisions
m
no edit summary
(Stair-climbing puzzle en FreeBASIC) |
mNo edit summary |
||
Line 540:
end module StairRobot</lang>
=={{header|FreeBASIC}}==
Iterative version using one variable.
Function step_() As Boolean▼
<lang FreeBASIC>Sub step_up()
Dim As Integer i
Do
If step_() Then
i += 1
Else
i -= 1
End If
Loop Until i = 1
End Sub</lang>
Recursive version.
<lang FreeBASIC>Sub step_up()
While Not step_()
step_up()
Wend
End Sub</lang>
Demonstration program.
▲<lang FreeBASIC>Function step_() As Boolean
If Int((Rnd * 2)) Then
Print "Robot sube"
Return True
Else
Print "Robot se cae"
Return False
End If
End Function
'recursive
Sub step_up()
While Not step_()
Line 560 ⟶ 581:
End Sub
step_up
Sleep</lang>
| |||