• Lenguaje

    Pascal

  • Descripción

    Pide la fecha actual, la fecha de nacimiento y calcula la edad.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program CalculoDeLaEdad;
uses crt;

var anno_actual, anno_de_nacimiento, dia_actual, dia_de_nacimiento, edad : integer;
var mes_actual, mes_de_nacimiento : integer;
begin
    write ('Ingresa el valor de anno actual: ');
    readln (anno_actual);
    write ('Ingresa el valor de anno de nacimiento: ');
    readln (anno_de_nacimiento);
    write ('Ingresa el valor de dia actual: ');
    readln (dia_actual);
    write ('Ingresa el valor de dia de nacimiento: ');
    readln (dia_de_nacimiento);
    write ('Ingresa el valor de mes actual: ');
    readln (mes_actual);
    write ('Ingresa el valor de mes de nacimiento: ');
    readln (mes_de_nacimiento);
    edad := anno_actual-anno_de_nacimiento;
    if (mes_de_nacimiento>mes_actual) or ((mes_de_nacimiento=mes_actual) and (dia_de_nacimiento>dia_actual)) then
        begin
            edad := edad-1;
        end;
    writeln ('Valor de edad: ', edad);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.