L3-Exercício 3-16 Escreva um algoritmo que leia os nomes dos três candidatos ao Senado (para uma vaga) com suas respectivas votações. O algoritmo deve escrever o nome do candidato mais votado. Por exemplo, Maior votação: João da Silva No caso de haver empate entre dois (os mais votados) ou entre os três candidatos, devem ser escritos os nomes desses candidatos. Por exemplo, Maior votação: João da Silva, Maria do Socorro


algoritmo "Senado"
// Função :
// Autor :
// Data : 23/09/2010
// Seção de Declarações
var
   n1,n2,n3:literal
   v1,v2,v3:inteiro
inicio
// Seção de Comandos
   escreva("Digite o nome dos 3 candidatos seguidos de enter ")
   leia(n1,n2,n3)
   escreva("Digite a quantidade de votos que receberam respectivamente ")
   leia(v1,v2,v3)

   se((v1=v2) e (v1=v3)) entao
    escreva(n1,",",n2,",",n3," tiveram os mesmos votos")
   senao
    se(v1=v2)entao
        se(v3>v1)entao
         escreva(n3)
        senao
         escreva(n1,",",n2)
        fimse
    senao
     se(v1>v2)entao
      se(v1>v3)entao
       escreva("O candidato ",n1, " tem o maior número de votos.")
      senao
       escreva("O candidato ",n2, " tem o maior número de votos.")
      fimse
     senao
      se(v2>v3)entao
       escreva("O candidato ",n2, " tem o maior número de votos.")
      senao
       escreva("O candidato ",n3, " tem o maior número de votos.")
      fimse
     fimse
    fimse
   fimse
fimalgoritmo


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


algoritmo "Data R"        ecente
// Função :
// Autor :
// Data : 23/09/2010
// Seção de Declarações
var
  m1,d1,a1,m2,d2,a2: inteiro
  idade:real

inicio
// Seção de Comandos
   escreva("Entre com o dia, mês e ano  seguidos de enter.")
   leia(d1,m1,a1)
   escreva("Entre com o dia, mês e ano seguidos de enter.")
   leia(d2,m2,a2)
 
  se(a2>a1)entao
   escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
  senao
    se(a1>a2)entao
      ("A data" ,d1,"/",m1,"/",a1," é a mais recente")
    senao
      se(m1>m2)entao
        escreva("A data" ,d1,"/",m1,"/",a1," é a mais recente")
      senao
        se(m2>m1)entao
           escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
        senao
            se(d1>d2) entao
             escreva("A data" ,d1,"/",m1,"/",a1," é a mais recente")
            senao
             se (d2>d1)entao
                escreva("A data" ,d2,"/",m2,"/",a2," é a mais recente")
             senao
               escreva("As datas são iguais.")
             fimse
            fimse
        fimse
      fimse
    fimse
  fimse
 
fimalgoritmo