Fibonacci sequence: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 12,220: | Line 12,220: | ||
<syntaxhighlight lang="text">1&-:?v2\:2\01\--2\ |
<syntaxhighlight lang="text">1&-:?v2\:2\01\--2\ |
||
>$.@</syntaxhighlight> |
>$.@</syntaxhighlight> |
||
=={{header|RATFOR}}== |
|||
<syntaxhighlight lang="RATFOR"> |
|||
program Fibonacci |
|||
# |
|||
integer*4 count, loop |
|||
integer*4 num1, num2, fib |
|||
1 format(A) |
|||
2 format(I4) |
|||
3 format(I6,' ') |
|||
4 format(' ') |
|||
write(6,1,advance='no')'How Many: ' |
|||
read(5,2)count |
|||
num1 = 0 |
|||
num2 = 1 |
|||
write(6,3,advance='no')num1 |
|||
write(6,3,advance='no')num2 |
|||
for (loop = 3; loop<=count; loop=loop+1) |
|||
{ |
|||
fib = num1 + num2 |
|||
write(6,3,advance='no')fib |
|||
num1 = num2 |
|||
num2 = fib |
|||
} |
|||
write(6,4) |
|||
end |
|||
</syntaxhighlight> |
|||
=={{header|Red}}== |
=={{header|Red}}== |