algoritmos - parte 2

Prévia do material em texto

Exercícios de Algoritmos 
Prof. Gustavo Guanabara 
 
PASSO 02 - CONDIÇÕES BÁSICAS 
17) Escreva um programa que pergunte a velocidade de um carro. Caso 
ultrapasse 80Km/h, exiba uma mensagem dizendo que o usuário foi multado. 
Nesse caso, exiba o valor da multa, cobrando R$5 por cada Km acima da 
velocidade permitida. 
 
Algoritmo "multa" 
Var 
 velocidade, multa: real 
 
 
Inicio 
 escreva("Qual a velocidade do carro: ") 
 leia(velocidade) 
 
 se (velocidade > 80) entao 
 multa <- (velocidade - 80)*5 
 escreval("voce foi multado") 
 escreva("O valor da multa é R$ ", multa ) 
 leia(multa) 
 senao 
 escreva("Velocidade permitida") 
 
 
 fimse 
 
Fimalgoritmo 
 
18) Faça um programa que leia o ano de nascimento de uma pessoa, calcule 
a idade dela e depois mostre se ela pode ou não votar. 
 
Algoritmo "idadePraVotar" 
Var 
 anoNasc, idade: inteiro 
 
 
Inicio 
 escreva("Ano nascimento: ") 
 leia(anoNasc) 
 
 idade <- 2022 - anoNasc 
 
 escreval("-----------------------------------------------------") 
 escreva("A pessoa tem ", idade, " anos de idade.") 
 se (idade >= 16) entao 
 escreval(" Já tem idade para votar") 
 senao 
 escreval(" Não tem idade para votar") 
 fimse 
 escreval("-----------------------------------------------------") 
 
Fimalgoritmo 
 
19) Crie um algoritmo que leia o nome e as duas notas de um aluno, calcule 
a sua média e mostre na tela. No final, analise a média e mostre se o 
aluno teve ou não um bom aproveitamento (se ficou acima da média 7.0). 
 
Algoritmo "media" 
Var 
 nome: caracter 
 nota1, nota2, media: real 
 
Inicio 
 escreva("Nome do aluno: ") 
 leia(nome) 
 escreva("Primeira nota: ") 
 leia(nota1) 
 escreva("Segunda nota: ") 
 leia(nota2) 
 
 media <- (nota1 + nota2)/2 
 
 escreval("===========================================") 
 escreval("A média de ", nome, " foi ", media:4:1) 
 se (media >= 7) entao 
 escreval("O aluno obteve um bom aproveitamento.") 
 senao 
 Escreval("O aluno não obteve um bom aproveitamento.") 
 fimse 
 escreval("===========================================") 
 
Fimalgoritmo 
 
 
20) Desenvolva um programa que leia um número inteiro e mostre se ele é 
PAR ou ÍMPAR. 
 
Algoritmo "ParImpar" 
Var 
 numero: inteiro 
 
Inicio 
 escreval("Digite um numero") 
 leia (numero) 
 Se(numero % 2 = 0) então 
 escreval("o Numero ", numero, " é par") 
 senao 
 Escreval("o Numero ", numero, " é impar") 
 FimSe 
Fimalgoritmo 
 
 
21) Faça um algoritmo que leia um determinado ano e mostre se ele é ou 
não BISSEXTO. 
 
Algoritmo "BISSEXTO" 
Var 
 ano: inteiro 
 
Inicio 
 escreva("verifica se o ano é BISSEXTO: ") 
 leia(ano) 
 escreval 
 escreval("=============================") 
 se(ano % 400 = 0) ou ((ano % 4 = 0) e (ano % 100 <> 0)) entao 
 escreval("O ano de ", ano, " é BISSEXTO") 
 senao 
 escreval("O ano de ", ano, " não é BISSEXTO") 
 fimse 
 escreval("=============================") 
Fimalgoritmo 
 
 
22) Escreva um programa que leia o ano de nascimento de um rapaz e mostre 
a sua situação em relação ao alistamento militar. 
- Se estiver antes dos 18 anos, mostre em quantos anos faltam para o 
alistamento. 
- Se já tiver depois dos 18 anos, mostre quantos anos já se passaram do 
alistamento. 
 
Algoritmo "Alistamento" 
Var 
 anoNasc, idade, alistamento: inteiro 
 
Inicio 
 escreval("====================================") 
 escreval(" Alistamento ") 
 escreval("====================================") 
 escreva("Ano de nascimento: ") 
 leia(anoNasc) 
 
 idade <- 2022 - anoNasc 
 
 escreval("---------Resposta-----------") 
 se (idade = 18) entao 
 escreval("Ano para se alistar") 
 senao 
 se (idade >= 18) entao 
 alistamento <- idade - 18 
 escreval("Já passou ", alistamento, " anos para se alistar") 
 senao 
 alistamento <- 18 - idade 
 escreval("Falta ", alistamento, " anos para se alistar") 
 fimse 
 fimse 
 
 
Fimalgoritmo 
 
23) Numa promoção exclusiva para o Dia da Mulher, uma loja quer dar 
descontos para todos, mas especialmente para mulheres. Faça um programa 
que leia nome,sexo e o valor das compras do cliente e calcule o preço com 
desconto. Sabendo que: 
- Homens ganham 5% de desconto 
- Mulheres ganham 13% de desconto 
 
Algoritmo "desconto" 
Var 
 sexo, nome: caracter 
 valor, desc: real 
 
 
Inicio 
 escreva("Informe o nome: ") 
 leia (nome) 
 escreva(" Informe sexo: f - feminino e m - masculino: ") 
 leia(sexo) 
 escreva("Valor da compra: ") 
 leia (valor) 
 
 se(sexo = "f") entao 
 desc <- valor - (valor * 0.13) 
 escreval("A ", nome, " irá pagar o total da compra de R$ ", desc:4:2) 
 senao 
 desc <- valor - (valor * 0.05) 
 escreval("O ", nome, " irá pagar o total da compra de R$ ", desc:4:2) 
 fimse 
Fimalgoritmo 
 
24) Faça um algoritmo que pergunte a distância que um passageiro deseja 
percorrer em Km. Calcule o preço da passagem, cobrando R$0.50 por Km para 
viagens até 200Km e R$0.45 para viagens mais longas. 
 
Algoritmo "semnome" 
Var 
 distancia: inteiro 
 valor: real 
 
Inicio 
 escreva("Qual distancia deseja percorrer (km): ") 
 leia(distancia) 
 
 se (distancia <= 200) entao 
 valor <- distancia * 0.50 
 escreval("O valor total de ", distancia, " Km é R$ ", valor:6:2) 
 senao 
 valor <- distancia * 0.45 
 escreval("O valor total de ", distancia, " Km é R$ ", valor:6:2) 
 fimse 
Fimalgoritmo 
 
25) [DESAFIO] Crie um programa que leia o tamanho de três segmentos de 
reta. Analise seus comprimentos e diga se é possível formar um triângulo 
com essas retas. Matematicamente, para três segmentos formarem um 
triângulo, o comprimento de cada lado deve ser menor que a soma dos outros 
dois. 
 
Algoritmo "triangulo" 
Var 
 t1, t2, t3, a, b, c: inteiro 
 
Inicio 
 escreva("Informe o lado 1: ") 
 leia(a) 
 escreva("Informe o lado 2: ") 
 leia(b) 
 escreva("Informe o lado 3: ") 
 leia(c) 
 
 t1 <- b + c 
 t2 <- a + c 
 t3 <- a + b 
 escreval 
 escreval("=======================") 
 se(a < t1) e (b < t2)e (c < t3) entao 
 Escreval("Forma um triangulo") 
 escreval("a: ", a, " < t1: ", t1) 
 escreval("b: ", b, " < t2: ", t2) 
 escreval("c: ", c, " < t3: ", t3) 
 senao 
 Escreval("Não forma um triangulo") 
 escreval("a: ", a, " < t1: ", t1) 
 escreval("b: ", b, " < t2: ", t2) 
 escreval("c: ", c, " < t3: ", t3) 
 fimse 
 escreval("=======================") 
 
Fimalgoritmo