Decisión – Ejemplo 2

Enunciado

Leer dos fechas f1 y f2 cada una de las cuales viene dada en 3 variables día, mes y año. Informar cuál de ellas es la anterior o si son iguales.

Código

Python

def main():
    print( "Fecha/Date (dd mm aa) 1 " )
    d1, m1, a1 = int( input( " dd: " ) ), int( input( " mm: " ) ), int( input( " aa: " ) )
    
    print( "Fecha/Date (dd mm aa) 2 " )
    d2, m2, a2 = int( input( " dd: " ) ), int( input( " mm: " ) ), int( input( " aa: " ) )

    f1 = a1*10000 + m1*100 + d1
    f2 = a2*10000 + m2*100 + d2

    if f1==f2:
        print( "\nf1 = f2" )
    else:
        if f1<f2:
            print( "\nf1 < f2" )
        else:
            print( "\nf1 > f2" )

    input( "Presionar/Press Enter to exit " )
main()

C++

#include <iostream>
using namespace std ;
#include <conio.h>

int main ()
{
	int d1, d2, m1, m2, a1, a2, f1, f2 ;

   	cout << endl << "Fecha/Date (dd mm aa) 1: " ;
   	cin >> d1 >> m1 >> a1 ;
   	cout << endl << "Fecha/Date (dd mm aa) 2: " ;
   	cin >> d2 >> m2 >> a2 ;

   	f1 = a1*10000 + m1*100 + d1 ;
   	f2 = a2*10000 + m2*100 + d2 ;

   	if ( f1==f2 )
   	     cout << endl << "f1 = f2" ;
   	else
   	     if ( f1<f2 )
		cout << endl << "f1 < f2" ;
      	     else
      		cout << endl << "f2 > f1" ;

	cout << "Presionar/Press Enter to exit " ;
   	getch() ;
   	return 0 ;
}

Pascal

Program Problema7_3 ;
var 
    d1, d2, m1, m2, a1, a2, f1, f2 : longint ;
	
begin
    write( 'Fecha/Date (dd mm aa) 1: ') ; 
    readln( d1, m1, a1 ) ;
    write( 'Fecha/Date (dd mm aa) 2: ') ; 
    readln( d2, m2, a2 ) ;
    
    f1 := a1*10000 + m1*100 + d1 ;
    f2 := a2*10000 + m2*100 + d2 ;

    if f1=f2 
    then writeln( 'f1 = f2' )
    else if f1<f2 
         then writeln( 'f1 < f2' )
         else writeln( 'f1 > f2' ) ;

    writeln('Presionar/Press Enter to exit') ;
    readln ;
end.

Diagramas