Vivian Marucci

3-18. Escreva um algoritmo que leia as notas das duas primeiras provas de um aluno e calcule qual o valor mínimo da terceira nota, para que seja aprovado, considerando a média mínima das 3 provas 6.0.

lgoritmo "Aluno Aprovado"
var
prova1, prova2, proximaProva, media: numerico
inicio
escreval ("Calcular nota para aluno ser aprovado ")
escreva ("Informe a primeira nota: ")
leia (prova1)
escreva ("Informe a segunda nota: ")
leia (prova2)
proximaProva <- (prova1 + prova2) - 18
media <- (prova1 + prova2 + proximaProva) / 3
se (media >= 6.0) entao
      escreva ("O aluno foi aprovado com: ", media:5:2, " de média.")
senao
      escreva ("O aluno foi reprovado" )
fimse
   fimalgoritmo

3-17. Escreva um algoritmo que leia a quantia em dinheiro que uma pessoa tem para enviar cartas, o preço de um envelope, o preço de um selo, a quantidade de selos que a pessoa já tem e a quantidade de envelopes que a pessoa também já tem. Calcular e informar quantas cartas a pessoa pode enviar.

algoritmo "Votação para o Senado"
var
nome1, nome2, nome3: literal
votos1, votos2, votos3: numerico
inicio
escreval ("Clacule o senador mais votado ")
escreva ("Informe o nome do candidato 1: ")
leia (nome1)
escreva ("Informe a quantidade de votos do candidato 1: ")
leia (votos1)
escreva ("Informe o nome do candidato 2: ")
leia (nome2)
escreva ("Informe a quantidade de votos do candidato 2: ")
leia (votos2)
escreva ("Informe o nome do candidato 3: ")
leia (nome3)
escreva ("Informe a quantidade de votos do candidato 3: ")
leia (votos3)
se (votos1 > votos2) e (votos1 > votos3) entao
     escreva ("Maior Votação é do candidato: ", nome1)
senao
     se (votos2 > votos1) e (votos2 > votos3) entao
         escreva ("Maior Votação é do candidato: ", nome2)
     senao
         se (votos3 > votos1) e (votos3 > votos2) entao
             escreva ("Maior Votação é do candidato: ", nome3)
         senao
             se (votos1 > votos2) e (votos1 = votos3) entao
                escreva ("Maior Votação são dos candidatos: ", nome1, " e " , nome3)
             senao
                 se (votos1 > votos3) e (votos1 = votos2) entao
                     escreva ("Maior Votação são dos candidatos: ", nome1, " e " , nome2)
                 senao
                     se (votos2 > votos1) e (votos2 = votos3) entao
                        escreva ("Maior Votação são dos candidatos: ", nome2, " e " , nome3)
                     senao
                         se (votos1=votos2) e (votos1=votos3) entao
                             escreva ( " Os candidatos: ", nome1, ", " , nome2, " e ", nome3, " tiveram a mesma quantidade de votos." )
                         fimse
                     fimse
                 fimse
             fimse
         fimse
     fimse
fimse
fimalgoritmo

3-16. Escreva um algoritmo que leia o nome de 3 candidatos ao Senado, com suas votações. Escreva o nome do candidato mais votado, e em caso de impate, escreva o nome dos mais votados

3-15. Escreva um algoritmo que leia duas datas, na forma dia, mês e ano, e informe qual é a mais recente.

algoritmo "Informe a data recente"
var
ano1, ano2, mes1, mes2, dia1, dia2, primeiraData, segundaData: inteiro
inicio
escreval ("Qual é a data mais recente ")
escreva ("Informe o ano da primeira data: ")
leia (ano1)
escreva ("Informe o mês da primeira data: ")
leia (mes1)
escreva ("Informe o dia da primeira data: ")
leia (dia1)
escreva ("Informe o ano da segunda data: ")
leia (ano2)
escreva ("Informe o mês da segunda data: ")
leia (mes2)
escreva ("Informe o dia da segunda data: ")
leia (dia2)
primeiraData <- (ano1*365) + (mes1*30) + dia1
segundaData <- (ano2*365) + (mes2*30) + dia2
se primeiraData > segundaData entao
    escreva ("A data mais recente é a Primeira Data: ", ano1, " de ", mes1, " de" , dia1)
senao
    escreva ("A data mais recente é a Segunda Data: ", ano2, " de ", mes2, " de" , dia2)
fimse


fimalgoritmo

3-14 - Escreva um algoritmo que leia 3 valores correspondentes ao dia, mês e ano de nascimento de uma pessoa e outros três valores correspondentes ao dia, mês e ano do dia corrente. O algoritmo deve escrever a idade da pessoa.

algoritmo "Calcule a idade"
var
ano, mes, dia, diaNascimento, mesNascimento, anoNascimento, diaAtual, mesAtual, anoAtual: real
inicio
escreval ("Calcule a idade ")
escreva ("Informe o dia do nascimento: ")
leia (diaNascimento)
escreva ("Informe o mês do nascimento: ")
leia (mesNascimento)
escreva ("Informe o ano do nascimento: ")
leia (anoNascimento)
escreva ("Informe o dia de hoje: ")
leia (diaAtual)
escreva ("Informe o mês corrente: ")
leia (mesAtual)
escreva ("Informe o ano corrente: ")
leia (anoAtual)
ano <- anoAtual - anoNascimento
mes <- mesAtual - mesNascimento
dia <- diaAtual - diaNascimento
escreva (" Você tem hoje: ", ano, " ano(s) ", mes, " mês(es) e ", dia, " dia(s)")

fimalgoritmo

3-13 - Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo ("Masculino" ou Feminino") e calcule seu peso ideal, dado por: peso ideal homem = (72,7 x altura) - 58 ou peso ideal da mulher = (62,1x altura) - 44. O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal em quilos.

algoritmo "Peso Ideal"
var
altura: numerico
peso, pesoIdealHomem, pesoIdealMulher, pesoAcima, pesoAbaixo: real
sexo: literal
inicio
escreval ("Calcule o peso ideal ")
escreva ("Informe o peso em quilograma: ")
leia (peso)
escreva ("Informe a altura em metros: ")
leia (altura)
escreva ("Informe o sexo, masculino (m) ou feminino (f): ")
leia (sexo)
   se (sexo = "m") entao
     pesoIdealHomem <- (72.7 * altura) - 58
       se (pesoIdealHomem < peso) entao
         pesoAcima <- peso - pesoIdealHomem
           escreva (" Você está com: ", pesoAcima:5:2, " kg acima de seu peso ideal")
       senao
         se (pesoIdealHomem > peso) entao
           pesoAbaixo <- pesoIdealHomem - peso
              escreva (" Você está com: ", pesoAbaixo:5:2, " kg abaixo de seu peso ideal")
         fimse
       fimse
   fimse
se (sexo = "f") entao
     pesoIdealMulher <- (62.1 * altura) - 44.77
       se (pesoIdealMulher < peso) entao
         pesoAcima <- peso - pesoIdealMulher
           escreva (" Você está com: ", pesoAcima:5:2, " kg acima de seu peso ideal")
       senao
         se (pesoIdealMulher > peso) entao
           pesoAbaixo <- pesoIdealMulher - peso
              escreva (" Você está com: ", pesoAbaixo:5:2, " kg abaixo de seu peso ideal")
         fimse
       fimse
   fimse

fimalgoritmo

3-12 Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule sua média artmética e escreva-a. As notas devem estar no intervalor (0,10).

lgoritmo "Média de 3 Provas"
var
prova1, prova2, prova3, media: real
inicio
escreval ("Calcule a média das 3 provas")
escreva ("Informe a nota da prova 1: ")
leia (prova1)
escreva ("Informe a nota da prova 2: ")
leia (prova2)
escreva ("Informe a nota da prova 3: ")
leia (prova3)
se (prova1 >= 0) e (prova1<= 10) entao
     se (prova2 >= 0) e (prova2<= 10) entao
        se (prova3 >= 0) e (prova2<= 10) entao
            media <- (prova1+prova2+prova3)/3
        fimse
     fimse
fimse
escreva (" A média das 3 provas eh: ", media:5:2)
fimalgoritmo

segunda-feira, 27 de setembro de 2010