-
Lenguaje
Pascal
-
Descripción
Calcular el número de pulsaciones que debe tener una persona por cada 10 segundos de ejercicio aeróbico.
La fórmula que se aplica cuando el sexo es femenino es:
num. Pulsaciones = (220 - edad) /10
Y si el sexo es masculino es:
Num. Pulsaciones = (210-edad) /10
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
29
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
29
program NumeroDePulsacionesPorGenero;
uses crt;
var edad, pulsaciones, sexo : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- femenino');
writeln (' 2.- masculino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
if sexo=1 then
begin
pulsaciones := (220-edad) div 10;
end
else
begin
pulsaciones := (210-edad) div 10;
end;
writeln ('Valor de pulsaciones: ', pulsaciones);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad, pulsaciones, sexo : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- femenino');
writeln (' 2.- masculino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
if sexo=1 then
begin
pulsaciones := (220-edad) div 10;
end
else
begin
pulsaciones := (210-edad) div 10;
end;
writeln ('Valor de pulsaciones: ', pulsaciones);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.