Exercício 02 Estrutura de Seleção 2 - Pascal

2) Faça um algoritmo que determine a data cronologicamente maior de duas datas fornecidas
pelo usuário. Cada data deve ser fornecida por três valores inteiros, o primeiro representa o
dia, o segundo o mês e o terceiro o ano.

Program Pzim ;
var
 ano1,dia1,mes1: integer;
 ano2,dia2,mes2: integer;
 Begin
  Write('Informe 1 Data: ');
  readln(dia1);
  ClrScr;
  Write('Informe 1 Data: ',dia1,'/') ;
  readln(mes1);
  ClrScr;
  Write('Informe 1 Data: ',dia1,'/',mes1,'/') ;
  read(ano1); 
  
  Write('Informe 2 Data: ');
  readln(dia2);
  ClrScr;
    Writeln('1 Data: ',dia1,'/',mes1,'/',ano1) ;
  Write('Informe 2 Data:',dia2,'/') ;
  readln(mes2);
  ClrScr;
    Writeln('1 Data: ',dia1,'/',mes1,'/',ano1) ;
  Write('Informe 2 Data: ',dia2,'/',mes2,'/') ;
  read(ano2); 
  clrscr;
    Writeln('1 Data: ',dia1,'/',mes1,'/',ano1) ;
    Writeln('2 Data: ',dia2,'/',mes2,'/',ano2) ;                       
     Writeln;
     Writeln;
    Writeln('----------------------------------'); 
   if (ano1 = ano2) and (mes1 = mes2) and (dia1 = dia2) then
     Writeln('Datas Iguais')
   else if (ano1 = ano2) and ( mes1 = mes2 ) and (dia1 > dia2) then
    Begin
      Writeln('Data Cronologicamente Maior');
      Writeln('1 Data: ',dia1,'/',mes1,'/',ano1);
    end  
   else  if (ano1 = ano2) and ( mes1 = mes2 ) and (dia1 < dia2) then 
    Begin
      Writeln('Data Cronologicamente Maior');     
      Writeln('2 Data: ',dia2,'/',mes2,'/',ano2) ;                       
    end 
   else if (ano1 = ano2) and ( mes1 > mes2 ) then  
    Begin
      Writeln('Data Cronologicamente Maior');
      Writeln('1 Data: ',dia1,'/',mes1,'/',ano1);
    end
   else if ( ano1 = ano2) and ( mes1 < mes2 ) then 
    Begin
      Writeln('Data Cronologicamente Maior');     
      Writeln('2 Data: ',dia2,'/',mes2,'/',ano2) ;                       
    end 
   else if ( ano1 > ano2) then
    Begin
      Writeln('Data Cronologicamente Maior');
      Writeln('1 Data: ',dia1,'/',mes1,'/',ano1);
    end
   else if ( ano1 < ano2) then  
    Begin
      Writeln('Data Cronologicamente Maior');     
      Writeln('2 Data: ',dia2,'/',mes2,'/',ano2) ;                       
    end ;    
End.

Categories: Pascal , Programação