Resolução Lista 02 algoritimos.pdf

Prévia do material em texto

UNIVERSIDADE ANHANGUERA - UNIDERP 
ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
Profa. Noiza Waltrick Trindade 
noiza@uniderp.edu.br 
Algoritmos - Noiza Página 1 
 
 
ALGORITMOS 
LISTA 02 
 
 
 
Em grupos de até TRÊS alunos resolva os algoritmos descritos 
abaixo. O trabalho deve ser entregue manuscrito. 
Todas as questões devem ser compiladas no VisualG e devem estar 
funcionando corretamente de acordo com o enunciado. 
Data de entrega: Dia da prova do 1º Bimestre. 
 
 
 
1. Escreva um algoritmo que receba a altura e o sexo de uma pessoa, calcule e 
imprima o seu peso ideal, usando as seguintes fórmulas: 
para homens: (72.7 * h) – 58 
para mulheres: (62.1 * h) – 44.7 
 
 
2. Construa um algoritmo em que indique se um número digitado está 
compreendido entre 20 e 90 ou não (20 e 90 não estão incluídos). 
 
 
3. Faça um programa que leia 3 números e imprima-os de forma crescente (os 
valores devem também ser trocados nas variáveis). 
 
 
4. Faça um programa que leia as medidas de uma sala retangular (largura da 
parede maior, largura da parede menor e altura da parede), calcule e escreva a 
soma das áreas das paredes internas e também do teto. Considerando a área 
calculada, calcule quantas latas de tintas serão necessárias para pintar a sala 
em questão, sabendo que uma lata de tinta é suficiente para pintar 3m2. 
Obs.: 
- Despreze a existência de portas e janelas. 
- Não se esqueça que a quantidade de latas de tinta deve ser um valor inteiro. 
 
 
5. Faça um programa que receba dois números, calcule e imprima o resultado das 
operações listadas a seguir, de acordo com a escolha do usuário: 
 
Escolha Operação 
1 Média entre os números digitados 
2 Diferença do maior pelo menor 
4 Divisão do primeiro pelo segundo 
 
Se a opção digitada for inválida, mostre uma mensagem de erro e termine a 
execução. Lembre-se que, na operação 3, o segundo número deve ser diferente 
de zero. Use o comando escolha. 
UNIVERSIDADE ANHANGUERA - UNIDERP 
ALGORITMOS E LÓGICA DE PROGRAMAÇÃO 
Profa. Noiza Waltrick Trindade 
noiza@uniderp.edu.br 
Algoritmos - Noiza Página 2 
 
 
 
6. Dados 3 valores L1, L2, L3, verifique se podem ser valores de lados de um 
triângulo (cada lado deve ser menor do que a soma dos outros dois) e, se for, 
determine a sua área. Caso não formem um triângulo, imprima uma mensagem 
informando isso. 
Para o cálculo da área do triângulo, considere a fórmula do semiperímetro: 
sp = (L1 + L2 + L3)/2. 
Área = √sp ∗ (sp − L1) ∗ (sp − L2) ∗ (sp − L3) 
 
 
7. O perfil de uma pessoa pode ser determinado a partir da sua data de 
nascimento, conforme exemplificado a seguir. Dada uma data de nascimento, 
informe em qual perfil a pessoa se encaixa. 
 
 
 
 
 
Observação: 
- Se for verificada cópia de exercícios por outro grupo, os exercícios de todos os 
grupos envolvidos serão desconsiderados. 
Exercício 1: 
 
algoritmo "Peso Ideal" 
var altura, peso:real 
sexo:caracter 
 
inicio 
// Seção de Comandos 
Escreva ("Digite sua altura em metros:") 
Leia (altura) 
Escreva ("Digite seu sexo(homem ou mulher):") 
Leia (sexo) 
Se sexo = "mulher" entao 
peso<-(62.1*altura)- 44.7 
Escreva ("Peso feminino ideal:", peso," Kg") 
senao 
se sexo = "homem" entao 
peso<-(72.7*altura)- 58 
Escreva ("Peso masculino ideal:", peso," Kg") 
fimse 
fimse 
fimalgoritmo 
 
Exercício 2: 
 
algoritmo "Indicação de número" 
var numero:real 
 
inicio 
// Seção de Comandos 
Escreva ("Digite um número: ") 
Leia (numero) 
se (numero>20) e (numero<90) entao 
Escreva ("O número",numero," está compreendido entre 20 e 90") 
senao 
Escreva ("O número",numero," não está compreendido entre 20 e 90") 
fimse 
fimalgoritmo 
 
Exercício 3: 
 
algoritmo "ordem crescente" 
var n1,n2,n3,aux:real 
 
inicio 
// Seção de Comandos 
Escreva ("Digite o primeiro número:") 
leia (n1) 
Escreva ("Digite o segundo número:") 
leia (n2) 
Escreva ("Digite o terceiro número:") 
Leia (n3) 
Se n1>n2 entao 
 aux<-n1 
 n1<-n2 
 n2<-aux 
fimse 
se n1>n3 entao 
 aux<-n1 
 n1<-n3 
 n3<-aux 
fimse 
se n2>n3 entao 
 aux<-n2 
 n2<-n3 
 n3<-aux 
fimse 
Escreva ("A ordem Crescente dos números é:",n1,",",n2,",",n3) 
fimalgoritmo 
 
Exercício 4: 
 
algoritmo "Pintura sala Retangular" 
var pmaior, pmenor, h, amaior, amenor, ateto, soma:real 
qlatas:inteiro 
 
inicio 
// Seção de Comandos 
Escreva ("Digite a largura da parede maior:") 
Leia (pmaior) 
Escreva ("Digite a largura da parede menor:") 
Leia (pmenor) 
Escreva ("Digite a altura:") 
Leia (h) 
amaior<- pmaior*h 
amenor<- pmenor*h 
ateto<- pmaior*pmenor 
soma<- amaior+amenor+ateto 
qlatas<- int(soma/3) 
Escreva ("São necessárias",qlatas," latas") 
fimalgoritmo 
 
Exercício 5: 
 
algoritmo "operações" 
var num1, num2, media, diferenca, quociente:real 
opcao:inteiro 
 
inicio 
// Seção de Comandos 
Escreva ("Digite o primeiro número:") 
Leia (num1) 
Escreva ("Digite o segundo número:") 
Leia (num2) 
Escreval (" Opção Operação") 
Escreval (" 1 Média entre os números digitados") 
Escreval (" 2 Diferença do maior pelo menor") 
Escreval (" 3 Divisão do primeiro pelo segundo") 
Escreva ("Digite a opção desejada:") 
leia (opcao) 
Escolha opcao 
caso 1 
media<-(num1+num2)/2 
Escreva ("A Mèdia entre os números é:", media) 
caso 2 
se num1>num2 entao 
diferenca<-num1-num2 
Escreva ("A diferença do maior pelo menor é:", diferenca) 
senao 
diferenca<-num2-num1 
escreva ("A diferença do maior pelo menor é:", diferenca) 
fimse 
caso 3 
se num2<>0 entao 
quociente<-num1/num2 
Escreva ("O quociente da divisão é:", quociente) 
senao 
escreva ("Nao é possivel dividir por zero") 
fimse 
outrocaso 
Escreva ("Opção inválida") 
fimescolha 
fimalgoritmo 
 
Exercício 6: 
 
algoritmo "área do triângulo" 
var L1, L2, L3, sp, area:real 
 
inicio 
// Seção de Comandos 
Escreva ("Digite primeiro valor:") 
leia (L1) 
Escreva ("Digite segundo valor:") 
leia (L2) 
Escreva ("Digite terceiro valor:") 
leia (L3) 
se (L1<L2+L3) e (L2<L1+L3) e (L3<L1+L2) entao 
sp<-(L1+L2+L3)/2 
area<- Raizq(sp*(sp-l1)*(sp-l2)*(sp-l3)) 
Escreva ("Area do triângulo:",area) 
senao 
Escreva ("Não formam um triângulo.") 
fimse 
fimalgoritmo 
 
Exercício 7: 
 
algoritmo "Perfil Pessoal" 
var dia, mes, ano, x, R:inteiro 
 
inicio 
// Seção de Comandos 
Escreva ("Digite dia de nascimento:") 
leia (dia) 
Escreva ("Digite mês de nascimento:") 
leia (mes) 
Escreva ("Digite ano de nascimento:") 
leia (ano) 
x<-(dia*100 + mes + ano) 
R<-((x\100 + x%100)%5) 
escolha R 
caso 0 
Escreva ("Perfil Tímido") 
caso 1 
Escreva ("Perfil Sonhador") 
caso 2 
Escreva ("Perfil Paquerador") 
caso 3 
EScreva ("Perfil Atraente") 
caso 4 
Escreva ("Perfil Irresistível") 
fimescolha 
fimalgoritmo