Resolucao
Por: tchucoo • 9/4/2015 • Trabalho acadêmico • 803 Palavras (4 Páginas) • 157 Visualizações
###
1.
algoritmo horajogo
var
inteiro: horainicial, horafinal, duracao
inicio
escrever("Informe a hora inicial do jogo: ")
ler(horainicial)
escrever("informe a hora final do jogo: ")
ler(horafinal)
se (horainicial >= horafinal) então
duracao = ( 24 - horainicial) + horafinal;
escrever("A duracao do jogo e: " + duracao)
senão
duracao = horafinal - horainicial;
escrever("A duracao do jogo e: " + duracao)
fim-se
fim
/*
Outra alternativa de solução:
se (horainicial < horafinal) então
duracao = horafinal - horainicial
senão
duracao = 24 - (horainicial - horafinal)
fim-se
*/
###
2.
algoritmo somamaiores
var
inteiro: a, b, c, soma
inicio
escrever("informe três números inteiros: ")
ler(a,b,c)
//3, 1, 2
//se (a<>b e a<>c e b<>c) então
se (a<b e a<c) então
//soma(b+c) = soma = b+c
soma(b+c)
escrever(soma)
//escrever(b+c)
senão
se (b<a e b<c) então
soma(a+c)
escrever(soma)
//escrever(a+c)
senão
soma(a+b)
escrever(soma)
//escrever(a+b)
fim-se
fim-se
fim
###
3.
algoritmo massaideal
var
real: h, massa
caractere: sexo
início
escrever("Informe sua altura: ")
ler(h)
escrever("Informe seu sexo M/F: ")
ler(sexo)
se (sexo = 'M') então
massa = 72.7 * h - 58
escrever("Sua massa ideal e: " + massa)
fim-se
se (sexo = 'F') então
massa = 62.1 * h - 44.7
escrever("Sua massa ideal e: " + massa)
fim-se
fim
###
4.
algoritmo ordenarnumero
var
inteiro: a, b, c
caractere: ordenar
início
escrever("Informe três números inteiros: ")
ler(a,b,c)
escrever("Ordenar ascendente-A ou descendente-D? ")
ler(ordenar)
se (ordenar = 'D') então
se a > b então
se b > c então
escrever(a,b,c)
senão
se c > a então
escrever(c,a,b)
senão
escrever(a,c,b)
fim-se
fim-se
senão
se a > c então
escrever(b,a,c)
senão
se c > b então
escrever(c,b,a)
senão
escrever(b,c,a)
fim-se
fim-se
fim-se
fim-se
se (ordenar = 'A') então
se a < b então
se b < c então
escrever(a,b,c)
senão
se c < a então
escrever(c,a,b)
senão
escrever(a,c,b)
fim-se
...