Fibonacci Sequence in R Programming Language

Fibonacci Sequence in R Programming Language

nterms = as.integer(readline(prompt=”How many terms? “))
# first two terms
n1 = 0
n2 = 1
count = 2
# check if the number of terms is valid
if(nterms <= 0) {
print(“Plese enter a positive integer”)
} else {
if(nterms == 1) {
print(“Fibonacci sequence:”)
print(n1)
} else {
print(“Fibonacci sequence:”)
print(n1)
print(n2)
while(count < nterms) {
nth = n1 + n2
print(nth)
# update values
n1 = n2
n2 = nth
count = count + 1
}
}
}

Out put:

How many terms? 6
[1] “Fibonacci sequence:”
[1] 0
[1] 1
[1] 1
[1] 2
[1] 3
[1] 5

No Comments

Post a Reply