30 lines
615 B
Plaintext
30 lines
615 B
Plaintext
EnableExplicit
|
|
|
|
#N = 25
|
|
|
|
Procedure leon_R(a.i, b.i, s.i = 1, n.i = #N)
|
|
|
|
If n>2
|
|
Print(Space(1) + Str(a + b + s))
|
|
ProcedureReturn leon_R(b, a + b + s, s, n-1)
|
|
EndIf
|
|
|
|
EndProcedure
|
|
|
|
If OpenConsole()
|
|
|
|
Define r$
|
|
|
|
Print("Enter first two Leonardo numbers and increment step (separated by space) : ")
|
|
r$ = Input()
|
|
PrintN("First " + Str(#N) + " Leonardo numbers : ")
|
|
Print(StringField(r$, 1, Chr(32)) + Space(1) +
|
|
StringField(r$, 2, Chr(32)))
|
|
|
|
leon_R(Val(StringField(r$, 1, Chr(32))),
|
|
Val(StringField(r$, 2, Chr(32))),
|
|
Val(StringField(r$, 3, Chr(32))))
|
|
|
|
r$ = Input()
|
|
EndIf
|