-
Lenguaje
Pascal
-
Descripción
Una persona debe realizar un muestreo con 50 personas para determinar el
promedio de peso de los niños, jóvenes, adultos y viejos que existen en
su zona habitacional. Se determinan las categorías, con base en la siguiente tabla:
CATEGORÍA: EDAD
Niños: 0 - 12
Jóvenes: 13 - 29
Adultos: 30 - 59
Viejos: 60 en adelante
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program PromedioDePeso;
uses crt;
var edad, i, peso : integer;
var promedio_adultos, promedio_jovenes, promedio_ninos, promedio_viejos : real;
begin
promedio_adultos := 0;
promedio_jovenes := 0;
promedio_ninos := 0;
promedio_viejos := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de peso: ');
readln (peso);
if (edad>=0) and (edad<=12) then
begin
promedio_ninos := promedio_ninos+peso;
end;
if (edad>=13) and (edad<=29) then
begin
promedio_jovenes := promedio_jovenes+peso;
end;
if (edad>=30) and (edad<=59) then
begin
promedio_adultos := promedio_adultos+peso;
end;
if edad>=60 then
begin
promedio_viejos := promedio_viejos+peso;
end;
writeln;
end;
promedio_adultos := 100.0*promedio_adultos/50;
promedio_jovenes := 100.0*promedio_jovenes/50;
promedio_ninos := 100.0*promedio_ninos/50;
promedio_viejos := 100.0*promedio_viejos/50;
writeln ('Valor de promedio adultos: ', promedio_adultos:0:6);
writeln ('Valor de promedio jovenes: ', promedio_jovenes:0:6);
writeln ('Valor de promedio ninos: ', promedio_ninos:0:6);
writeln ('Valor de promedio viejos: ', promedio_viejos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad, i, peso : integer;
var promedio_adultos, promedio_jovenes, promedio_ninos, promedio_viejos : real;
begin
promedio_adultos := 0;
promedio_jovenes := 0;
promedio_ninos := 0;
promedio_viejos := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de peso: ');
readln (peso);
if (edad>=0) and (edad<=12) then
begin
promedio_ninos := promedio_ninos+peso;
end;
if (edad>=13) and (edad<=29) then
begin
promedio_jovenes := promedio_jovenes+peso;
end;
if (edad>=30) and (edad<=59) then
begin
promedio_adultos := promedio_adultos+peso;
end;
if edad>=60 then
begin
promedio_viejos := promedio_viejos+peso;
end;
writeln;
end;
promedio_adultos := 100.0*promedio_adultos/50;
promedio_jovenes := 100.0*promedio_jovenes/50;
promedio_ninos := 100.0*promedio_ninos/50;
promedio_viejos := 100.0*promedio_viejos/50;
writeln ('Valor de promedio adultos: ', promedio_adultos:0:6);
writeln ('Valor de promedio jovenes: ', promedio_jovenes:0:6);
writeln ('Valor de promedio ninos: ', promedio_ninos:0:6);
writeln ('Valor de promedio viejos: ', promedio_viejos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.