Lista de Exercícios - Revisão 3 (Resolvida)

Prévia do material em texto

Lista de Exercícios 
 
Curso de Algoritmos e Técnicas de Programação 
 
Prof. Marcelo Cabral 
 
 
 
Portugol: 
 
1. Escreva um algoritmo que leia quatro notas, calcule a média delas e exiba se o 
aluno foi aprovado ou reprovado e sua respectiva nota. 
 
algoritmo "quatro_notas_aprovado_ou_reprovado" 
// Função : 
// Autor : 
// Data : 4/12/2015 
// Seção de Declarações 
var 
nota1,nota2,nota3,nota4 : real 
media : real 
inicio 
// Seção de Comandos 
escreva("Digite a primeira nota: ") 
leia(nota1) 
escreva("Digite a segunda nota: ") 
leia(nota2) 
escreva("Digite a terceira nota: ") 
leia(nota3) 
escreva("Digite a quarta nota: ") 
leia(nota4) 
media <- (nota1 + nota2 + nota3+ nota4) / 4 
se (media >= 7) entao 
 escreva("Aluno aprovado com media ",media) 
fimse 
se (media < 7)entao 
 escreva("Aluno reprovado com media",media) 
fimse 
fimalgoritmo 
 
2. Escreva um algoritmo que leia um número e exiba se ele é divisível por 2 e por 5 
 
algoritmo "divisivel_por_2_e_por_5" 
// Função : 
// Autor : 
// Data : 25/06/2017 
// Seção de Declarações 
var 
 numero : inteiro 
inicio 
// Seção de Comandos 
 escreva("Digite um número: ") 
 leia(numero) 
 se (numero % 2 = 0) e (numero % 5 = 0) entao 
 escreval("Número divisivel por 2 e por 5") 
 senao 
 se numero % 2 = 0 entao 
 escreval("Número divisivel somente por 2") 
 senao 
 se numero % 5 = 0 entao 
 escreval("Número divisivel somente por 5") 
 senao 
 escreval("O número não é divisivel nem por 2 nem por 5") 
 fimse 
 fimse 
 fimse 
fimalgoritmo 
 
3. Faça um algoritmo que leia um numero de 0 e 9 e exiba o valor do numero por 
extenso. 
 
algoritmo "numero_por_extenso" 
// Função : 
// Autor : 
// Data : 25/06/2017 
// Seção de Declarações 
var 
 numero : inteiro 
inicio 
// Seção de Comandos 
 escreval("Digite um número de 0 ate 10") 
 leia(numero) 
 escolha numero 
 caso 0 
 escreval("zero") 
 caso 1 
 escreval("um") 
 caso 2 
 escreval("dois") 
 caso 3 
 escreval("tres") 
 caso 4 
 escreval("quatro") 
 caso 5 
 escreval("cinco") 
 caso 6 
 escreval("seis") 
 caso 7 
 escreval("sete") 
 caso 8 
 escreval("oito") 
 caso 9 
 escreval("nove") 
 outrocaso 
 se numero < 0 entao 
 escreval("Não trabalho com números menores que zero") 
 senao 
 escreval("Não trabalho com números maiores que nove") 
 fimse 
 fimescolha 
fimalgoritmo 
 
4. Escreva um algoritmo que leia um caractere e diga se o mesmo é uma letra, um 
número ou um símbolo. 
 
algoritmo "caractere_letra_numero_ou_simbolo" 
// Função : 
// Autor : 
// Data : 25/06/2017 
// Seção de Declarações 
var 
 c1 : caractere 
inicio 
// Seção de Comandos 
 escreva("Digite uma letra ou um numero de 0 a 9 ou um simbolo: ") 
 leia(c1) 
 escolha c1 
 caso 
"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","
v","w","x","y","z" 
 escreval("É uma letra") 
 caso "0","1","2","3","4","5","6","7","8","9" 
 escreval("É um número") 
 caso ",",".","<",">",";",":","/","?","~","^","[","]","{","}","-
","_","+","'","!","@","#","$","%","¨","&","*","(",")" 
 escreval("É um simbolo") 
 outrocaso 
 escreval("Não consegui identificar") 
 fimescolha 
fimalgoritmo 
 
5. Escreva um algoritmo que possibilite a exibição os números de 1 a 500 em 
ordem crescente e decrescente 
 
algoritmo "numeros_1_a_500" 
// Função : 
// Autor : 
// Data : 4/12/2015 
// Seção de Declarações 
var 
 numero : inteiro 
 bandeira : caractere 
inicio 
// Seção de Comandos 
 escreval("Digite a ordem de exibição dos números: Crescente ou 
Decrescente") 
 leia(bandeira) 
 se bandeira = "Crescente" entao 
 para numero de 1 ate 500 passo 1 faca 
 escreval(numero) 
 fimpara 
 senao 
 para numero de 500 ate 1 passo -1 faca 
 escreval(numero) 
 fimpara 
 fimse 
fimalgoritmo 
 
6. Faça um algoritmo que leia 10 números inteiros e para cada um deles exiba o 
dobro, a metade e o quadrado respectivamente. 
 
algoritmo "dobro_metade_quadrado_de_10_numeros" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..10] de real 
 contador : inteiro 
inicio 
// Seção de Comandos 
 para contador de 1 ate 10 passo 1 faca 
 escreva("Digite o ",contador," número: ") 
 leia(numeros[contador]) 
 fimpara 
 para contador de 1 ate 10 passo 1 faca 
 escreva("O dobro do número ",numeros[contador]," é 
",numeros[contador]*2) 
 escreva(", a metade do número ",numeros[contador]," é 
",numeros[contador]/2) 
 escreval(" e o quadrado do número ",numeros[contador]," é 
",numeros[contador]*numeros[contador]) 
 fimpara 
fimalgoritmo 
 
7. Faça um algoritmo que leia 10 números e exiba se ele é par ou impar. 
 
algoritmo "par_ou_impar_10_numeros" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..10] de inteiro 
 contador : inteiro 
inicio 
// Seção de Comandos 
 para contador de 1 ate 10 passo 1 faca 
 escreva("Digite o ",contador,"º número: ") 
 leia(numeros[contador]) 
 fimpara 
 para contador de 1 ate 10 passo 1 faca 
 se numeros[contador] % 2 = 0 entao 
 escreval("O ",contador,"º número é par") 
 senao 
 escreval("O ",contador,"º número é impar") 
 fimse 
 fimpara 
fimalgoritmo 
 
8. Baseando-se na questão 2 dessa folha faça um algoritmo que leia 10 números e 
exiba se ele é divisível por 2 e por 5 
 
algoritmo "divisivel_por_2_e_por_5_10_numeros" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..10] de inteiro 
 contador : inteiro 
inicio 
// Seção de Comandos 
 para contador de 1 ate 10 passo 1 faca 
 escreva("Digite o ",contador,"º número: ") 
 leia(numeros[contador]) 
 fimpara 
 para contador de 1 ate 10 passo 1 faca 
 se (numeros[contador] % 2 = 0) e (numeros[contador] % 5 = 0) entao 
 escreval("O ",contador,"º número é divisivel por 2 e por 5") 
 senao 
 se numeros[contador] % 2 = 0 entao 
 escreval("O ",contador,"º número é divisivel somente por 2") 
 senao 
 se numeros[contador] % 5 = 0 entao 
 escreval("O ",contador,"º número é divisivel somente por 5") 
 senao 
 escreval("O ",contador,"º número não é divisivel nem por 2 nem 
por 5") 
 fimse 
 fimse 
 fimse 
 fimpara 
fimalgoritmo 
 
9. Faça um algoritmo que leia um vetor de 7 números e exiba todos os seus 
elementos 
 
algoritmo "vetor_7_numeros" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..7] de inteiro 
 contador : inteiro 
inicio 
// Seção de Comandos 
 para contador de 1 ate 7 passo 1 faca 
 escreva("Digite o ",contador,"º número: ") 
 leia(numeros[contador]) 
 fimpara 
 para contador de 1 ate 7 passo 1 faca 
 escreval(numeros[contador]) 
 fimpara 
fimalgoritmo 
 
10. Faça um algoritmo que insira em um vetor de 10 elementos os números de 1 a 
10 em ordem decrescente 
 
algoritmo "vetor_10_numeros_ordem_decrescente" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..10] de inteiro 
 contador1,contador2 : inteiro 
inicio 
// Seção de Comandos 
 contador2 <- 10 
 para contador1 de 1 ate 10 passo 1 faca 
 numeros[contador1] <- contador2contador2 <- contador2 - 1 
 fimpara 
 para contador1 de 1 ate 10 passo 1 faca 
 escreval(numeros[contador1]) 
 fimpara 
fimalgoritmo 
 
11. Faça um algoritmo que insira em um vetor de 10 elementos o triplo de um 
número determinado pelo usuário para cada elemento 
 
 
algoritmo "vetor_10_numeros_contendo_o_triplo_do_valor_digitado" 
// Função : 
// Autor : 
// Data : 27/06/2017 
// Seção de Declarações 
var 
 numeros : vetor [1..10] de inteiro 
 contador : inteiro 
inicio 
// Seção de Comandos 
 para contador de 1 ate 10 passo 1 faca 
 escreva("Digite o ",contador,"º número: ") 
 leia(numeros[contador]) 
 numeros[contador] <- numeros[contador] * 3 
 fimpara 
 para contador de 1 ate 10 passo 1 faca 
 escreval(numeros[contador]) 
 fimpara 
fimalgoritmo