26 lines
546 B
Plaintext
26 lines
546 B
Plaintext
uses console
|
|
|
|
sub leonardo(L0 as integer, L1 as integer, suma as integer, texto as string)
|
|
int i, tmp
|
|
printl "Numeros de " texto " (" L0 "," L1 "," suma "):"
|
|
for i = 1 to 25
|
|
if i = 1 then
|
|
print " " L0;
|
|
elseif i = 2 then
|
|
print " " L1;
|
|
else
|
|
print " " L0 + L1 + suma;
|
|
tmp = L0
|
|
L0 = L1
|
|
L1 = tmp + L1 + suma
|
|
end if
|
|
next i
|
|
printl cr
|
|
end sub
|
|
|
|
leonardo(1,1,1,"Leonardo")
|
|
leonardo(0,1,0,"Fibonacci")
|
|
|
|
printl cr "Enter ..."
|
|
waitkey
|