domingo, 5 de dezembro de 2010

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

algoritmo “Classifica as datas”
var
dia1,mes1,ano1,dia2,mes2,ano2:inteiro
inicio
  escreva (“Digite o primeiro dia:”)
  leia (dia1)
  escreva (“Digite o primeiro mes:”)
  leia (mes1)
  escreva (“Digite o primeiro ano:”)
  leia (ano1)
  escreva (“Digite o segundo dia:”)
  leia (dia2)
  escreva (“Digite o segundo mes:”)
  leia (mes2)
  escreva (“Digite o segundo ano:”)
  leia (ano2)
  se(ano1>=ano2)entao
    se (mes1>=mes2)entao
      se(dia1>=dia2)entao
        escreva(“A data mais recente é”,dia1,”/”,mes1,”/”,ano1)
      senao
        escreva(“A data mais recente é”,dia2,”/”,mes2,”/”,ano2)
      fimse
    senao
     se(dia1>=dia2)entao
        escreva(“A data mais recente é”,dia1,”/”,mes1,”/”,ano1)
     senao
       escreva(“A data mais recente é”,dia2,”/”,mes2,”/”,ano2)
     fimse
    fimse
  senao
    se(mes1>=mes2)entao
      se(dia1>=dia2)entao
        escreva(“A data mais recente é”,dia1,”/”,mes1,”/”,ano1)
      senao
        escreva(“A data mais recente é”,dia2,”/”,mes2,”/”,ano2)
      fimse
    senao
     se(dia1>=dia2)entao
        escreva(“A data mais recente é”,dia1,”/”,mes1,”/”,ano1)
     senao
       escreva(“A data mais recente é”,dia2,”/”,mes2,”/”,ano2)
     fimse
    fimse
  fimse
fimalgoritmo

Nenhum comentário:

Postar um comentário