-
Lenguaje
Pascal
-
Descripción
La Secretaría de Salud del Departamento desea llevar un control que permita prevenir el sobrepeso de la población, por tal razón luego de realizar la valoración respectiva, se recomienda dependiendo del peso registrado seguir con alguno de los siguientes tratamientos:
Peso del Paciente | Tratamiento
Más de 250 libras | Dieta Proteínica
Entre 200 y 250 libras | Dieta Disociada
Entre 150 y 199 libras | Dieta Hipocalórica
El programa debe leer el peso de la persona e imprimir un mensaje en el cual además de dicho peso se muestre el tratamiento recomendado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ControlDeSobrepeso;
uses crt;
var peso_de_la_persona : integer;
begin
write ('Ingresa el valor de peso de la persona: ');
readln (peso_de_la_persona);
if peso_de_la_persona>250 then
begin
writeln ('Dieta prote'#161'nica');
end;
if (peso_de_la_persona>=200) and (peso_de_la_persona<=250) then
begin
writeln ('Dieta disociada');
end;
if (peso_de_la_persona>=150) and (peso_de_la_persona<200) then
begin
writeln ('Dieta hipocal'#162'rica');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var peso_de_la_persona : integer;
begin
write ('Ingresa el valor de peso de la persona: ');
readln (peso_de_la_persona);
if peso_de_la_persona>250 then
begin
writeln ('Dieta prote'#161'nica');
end;
if (peso_de_la_persona>=200) and (peso_de_la_persona<=250) then
begin
writeln ('Dieta disociada');
end;
if (peso_de_la_persona>=150) and (peso_de_la_persona<200) then
begin
writeln ('Dieta hipocal'#162'rica');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.