Algoritmos em Portugol: Fibonacci e Cálculos Diversos
Enviado por Anônimo e classificado em Computação
Escrito em em português com um tamanho de 4,23 KB
Algoritmo "Fibonacci"
Var ultimo, penultimo, novo : Inteiro
Início
ultimo <- 1
penultimo <- 0
Escreva(penultimo, " ")
Enquanto ultimo <= 10000 faça
Escreva(ultimo, " ")
novo <- ultimo + penultimo
penultimo <- ultimo
ultimo <- novo
FimEnquanto
FimAlgoritmo
Algoritmo "Q2"
Var x, y, s : Real
i : Inteiro
Início
s <- 0
Escreva("Entre com dois valores: ")
Leia(x, y)
Se x*x + y*y*y*y <> 0 Então
Para i <- 1 Até 1000 Faça
s <- s + ( (cos(x) - sen(y)) / RaizQ(x*x + y*y*y*y) + i )
FimPara
Escreva("Soma:", s)
Senão
Escreva("Impossível calcular")
FimSe
FimAlgoritmo
Algoritmo "Q3"
Var c1, c2, c3, c4, i, id : Inteiro
Início
c1 <- 0
c2 <- 0
c3... Continue a ler "Algoritmos em Portugol: Fibonacci e Cálculos Diversos" »