27 lines
433 B
Plaintext
27 lines
433 B
Plaintext
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
|