Lista de Exercício Algoritmo e Programação I (2)

Prévia do material em texto

MINISTÉRIO DA EDUCAÇÃO 
UNIVERSIDADE FEDERAL DO PIAUÍ 
CENTRO DE EDUCAÇÃO ABERTA E A DISTÂNCIA 
CURSO DE SISTEMAS DE INFORMAÇÃO 
 
ALGORITMO E PROGRAMAÇAO I (REOFERTA) 
NOME: 
MATRICULA: POLO: 
LISTA DE EXERCÍCIO 
1. Dados três números, exibi-los em ordem crescente. 
algoritmo "EXERCICIO 1" 
 
var 
a,b,c:inteiro 
inicio 
// Seção de Comandos 
repita 
escreva("PRIMEIRO Nº ") 
leia(a) 
escreva("SEGUNDO Nº ") 
leia(b) 
escreva("TERCEIRO Nº ") 
leia(c) 
 
se(a=b) e (a=c) e (b=c) entao 
 escreval("Todos são iguais") 
fimse 
 se(a<b) e (b<c) e (c>a) e (c>b) entao 
 escreval(a,b,c) 
 fimse 
 se(a<b) e (a<c) e (b>a) e (b>c) entao 
 escreval(a,c,b) 
 fimse 
 se(a>b) e (a<c) e (b<c) e (c>a) entao 
 escreval(b,a,c) 
 fimse 
 se(c<a) e (c<b) e (b>c) e (b>a) entao 
 escreval(c,a,b) 
 fimse 
 se(c<a) e (c<b) e (b<a) e (b>c) entao 
 escreval(c,b,a) 
 fimse 
 se(a>b) e (a>c) e (b<c) e (c<a) entao 
 escreval(b,c,a) 
 fimse 
fimrepita 
fimalgoritmo 
 
 
2. Dado um número, informar se ele é ou não é divisível por 5. 
Algoritmo "EXERCICIO 2" 
Var 
 // Seção de Declarações das variáveis 
 Num:inteiro 
 AUX1:INTEIRO 
Inicio 
 // Seção de Comandos, procedimento, funções, operadores, etc... 
 ESCREVAL("DIGITE UM NUMERO::") 
 LEIA(NUM) 
 AUX1<-NUM MOD 5 
 
 SE (AUX1=0)ENTAO 
 SE (NUM MOD 5)=0 ENTAO 
 ESCREVAL("NUMERO DIVISIVEL POR 5") 
 FIMSE 
 SENAO 
 ESCREVAL("NUMERO NÃO É DIVISÍVEL POR NENHUM DELES") 
 FIMSE 
Fimalgoritmo 
 
3. Dado um número, exibir todos os seus divisores. 
algoritmo "EXERCICIO 3" 
var 
n,a,divisor,b:inteiro 
inicio 
// Seção de Comandos 
escreval("Digite um número") 
Leia (a) 
//Calculo de divisores 
enquanto n<>a faca 
n<-n+1 
Divisor<-a%n 
se divisor=0 entao 
escreval(n) 
b<-b+1 
fimse 
fimenquanto 
escreval() 
escreval(a," tem ",b," divisores") 
fimalgoritmo 
 
4. Entrar com dez números, exibir a metade e a raiz cúbica de cada 
número. 
Algoritmo "EXERCICIO 4 – MANEIRA 1" 
Var 
x1,x2,x3,x4,x5,x6,x7,x8,x9,x10 : inteiro 
d, r : real 
 
Inicio 
repita 
escreva("1º Nº: ") 
leia(x1) 
escreva("2º Nº: ") 
leia(x2) 
escreva("3º Nº: ") 
leia(x3) 
escreva("4º Nº: ") 
leia(x4) 
escreva("5º Nº: ") 
leia(x5) 
escreva("6º Nº: ") 
leia(x6) 
escreva("7º Nº: ") 
leia(x7) 
escreva("8º Nº: ") 
leia(x8) 
escreva("9º Nº: ") 
leia(x9) 
escreva("10º Nº: ") 
leia(x10) 
 
se (x1<0) entao 
escreval ("numero invalido") 
fimse 
se (x1>=0) entao 
d<-x1/2 
r<-raizq(x1) 
escreval("metade de",x1," e",d) 
escreval("raiz de",x1," e",r) 
fimse 
 
se (x2<0) entao 
escreval ("numero invalido") 
fimse 
se (x2>=0) entao 
d<-x2/2 
r<-raizq(x2) 
escreval("metade de",x2," e",d) 
escreval("raiz de",x2," e",r) 
fimse 
 
se (x3<0) entao 
escreval("numero invalido") 
fimse 
se (x3>=0) entao 
d<-x3/2 
r<-raizq(x3) 
escreval("metade de",x3," e",d) 
escreval("raiz de",x3," e",r) 
fimse 
 
se (x4<0) entao 
escreval ("numero invalido") 
fimse 
se (x4>=0) entao 
d<-x4/2 
r<-raizq(x4) 
escreval("metade de",x4," e",d) 
escreval("raiz de",x4," e",r) 
fimse 
 
se (x5<0) entao 
escreval ("numero invalido") 
fimse 
se (x5>=0) entao 
d<-x5/2 
r<-raizq(x5) 
escreval("metade de",x5," e",d) 
escreval("raiz de",x5," e",r) 
fimse 
 
se (x6<0) entao 
escreval ("numero invalido") 
fimse 
se (x6>=0) entao 
d<-x6/2 
r<-raizq(x6) 
escreval("metade de",x6," e",d) 
escreval("raiz de",x6," e",r) 
fimse 
 
se (x7<0) entao 
escreval ("numero invalido") 
fimse 
se (x7>=0) entao 
d<-x7/2 
r<-raizq(x7) 
escreval("metade de",x7," e",d) 
escreval("raiz de",x7," e",r) 
fimse 
 
se (x8<0) entao 
escreval ("numero invalido") 
fimse 
se (x8>=0) entao 
d<-x8/2 
r<-raizq(x8) 
escreval("metade de",x8," e",d) 
escreval("raiz de",x8," e",r) 
fimse 
 
se (x9<0) entao 
escreval ("numero invalido") 
fimse 
se (x9>=0) entao 
d<-x9/2 
r<-raizq(x9) 
escreval("metade de",x9," e",d) 
escreval("raiz de",x9," e",r) 
fimse 
 
se (x10<0) entao 
escreval ("numero invalido") 
fimse 
se (x10>=0) entao 
d<-x10/2 
r<-raizq(x10) 
escreval("metade de",x10," e",d) 
escreval("raiz de",x10," e",r) 
fimse 
fimalgoritmo 
 
algoritmo "EXERCICIO 4 – MENEIRA 2" 
var 
 num, d, r: real 
 aux: inteiro 
inicio 
escreva("informe o primeiro numero: ") 
leia(num) 
se (num<0) entao 
escreval ("numero invalido") 
fimse 
se (num>=0) entao 
d<-num/2 
r<-raizq(num) 
escreval("metade de",num," e",d) 
escreval("raiz de",num," e",r) 
fimse 
 
para aux de 1 ate 9 passo 1 faca 
escreval("") 
 escreva("informe o proximo numero: ") 
 leia(num) 
 se (num<0) entao 
escreval ("numero invalido") 
fimse 
se (num>=0) entao 
d<-num/2 
r<-raizq(num) 
escreval("metade de",num," e",d) 
escreval("raiz de",num," e",r) 
fimse 
 
fimpara 
fimalgoritmo 
 
 
5. Faça um algoritmo que leia o nome de um piloto, uma distância 
percorrida em km e o tempo que o piloto levou para percorrê-la 
(em horas). O programa deve calcular a velocidade média - 
Velocidade =Distância / Tempo - em km/h, e exibir a seguinte 
frase: 
“A velocidade média do <nome do piloto> foi <velocidade media 
calculada> km/h.” 
 
 
 
 
Algoritmo "EXERCICIO 5" 
Var 
piloto, r : caractere 
distancia, velocidade, tempo : real 
 
Inicio 
repita 
escreva ("Nome do piloto: ") 
leia(piloto) 
escreva ("Distancia(KM): ") 
leia(distancia) 
escreva ("Tempo(Horas) :") 
leia(tempo) 
 
velocidade<-distancia/tempo 
escreval ("A velocidade media do piloto ", piloto," foi de ", 
velocidade,"Km/h") 
escreval () 
escreva ("executar novamente? ") 
leia(r) 
 se (r="s")entao 
 fimse 
 fimescolha 
 ate (r="n") 
fimalgoritmo 
 
6. Escreva um programa que leia um número inteiro. Se o número lido 
for positivo, escreva uma mensagem indicando se ele é par ou 
ímpar. Se o número for negativo, escreva a seguinte mensagem 
“Este número não é positivo”. 
Algoritmo "EXERCICIO 6" 
Var 
r : caractere 
x, y : inteiro 
Inicio 
repita 
escreva ("numero 1: ") 
leia(x) 
escreva ("numero 2: ") 
leia(y) 
 
se (x<0)entao 
 escreval ("Este numero nao e positivo") 
 fimse 
se(x mod 2 = 0)entao // verifica se é par 
 escreval(x," é par") 
 fimse 
se(x mod 2 > 0)entao // verifica se é impar 
 escreval(x," é impar") 
 fimse 
 
se (y<0)entao 
 escreval ("Este numero nao e positivo") 
 fimse 
se(y mod 2 = 0)entao // verifica se é par 
 escreval(y," é par") 
 fimse 
se(y mod 2 > 0)entao // verifica se é impar 
 escreval(y," é impar") 
 fimse 
 
escreval () 
escreva ("executar novamente? ") 
leia(r) 
 se (r="s")entao 
 fimse 
 fimescolha 
 ate (r="n") 
fimalgoritmo 
 
 
7. Faça um algoritmo que leia 100 valores e os escreva na ordem 
contrária à que foram digitados. 
algoritmo "EXERCICIO 7" 
var 
num:vetor[1..100]de inteiro 
i:inteiro 
inicio 
para i de 1 ate 100 faca 
escreval("Informe um número:") 
leia(num[i]) 
fimpara 
para i de 100 ate 1 passo -1 faca 
escreval(num[i]) 
fimpara 
fimalgoritmo 
8. Entrar com o nome, matrícula e a média das notas de uma turma de 
alunos. Guardar todas essas informações em um vetor e exibir os 
alunos commédia das notas reprovativa. 
algoritmo "EXERCICIO 8" 
var 
nome: caractere 
matricula, valor: vetor[1..50] de inteiro 
x, i, menor, maior, soma: inteiro 
media:vetor[1..50] de real 
m, nota1, nota2, mediat: real 
reprovado:real 
 
inicio 
escreva("Quantidade de alunos: ") 
leia(x) 
 
para i de 1 ate x faca 
 escreval("") 
 escreval("") 
 escreva("Nome do aluno ",i,": ") 
 leia(nome) 
 escreva("Matricaula do aluno ",i,": ") 
 leia(matricula[i]) 
 escreva("Primeira nota: ") 
 leia(nota1) 
 escreva("Segunda nota: ") 
 leia(nota2) 
 m<- (nota1+nota2)/2 
 escreva("media do aluno ",matricula[i]," = ",m) 
 media[i]<-m 
 mediat<-mediat+m 
fimpara 
 
mediat<-mediat/x 
escreval("") 
escreval("") 
escreva ("media da turma é: ",mediat) 
escreval("") 
 
para i de 1 ate x faca 
 se (media[i] < 7) entao 
 escreval("") 
 escreval("aluno de matricula ", matricula[i], " esta reprovado 
com media: ", media[i]) 
 fimse 
fimpara 
 
fimalgoritmo 
 
 
 
 
9. Fazer uma função que receba como parâmetro a três notas de um 
aluno e retorne o conceito de sua média conforme a tabela abaixo: 
Média Conceito 
 
 
4,0 ≤ média < 6,0 
A 
B 
C 
 média < 4,0 D