P_12_E_4

=__**Calcular la edad de una persona**__= > > Leer la fecha de nacimiento y la fecha actual y calcular la edad

code format="pascal" PROGRAM CalcularEdad ; VAR iDiaNac, iMesNac, iAnioNac, iDiaAct, iMesAct, iAnioAct, iEdad: Integer ; BEGIN WriteLN ; WriteLN ('Introduce tu fecha de nacimiento: ') ; Write   ('                D¡a: ') ; ReadLn  (iDiaNac) ; Write   ('                Mes: ') ; ReadLn  (iMesNac) ; Write   ('     (4 cifras) A¤o: ') ; ReadLn  (iAnioNac) ; WriteLN ; WriteLN ('Introduce la fecha actual: ') ; Write   ('                D¡a: ') ; ReadLn  (iDiaAct) ; Write   ('                Mes: ') ; ReadLn  (iMesAct) ; Write   ('     (4 cifras) A¤o: ') ; ReadLn  (iAnioAct) ;

iEdad := iAnioAct - iAnioNac ;

IF iMesAct < iMesNac THEN iEdad := iEdad - 1 ELSE IF iMesAct = iMesNac THEN IF iDiaAct < iDiaNac THEN iEdad := iEdad - 1 ;

Writeln ; Writeln ('Tu edad es : ', iEdad) ;

ReadLn ;

END. code