Pregunta: | 67792 - CALCULAR EDAD. |
Autor: | Isaac Morales |
Hola compañero soy bastante nuevo en esta pagina. Y tengo que hacer un proyecto que me calcule la edad de alguien en años, meses y días. Masomenos ya lo he trabajado pero no se como convertir positivos las restas de los días. program edad; uses crt; var nombre, apellido: string; dia, mes, ano, year, month, day, yearfn, monthfn, dayfn, yearffn,monthffn: integer; begin clrscr; write ('Este programa le dira su edad y tambien su signo zodiacal'); writeln; write ('Por favor digite su nombre: '); readln (nombre); writeln; write ('Digite su apellido: '); readln (apellido); writeln; write ('Favor digite su fecha de nacimiento en el siguiente formato: '); writeln; write ('Dia de nacimiento: '); readln (dia); write ('Mes de nacimiento: '); readln (mes); write ('Año de nacimiento: '); readln (ano); writeln; write ('Favor digite la fecha actual en el siguiente formato: '); writeln; write ('Dia actual: '); readln (day); write ('Mes actual: '); readln (month); write ('Año actual: '); readln (year); yearfn := year-ano; monthfn := month-mes; dayfn := day-dia; yearffn := yearfn-1; monthffn := 12+monthfn; if (month<mes) and (day>dia) then begin write (nombre,' ',apellido,', su edad actual es de, ', yearffn,' anos ',monthffn,' meses y ', dayfn,' dias.'); end else begin write (nombre,' ',apellido,' Su edad es, ', yearfn,' anos', monthfn,'meses y ', dayfn,' dias.'); end; if (month<mes) then begin write (nombre,' ',apellido,', su edad actual es de, ', yearffn,' anos ',monthffn,' meses y ', dayfn,' dias.'); end else begin write (nombre,' ',apellido,' Su edad es, ', yearfn,' anos', monthfn,'meses y ', dayfn,' dias.'); end; readln; end. |