-
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
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.
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.