Construção de Algoritmo

Prévia do material em texto

Construção de Algoritmo 
Exercícios 
 
a) Faça um algoritmo que imprima todos os números pares 
compreendido entre 85 e 907. O algoritmo deve também 
calcular a soma destes valores. 
 
Resp: 
 algoritmo "6" 
 
var 
 i, soma:inteiro 
inicio 
 
 i <- 85 
 soma <- 0 
 escreval("Numeros Pares entre 85 e 907: ") 
 repita 
 
 se (i % 2 = 0) entao 
 escreval(i) 
 soma <- soma + i 
 fimse 
 
 i <- i + 1 
 ate (i = 907) 
 escreval("Soma destes numeros:", soma) 
 
fimalgoritmo 
 
 
b) Escreva um algoritmo que calcule o produto dos inteiros 
impares de 1 a 15 e, então, exiba os resultados. 
 
Resp: 
algoritmo "7" 
 
var 
 
i,j,produto:inteiro 
inicio 
 
produto <- 1 
para i de 1 ate 15 faca 
 se(i % 2 = 1) entao 
 produto <- produto * i 
 
 fimse 
 escreval(i) 
 
fimpara 
escreval(produto) 
 
fimalgoritmo 
 
 
c) Um hotel com 30 quartos cobra R% 50,00 por diária mais 
taxa de serviços. A taxa de serviços é de: 
R%4,00 por diária, se o número de diária for <15; 
R%3,60 por diária, se o número de diária for =15; 
R%3,00 por diária, se o número de diária for >15; 
Faça um algoritmo que imprima o nome e o total da conta de 
cada cliente do hotel. 
Imprima também o total de ganho do hotel. 
 
Resp: 
algoritmo "8" 
 
var 
 
 total, valor_diaria:real 
 dias:inteiro 
 nome:caracter 
 
inicio 
 escreval("Escreva seu nome: ") 
 leia(nome) 
 escreval("Digite o numero de dias que será hospedado: ") 
 leia(dias) 
 se dias < 15 entao 
 valor_diaria <- 4.00 * dias 
 senao se dias = 15 entao 
 valor_diaria <- 3.60 * dias 
 senao 
 valor_diaria <- 3.00 * dias 
 fimse 
 total <- (50 * dias) + valor_diaria 
 escreval("Senhor(a):", nome) 
 escreval("Total da conta: R$", total) 
 escreval("") 
 escreval("Total de serviços: R$", valor_diaria) 
 
fimalgoritmo 
 
 
d) Faça um algoritmo leia a primeira letra do estado civil de 
uma pessoa e mostre uma mensagem com a sua descrição 
(Solteiro, Casado, Viuvo, Divorciado). Mostre uma mensagem 
de erro, se necessário. Utilize a estrutura Caso. 
 
Resp: 
algoritmo "10" 
 
var 
 op : caracter 
 
inicio 
 escreval (" Identificador de Estado Civil ") 
 escreval (" ") 
 escreval ("Digite [S] para Solteiro") 
 escreval ("Digite [C] para Casado") 
 escreval ("Digite [D] para Divorciado") 
 escreval ("Digite [V] para Viuvo") 
 escreval ("") 
 escreva ("Informe um dos Caracteres identificadores: ") 
 leia (op) 
 escolha op 
 caso "s" 
 escreval ("") 
 escreva ("Solteiro, cuide das espinhas!") 
 caso "c" 
 escreval ("") 
 escreva ("Casado, esta livre !") 
 caso "d" 
 escreval ("") 
 escreva ("Divorciado, nao se embriague!!") 
 caso "v" 
 escreval ("") 
 escreva ("Viuvo, parabens pode se relacionar 
novamente!") 
 outrocaso 
 escreval ("") 
 escreva ("Erro") 
 escreval ("") 
 fimescolha 
 escreval ("") 
fimalgoritmo