-
Lenguaje
Pascal
-
Descripción
Se tienen el peso de 100 personas, se debe construir un algoritmo que calcule e imprima cuántas personas pesan menos de 50 kilos, cuántas pesan entre 51 y 70 kilos y cuántas pesan más de 70 kilos; también el promedio general de peso.
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
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
program PesosDePersonas;
uses crt;
var entre_51_y_70, i, mas_de_70, menos_de_50, peso : integer;
var promedio_general : real;
begin
entre_51_y_70 := 0;
mas_de_70 := 0;
menos_de_50 := 0;
promedio_general := 0;
for i:=1 to 100 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de peso: ');
readln (peso);
if peso<51 then
begin
menos_de_50 := menos_de_50+1;
end;
if (peso>=51) and (<=70) then
begin
entre_51_y_70 := entre_51_y_70+1;
end;
if peso>70 then
begin
mas_de_70 := mas_de_70+1;
end;
promedio_general := promedio_general+peso;
writeln;
end;
promedio_general := promedio_general/100;
writeln ('Valor de entre 51 y 70: ', entre_51_y_70);
writeln ('Valor de mas de 70: ', mas_de_70);
writeln ('Valor de menos de 50: ', menos_de_50);
writeln ('Valor de promedio general: ', promedio_general:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var entre_51_y_70, i, mas_de_70, menos_de_50, peso : integer;
var promedio_general : real;
begin
entre_51_y_70 := 0;
mas_de_70 := 0;
menos_de_50 := 0;
promedio_general := 0;
for i:=1 to 100 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de peso: ');
readln (peso);
if peso<51 then
begin
menos_de_50 := menos_de_50+1;
end;
if (peso>=51) and (<=70) then
begin
entre_51_y_70 := entre_51_y_70+1;
end;
if peso>70 then
begin
mas_de_70 := mas_de_70+1;
end;
promedio_general := promedio_general+peso;
writeln;
end;
promedio_general := promedio_general/100;
writeln ('Valor de entre 51 y 70: ', entre_51_y_70);
writeln ('Valor de mas de 70: ', mas_de_70);
writeln ('Valor de menos de 50: ', menos_de_50);
writeln ('Valor de promedio general: ', promedio_general:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.