Exercícios de Algoritmos: Estruturas Condicionais (Q1-Q12)
Classificado em Matemática
Escrito em em 
português com um tamanho de 10,87 KB
A seguir, apresentamos uma série de algoritmos em pseudocódigo (Portugol/Visualg) que exploram o uso de estruturas condicionais (Se/Senao/FimSe) para resolver problemas matemáticos e lógicos.
Algoritmo Q1: Cálculo de Expressão com Restrição
Algoritmo "Q1"
Var x, y, r : Real
Inicio
Escreva("Entre com dois valores:")
Leia(x, y)
Se y + 4 <> 0 Entao
r <- (x - 3) / (y + 4) + sen(y)
Escreva("Resultado:", r)
Senao
Escreva("Impossível calcular!")
FimSe
FimAlgoritmo
Algoritmo Q2: Cálculo de Expressão com Múltiplas Restrições
Algoritmo "Q2 - V2"
Var x, y, z, r : Real
Inicio
Escreva("Entre com três valores:")
Leia(x, y, z)
Se (y > 0) E (cos(z) - 2 <> 0) Entao
r <- x / RaizQ(y) + 3 / (cos(z) - 2)
Escreva("Resultado:", r)
Senao
Escreva("Impossível calcular!")
FimSe
FimAlgoritmo
Algoritmo Q3: Raízes da Equação de Segundo Grau (Bhaskara)
Algoritmo "Q3 - V2"
Var x1, x2, a, b, c : Real
Inicio
Escreva("Entre com os três coeficientes da equação de segundo grau:")
Leia(a, b, c)
Se (a <> 0) E (b * b - 4 * a * c >= 0) Entao
x1 <- (-b + RaizQ(b * b - 4 * a * c)) / (2 * a)
x2 <- (-b - RaizQ(b * b - 4 * a * c)) / (2 * a)
Escreval("X':", x1)
Escreval("X'':", x2)
Senao
Escreva("Impossível calcular!")
FimSe
FimAlgoritmo
Algoritmo Q4: Resolução de Sistema Linear 2x2
Algoritmo "Q4"
Var a1, b1, c1, d1, e1, f1, g1, x, y : Real
Inicio
Escreva("Entre com os seis coeficientes do sistema linear:")
Leia(a1, b1, c1, d1, e1, f1)
Se a1 * e1 - b1 * d1 <> 0 Entao
x <- (c1 * e1 - b1 * f1) / (a1 * e1 - b1 * d1)
y <- (a1 * f1 - c1 * d1) / (a1 * e1 - b1 * d1)
Escreval("X:", x)
Escreval("Y:", y)
Senao
Escreva("Impossível calcular!")
FimSe
FimAlgoritmo
Algoritmo Q5: Cálculo de Média e Verificação de Aprovação
Algoritmo "Q5"
Var n1, n2, n3, media : Real
Inicio
Escreva("Entre com as três notas:")
Leia(n1, n2, n3)
media <- (n1 + n2 + n3) / 3
Se media >= 6 Entao
Escreva("Aprovado:", media)
Senao
Escreva("Reprovado:", media)
FimSe
FimAlgoritmo
Algoritmo Q6: Classificação de Categoria por Idade
Algoritmo "Q6"
Var Idade : Inteiro
Inicio
Escreva("Entre com a idade:")
Leia(Idade)
Se (Idade >= 5) E (Idade <= 7) Entao
Escreva("Infantil A")
Senao Se (Idade >= 8) E (Idade <= 10) Entao
Escreva("Infantil B")
Senao Se (Idade >= 11) E (Idade <= 13) Entao
Escreva("Juvenil A")
Senao Se (Idade >= 14) E (Idade <= 17) Entao
Escreva("Juvenil B")
Senao Se (Idade >= 18) Entao
Escreva("Adulto")
Senao
Escreva("Idade não enquadrada!")
FimSe
FimSe
FimSe
FimSe
FimSe
FimAlgoritmo
Algoritmo Q7: Cálculo de Preço de Lanche (Cardápio)
Algoritmo "Q7"
Var Codigo, Quant : Inteiro
Inicio
Escreva("Entre com o Código:")
Leia(Codigo)
Escreva("Entre com a Quantidade:")
Leia(Quant)
Se Codigo = 100 Entao
Escreva("Cachorro Quente: R$", Quant * 1.2)
Senao Se Codigo = 101 Entao
Escreva("Bauru Simples: R$", Quant * 1.3)
Senao Se Codigo = 102 Entao
Escreva("Bauru com Ovo: R$", Quant * 1.5)
Senao Se Codigo = 103 Entao
Escreva("Hambúrguer: R$", Quant * 1.2) // Corrigido: Hamburger -> Hambúrguer
Senao Se Codigo = 104 Entao
Escreva("Cheeseburger: R$", Quant * 1.3)
Senao Se Codigo = 105 Entao
Escreva("Refrigerante: R$", Quant * 1.0)
Senao
Escreva("Código Inválido!")
FimSe
FimSe
FimSe
FimSe
FimSe
FimSe
FimAlgoritmo
Algoritmo Q8: Cálculo de Peso Ideal por Sexo
Algoritmo "Q8"
Var p, h : Real
Sexo : Caractere
Inicio
Escreva("Entre com a altura:")
Leia(h)
Escreva("Entre com o sexo (m ou f):")
Leia(Sexo)
Se Sexo = "m" Entao
p <- 72.7 * h - 58
Escreva("Peso Ideal:", p)
Senao Se Sexo = "f" Entao
p <- 62.1 * h - 44.7
Escreva("Peso Ideal:", p)
Senao
Escreva("Sexo Inválido!")
FimSe
FimSe
FimAlgoritmo
Algoritmo Q9: Cálculo de Preço por Código Alfanumérico
Algoritmo "Q9"
Var Quant : Inteiro
Codigo : Caractere
Inicio
Escreva("Entre com o Código:")
Leia(Codigo)
Escreva("Entre com a Quantidade:")
Leia(Quant)
Se Codigo = "ABCD" Entao
Escreva("R$", Quant * 5.3)
Senao Se Codigo = "XYPK" Entao
Escreva("R$", Quant * 6)
Senao Se Codigo = "KLMP" Entao
Escreva("R$", Quant * 3.2)
Senao Se Codigo = "QRST" Entao
Escreva("R$", Quant * 2.5)
Senao
Escreva("Código Inválido!")
FimSe
FimSe
FimSe
FimSe
FimAlgoritmo
Algoritmo Q10: Média Ponderada e Conceito Acadêmico
Algoritmo "Q10"
Var n1, n2, n3, me, media : Real
Inicio
Escreva("Entre com as três notas:")
Leia(n1, n2, n3)
Escreva("Entre com a média de exercícios:")
Leia(me)
media <- (n1 + 2 * n2 + 3 * n3 + me) / 7
Se media >= 9 Entao
Escreva("Aprovado com conceito A")
Senao Se media >= 7.5 Entao
Escreva("Aprovado com conceito B")
Senao Se media >= 6 Entao
Escreva("Aprovado com conceito C")
Senao Se media >= 4 Entao
Escreva("Reprovado com conceito E")
Senao
Escreva("Reprovado com conceito F")
FimSe
FimSe
FimSe
FimSe
FimAlgoritmo
Algoritmo Q11: Classificação de Triângulos (Correção de Sintaxe)
Nota: Este algoritmo apresenta uma estrutura condicional incompleta para a classificação de triângulos, mas a sintaxe foi corrigida para refletir o pseudocódigo original.
Algoritmo "Q11"
Var a, b, c : Real
Inicio
Escreva("Entre com os três possíveis lados:")
Leia(a, b, c)
Se (a <> b) E (a <> c) E (b <> c) Entao // Corrigido: a<strong>b -> a<>b e removido </strong> extra
Escreva("Triângulo Escaleno")
Senao
Escreva("Triângulo Isósceles")
FimSe
FimSe
Senao
Escreva("Valores não formam um triângulo")
FimSe
FimAlgoritmo
Algoritmo Q12: Encontrando o Maior de Três Valores
Algoritmo "Q12"
Var a, b, c : Real
Inicio
Escreva("Entre com três valores:")
Leia(a, b, c)
Se (a >= b) E (a >= c) Entao
Escreva("Maior:", a)
Senao Se b > c Entao
Escreva("Maior:", b)
Senao
Escreva("Maior:", c)
FimSe
FimSe
FimAlgoritmo