Exemplos de Algoritmos em Portugol

Algoritmo "Área do Quadrado - V2"

var
  lado : real
inicio
  Escreva("Entre com o lado do quadrado:")
  Leia(lado)
  Escreva("A área do quadrado vale: ", Lado * Lado)
fimalgoritmo

Algoritmo "Área da Circunferência"

var
  raio, area : real
inicio
  Escreva("Entre com o raio da circunferência:")
  Leia(raio)
  area <- PI * raio * raio
  Escreva("A área da circunferência vale: ", area)
fimalgoritmo

Algoritmo "Área do Triângulo"

var
  base, altura, area : real
inicio
  Escreva("Entre com a base e altura do triângulo:")
  Leia(base, altura)
  area <- base * altura / 2
  Escreva("A área do triângulo vale: ", area)
fimalgoritmo

Algoritmo "Hipotenusa"

var
  hipotenusa, cateto1, cateto2 : real
inicio
  Escreva("Entre com os dois catetos:")
  Leia(cateto1, cateto2)
  hipotenusa <- raizq(cateto1*cateto1 + cateto2*cateto2)
  Escreva("A hipotenusa vale: ", hipotenusa)
fimalgoritmo

Algoritmo "Questão 5"

var
  resultado, x, y : real
inicio
  Escreva("Entre com dois valores:")
  Leia(x, y)
  resultado <- (sen(x) + raizq(2)) / (3*raizq(3)) - cos(y)
  Escreva("O resultado é: ", resultado)
fimalgoritmo

Algoritmo "Questão 6"

var
  resultado, x : real
inicio
  Escreva("Entre com um valor:")
  Leia(x)
  resultado <- (sen(x*x)+cos(x)*cos(x))/(3*raizq(2)+raizq(7))
  Escreva("O resultado é: ", resultado)
fimalgoritmo

Algoritmo "Questão 7"

var
  resultado, x, y, z : real
inicio
  Escreva("Entre com três valores:")
  Leia(x, y, z)
  resultado <- raizq(cos(x)*cos(x) + sen(y)*sen(y) + sen(z*z)*sen(z*z))/(2+cos(3)+cos(4))
  Escreva("O resultado é: ", resultado)
fimalgoritmo

Algoritmo "Questão 8"

var
  salario1, salario2, salario3, numpecas1, numpecas2, numpecas3 : real
inicio
  Escreva("Entre com o número de peças fabricadas pelo funcionário 1:")
  Leia(numpecas1)
  salario1 <- 545 + numpecas1*20
  Escreval("O salário do funcionário 1 é: ", salario1)
  Escreva("Entre com o número de peças fabricadas pelo funcionário 2:")
  Leia(numpecas2)
  salario2 <- 545 + numpecas2*20
  Escreval("O salário do funcionário 2 é: ", salario2)
  Escreva("Entre com o número de peças fabricadas pelo funcionário 3:")
  Leia(numpecas3)
  salario3 <- 545 + numpecas3*20
  Escreval("O salário do funcionário 3 é: ", salario3)
fimalgoritmo

Algoritmo "Questão 9"

var
  Num1, Num2, Num3, Num4, TotalTelespectadores : real
inicio
  Escreva("Entre com o número de de telespectadores do canal 1:")
  Leia(Num1)
  Escreva("Entre com o número de de telespectadores do canal 2:")
  Leia(Num2)
  Escreva("Entre com o número de de telespectadores do canal 3:")
  Leia(Num3)
  Escreva("Entre com o número de de telespectadores do canal 4:")
  Leia(Num4)
  TotalTelespectadores <- Num1 + Num2 + Num3 + Num4
  Escreval("Percentual de audiência do canal 1:",Num1*100/TotalTelespectadores:2:2,"%")
  Escreval("Percentual de audiência do canal 2:",Num2*100/TotalTelespectadores:2:2,"%")
  Escreval("Percentual de audiência do canal 3:",Num3*100/TotalTelespectadores:2:2,"%")
  Escreval("Percentual de audiência do canal 4:",Num4*100/TotalTelespectadores:2:2,"%")
fimalgoritmo

Algoritmo "Questão 10"

var
  NumProdutos, TotalVenda, Comissao, Lucro : real
inicio
  Escreva("Entre com o número de produtos vendidos:")
  Leia(NumProdutos)
  TotalVenda <- NumProdutos*10
  Escreval("Total da Venda: R$ ",TotalVenda:2:2)
  Comissao <- TotalVenda * 0.1
  Escreval("Comissão do vendedor: R$ ",Comissao:2:2)
  Lucro <- 2.5*NumProdutos
  Escreval("Lucro da Empresa:", Lucro:2:2)
fimalgoritmo

Algoritmo "Questão 11"

var
  NumHomensAprov, NumHomensNaoAprov, NumMulheresAprov, NumMulheresNaoAprov, TotalPessoas : real
inicio
  Escreva("Entre com o número de homens que aprovaram o produto:")
  Leia(NumHomensAprov)
  Escreva("Entre com o número de homens que NÃO aprovaram o produto:")
  Leia(NumHomensNaoAprov)
  Escreva("Entre com o número de mulheres que aprovaram o produto:")
  Leia(NumMulheresAprov)
  Escreva("Entre com o número de mulheres que NÃO aprovaram o produto:")
  Leia(NumMulheresNaoAprov)
  TotalPessoas <- NumHomensAprov + NumHomensNaoAprov + NumMulheresAprov + NumMulheresNaoAprov
  Escreval("Total de Entrevistados: ",TotalPessoas)
  Escreval("Percentual de Aprovação: ",(NumHomensAprov + NumMulheresAprov)*100/TotalPessoas:2:2,"%")
  Escreval("Percentual de Desaprovação: ",(NumHomensNaoAprov + NumMulheresNaoAprov)*100/TotalPessoas:2:2,"%")
  Escreval("Percentual de Mulheres: ",(NumMulheresAprov + NumMulheresNaoAprov)*100/TotalPessoas:2:2,"%")
fimalgoritmo