Algoritmo Para Gerar Sequência Fibonacci em Pseudolinguagem (Algol - VisuAlg)
algoritmo "Fibonacci" var Atual, Cont, Quant, n_1, n_2 : Inteiro inicio n_1 <- 0 n_2 <- 1 Atual <- 2 Escreva ("Quantos números terá a sequência? ") Leia (Quant) Escreva ("n_1") Escreva ("n_2 ") Para Cont <- 1 ate (Quant - 2) faca Atual <- n_1 + n_2 Escreva (Atual, " ") n_1 <- n_2 n_2 <- Atual FimPara fimalgoritmo