algoritmos - parte 1

Prévia do material em texto

Exercícios de Algoritmos 
Prof. Gustavo Guanabara 
PASSO 01 - SEQUÊNCIAS BÁSICAS 
 
1) Escreva um programa que mostre na tela a mensagem "Olá, Mundo!" 
 
algoritmo "Primeiro" 
var 
 msg: caractere 
inicio 
 msg <- "Olá, Mundo!" 
 escreval("msg") 
 escreval(msg) 
 escreval("mensagem ", msg) 
 escreval("! + Ctrl+espaço para aparecer a estrutura") 
 
fimalgoritmo 
 
2) Faça um programa que leia o nome de uma pessoa e mostre uma mensagem de boas-vindas 
para ela: Ex: Qual é o seu nome? João da Silva 
Olá João da Silva, é um prazer te conhecer! 
 
algoritmo "MeuNome" 
 
var 
 nome: caractere 
inicio 
 escreval("Qual é o seu nome:") 
 leia(nome) 
 escreval("Olá ", nome, " é um prazer te conhecer!") 
fimalgoritmo 
 
3) Crie um programa que leia o nome e o salário de um funcionário, mostrando no final uma 
mensagem. Ex: Nome do Funcionário: Maria do Carmo 
Salário: 1850,45 
O funcionário Maria do Carmo tem um salário de R$1850,45 em Junho. 
 
algoritmo "Salario" 
 
var 
 nome: caractere 
 salario: real 
inicio 
 escreval("Nome do funciionário:") 
 leia(nome) 
 escreval("Salario do funcionario:") 
 leia(salario) 
 
 escreva("O funcionário: ", nome," tem um salário de R$ ", salario, " em Junho.") 
fimalgoritmo 
 
4) Desenvolva um algoritmo que leia dois números inteiros e mostre o somatório entre eles. 
Ex: 
Digite um valor: 8 
Digite outro valor: 5 
A soma entre 8 e 5 é igual a 13. 
 
algoritmo "dois numeros" 
 
var 
 n1, n2, soma: inteiro 
inicio 
 escreval("Digite um valor: ") 
 leia(n1) 
 escreval("Digite outro valor:") 
 leia(n2) 
 soma <- n1 + n2 
 
 escreval("A soma entre ", n1, " e ", n2, " é igual a ", soma,".") 
fimalgoritmo 
 
5) Faça um programa que leia as duas notas de um aluno em uma matéria e mostre na tela a sua 
média na disciplina. 
Ex: 
Nota 1: 4.5 
Nota 2: 8.5 
A média entre 4.5 e 8.5 é igual a 6.5 
 
Algoritmo "media nota" 
 
Var 
 nota1, nota2, media: real 
 nome: caractere 
Inicio 
 escreval("Nome do aluno: ") 
 leia(nome) 
 
 escreval("Nota 1: ") 
 leia(nota1) 
 escreval("Nota : ") 
 leia(nota2) 
 
 media <- (nota1 + nota2)/2 
 
 escreval("A média entre ", nota1, " e ", nota2, " é igual a ", media, " aluno: ", nome) 
 
Fimalgoritmo 
 
6) Faça um programa que leia um número inteiro e mostre o seu antecessor e seu sucessor. 
Ex: 
Digite um número: 9 
O antecessor de 9 é 8 
O sucessor de 9 é 10 
 
Algoritmo "Antecessor e Sucessor" 
 
Var 
 num: inteiro 
Inicio 
 escreval("Digite um número: ") 
 leia(num) 
 
 escreval("Antecessor de ", num, " é ", num - 1) 
 escreval("Sucessor de ", num, " é ", num + 1) 
Fimalgoritmo 
 
7) Crie um algoritmo que leia um número real e mostre na tela o seu dobro e a 
sua terça parte. Ex: Digite um número: 3.5 
O dobro de 3.5 é 7.0 
A terça parte de 3.5 é 1.16666 
 
Algoritmo "Dobro" 
 
Var 
 numero, dobro: real 
Inicio 
 escreval("Escreva um número real: ") 
 leia(numero) 
 dobro <- numero ^ 2 
 
 escreval("O dobro de ", numero, " é ", dobro) 
 escreval("A terça parte de ", numero, " é ", numero/3) 
Fimalgoritmo 
 
8) Desenvolva um programa que leia uma distância em metros e mostre os valores 
relativos em outras medidas. Ex: 
Digite uma distância em metros: 185.72 
A distância de 85.7m corresponde a: 
0.18572Km 
1.8572Hm 
18.572Dam 
1857.2dm 
18572.0cm 
185720.0mm 
 
Algoritmo "distancia" 
 
Var 
 distancia: real 
Inicio 
 escreval("Digite a distancia em metro: ") 
 leia(distancia) 
 
 escreval(distancia / 1000, "Km") 
 escreval(distancia / 100, "Hm") 
 escreval(distancia / 10, "Dam") 
 escreval(distancia * 10, "dm") 
 escreval(distancia * 100, "cm") 
 escreval(distancia * 1000, "mm") 
Fimalgoritmo 
 
9) Faça um algoritmo que leia quanto dinheiro uma pessoa tem na carteira (em R$) e mostre 
quantos dólares ela pode comprar. Considere US$1,00 = R$3,45. 
 
Algoritmo "comprar dolar" 
Var 
 reais, total: real 
 
Inicio 
 escreval("Quanto valor possuem") 
 leia(reais) 
 
 total <- reais / 5,33 
 
 escreval("A quantia R$ ", reais:3:2, " é permitido comprar US$ ", total:3:2) 
 escreval() 
Fimalgoritmo 
 
10) Faça um algoritmo que leia a largura e altura de uma parede, calcule e mostre a área a ser 
pintada e a quantidade de tinta necessária para o serviço, sabendo que cada litro de tinta pinta 
uma área de 2metros quadrados. 
 
Algoritmo "área_pintura" 
Var 
 largura, altura, area, qtdTinta: real 
 
Inicio 
 escreval("Informe a largura:") 
 leia(largura) 
 escreval("Informe a altura:") 
 leia(altura) 
 area <- largura * altura 
 qtdTinta <- (largura * altura)/2 
 escreval() 
 escreval("A area a ser pintada é de ", area,"m2. Quantidade de tinta necessario ", 
qtdTinta, " litro.") 
 
Fimalgoritmo 
 
11) Desenvolva uma lógica que leia os valores de A, B e C de uma equação do segundo grau e 
mostre o valor de Delta. 
 
Algoritmo "valor_delta" 
Var 
 a, b, c, delta: real 
 
Inicio 
 Escreval("Digite valor para A: ") 
 leia(a) 
 Escreval("Digite valor para B: ") 
 leia(b) 
 Escreval("Digite valor para C: ") 
 leia(c) 
 
 delta <- b^2-(4*a*c) 
 
 escreval("Valor de delta é ", delta) 
 
Fimalgoritmo 
 
12) Crie um programa que leia o preço de um produto, calcule e mostre o seu PREÇO 
PROMOCIONAL, com 5% de desconto. 
 
Algoritmo "semnome" 
Var 
 preco, total: real 
Inicio 
 escreval("Informe preço de um produto") 
 leia(preco) 
 
 total <- preco * 0.05 - preco 
 
 escreval("O preco promocional com 5% de desconto é ", total) 
Fimalgoritmo 
 
13) Faça um algoritmo que leia o salário de um funcionário, calcule e mostre o seu novo salário, 
com 15% de aumento. 
 
Algoritmo "salario" 
Var 
 salario, total: real 
Inicio 
 escreval("Informe o salario de um funcionario") 
 leia(salario) 
 
 total <- salario * 0.15 + salario 
 
 escreval("O salario atual do empregado R$ ", total) 
Fimalgoritmo 
 
14) A locadora de carros precisa da sua ajuda para cobrar seus serviços. Escreva um programa 
que pergunte a quantidade de Km percorridos por um carro alugado e a quantidade de dias pelos 
quais ele foi alugado. Calcule o preço total a pagar, sabendo que o carro custa R$90 por dia e 
R$0,20 por Km rodado. 
 
Algoritmo "Locadora" 
Var 
 quantidade_km, quantidade_dia, total_dia, Total_km, preco: real 
Inicio 
 escreval("Quantidade de Km percorrido pelo carro alugado") 
 leia(quantidade_km) 
 escreval("Quantidade de dias alugado") 
 leia(quantidade_dia) 
 
 total_dia <- quantidade_dia * 90 
 Total_km <- quantidade_km * 0.20 
 preco <- total_dia + Total_km 
 
 escreval("Valor a ser pago R$ ", preco) 
Fimalgoritmo 
 
15) Crie um programa que leia o número de dias trabalhados em um mês e mostre o salário de 
um funcionário, sabendo que ele trabalha 8 horas por dia e ganha R$25 por hora trabalhada. 
 
Algoritmo "Dias_trabalhado" 
Var 
 salario, total_salario: real 
 num_dias_trabalhado: inteiro 
Inicio 
 escreval("Quantidade de dias trabalhado") 
 leia(num_dias_trabalhado) 
 
 total_salario <- 25 * 8 * num_dias_trabalhado 
 
 escreval("Valor total de salário R$ ", total_salario) 
Fimalgoritmo 
 
16) [DESAFIO] Escreva um programa para calcular a redução do tempo de vida de um 
fumante. Pergunte a quantidade de cigarros fumados por dias e quantos anos ele já fumou. 
Considere que um fumante perde 10 min de vida a cada cigarro. Calcule quantos dias de vida 
um fumante perderá e exiba o total em dias. 
 
Algoritmo "Tempo_de_vida" 
Var 
 consumo, totalcig: real 
 cigarros, anos, dias, dia_para_mim, min: inteiro 
Inicio 
 escreval("Quantos cigarros consome por dias:") 
 leia(cigarros)escreval("Há quantos anos consome?") 
 leia(anos) 
 
 dias <- anos*364 //total de dias 
 totalcig <- cigarros * dias //total de cigarro por dia 
 min <- 24*60 //um dia tem 24h e 1h tem 60 min. 24*60 = 1440 min 
 dia_para_mim <- dias * min 
 consumo <- (totalcig*10)/min 
 
 escreval("Tempo de vida perfido foi de ", consumo:5:2, " dias") 
Fimalgoritmo