Algoritmos em Portugol: Fibonacci e Cálculos Diversos

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 <- 0

  c4 <- 0

  Para i <- 1 Até 15 Faça

    Escreva("Entre com a idade: ")

    Leia(id)

    Se (id >= 1) E (id <= 15) Então

      c1 <- c1 + 1

    Senão Se (id >= 16) E (id <= 30) Então

      c2 <- c2 + 1

    Senão Se (id >= 31) E (id <= 45) Então

      c3 <- c3 + 1

    Senão Se (id >= 46) E (id <= 60) Então

      c4 <- c4 + 1

    FimSe

    FimSe

    FimSe

    FimSe

  FimPara

  Escreval("Letra A: ", c1, " ", c2, " ", c3, " ", c4)

  Escreva("Letra b: ", c1*100.00/15, "% ", c2*100.0/15, "% ", c3*100.0/15, "% ", c4*100.0/15, "%")

FimAlgoritmo

Algoritmo "Q4"

Var i : Inteiro

  salario, s, pis, fgts : Real

Início

  s <- 0

  pis <- 0

  fgts <- 0

  Para i <- 1 Até 20 Faça

    Escreva("Entre com o salário: ")

    Leia(salario)

    salario <- salario + salario*0.15

    Escreval("Letra A: Novo Salário R$ ", salario)

    s <- s + salario

    pis <- pis + salario * 0.01

    fgts <- fgts + salario * 0.08

  FimPara

  Escreval("Letra B: ", s)

  Escreva("Letra C: PIS R$ ", pis, " - FGTS R$ ", fgts)

FimAlgoritmo

Algoritmo "Q5"

Var i : Inteiro

  m, n1, n2, n3 : Real

Início

  Para i <- 1 Até 20 Faça

    Escreval("Entre com as três notas do aluno", i)

    Leia(n1, n2, n3)

    m <- (3*n1 + 5*n2 + 10*n3) / 18

    Se m >= 6 Então

      Escreval("Aluno aprovado!")

    Senão

      Escreval("Aluno Reprovado!")

    FimSe

  FimPara

FimAlgoritmo

Algoritmo "Q6"

Var anos : Inteiro

  pa, pb : Real

Início

  anos <- 0

  pa <- 100000

  pb <- 50000

  Enquanto pb <= pa Faça

    pa <- pa + 0.02 * pa

    pb <- pb + 0.03 * pb

    anos <- anos + 1

  FimEnquanto

  Escreva("Número de anos:", anos)

FimAlgoritmo

Algoritmo "Q7"

var i : Inteiro n1, n2, n3, m : Real inicio Para i= n2) E (n2 >=n3) Entao m = n3) E (n3 >=n2) Entao m = n1) E (n1 >=n3) Entao m = n3) E (n3 >=n1) Entao m = n1) E (n1 >=n2) Entao m = n2) E (n2 >=n1) Entao m =6 Entao Escreval("Aluno aprovado: ",m) Senao Escreval("Aluno reprovado: ",m) FimSe FimPara Escreva("Numero de anos:", anos ) fimalgoritmo

algoritmo "Q8" var c1, Canal, c, ct, idade : Inteiro s : Real resp, sexo : caractere inicio c1 0 Entao Escreval("Letra B: ", s/c1) Senao Escreval("Nada a calcular") Fimse fimalgoritmo

algoritmo "Q9" var c, ct, c1, primeiro : Inteiro peso, maiorpeso, s : Real resp, sexo, resposta : caractere inicio primeiro maiorpeso Entao maiorpeso 110 Entao c 0 Entao Escreval("Letra A: ", s/c1) Senao Escreval("Letra A: Nada a calcular") Fimse Escreval("Letra B:", maiorpeso) Escreval("Letra C:", c*100/ct, "%") fimalgoritmo

algoritmo "Q10" var s,m,h : Inteiro massa : Real inicio s=1 Faca massa=3600 Faca h =60 Faca m