-
Lenguaje
Pascal
-
Descripción
Dado el nivel de azúcar en la sangre de una persona en ayunas indique el tipo de diabetes de acuerdo a la siguiente tabla:
- Debajo de 108 mg/dl Normal
- Entre 108 y 125 mg/dl Pre diabético
- Más de 125 mg/dl Diabético
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 TipoDeDiabetes;
uses crt;
var nivel_de_azucar : integer;
begin
write ('Ingresa el valor de nivel de azucar: ');
readln (nivel_de_azucar);
if nivel_de_azucar<108 then
begin
writeln ('Normal');
end;
if (nivel_de_azucar>=108) and (nivel_de_azucar<=125) then
begin
writeln ('Pre diab'#130'tico');
end;
if nivel_de_azucar>125 then
begin
writeln ('Diab'#130'tico');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var nivel_de_azucar : integer;
begin
write ('Ingresa el valor de nivel de azucar: ');
readln (nivel_de_azucar);
if nivel_de_azucar<108 then
begin
writeln ('Normal');
end;
if (nivel_de_azucar>=108) and (nivel_de_azucar<=125) then
begin
writeln ('Pre diab'#130'tico');
end;
if nivel_de_azucar>125 then
begin
writeln ('Diab'#130'tico');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.