-
Lenguaje
Pascal
-
Descripción
Lea la edad y la estatura de 15 personas e imprima el promedio de edad y el promedio de estaturas de dichas personas y muestre cuantas personas están entre 1.60 y 1.80.
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
30
31
32
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
30
31
32
program EdadYLaEstaturaDe15Personas;
uses crt;
var entre_160_y_180, i : integer;
var edad, estatura, promedio_edad, promedio_estaturas : real;
begin
entre_160_y_180 := 0;
promedio_edad := 0;
promedio_estaturas := 0;
for i:=1 to 15 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de estatura: ');
readln (estatura);
promedio_edad := promedio_edad+edad;
promedio_estaturas := promedio_estaturas+estatura;
if (estatura>=1.6) and (estatura<=1.8) then
begin
entre_160_y_180 := entre_160_y_180+1;
end;
writeln;
end;
promedio_edad := promedio_edad/15;
promedio_estaturas := promedio_estaturas/15;
writeln ('Valor de entre 160 y 180: ', entre_160_y_180);
writeln ('Valor de promedio edad: ', promedio_edad:0:6);
writeln ('Valor de promedio estaturas: ', promedio_estaturas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var entre_160_y_180, i : integer;
var edad, estatura, promedio_edad, promedio_estaturas : real;
begin
entre_160_y_180 := 0;
promedio_edad := 0;
promedio_estaturas := 0;
for i:=1 to 15 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de estatura: ');
readln (estatura);
promedio_edad := promedio_edad+edad;
promedio_estaturas := promedio_estaturas+estatura;
if (estatura>=1.6) and (estatura<=1.8) then
begin
entre_160_y_180 := entre_160_y_180+1;
end;
writeln;
end;
promedio_edad := promedio_edad/15;
promedio_estaturas := promedio_estaturas/15;
writeln ('Valor de entre 160 y 180: ', entre_160_y_180);
writeln ('Valor de promedio edad: ', promedio_edad:0:6);
writeln ('Valor de promedio estaturas: ', promedio_estaturas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.