-
Lenguaje
Pascal
-
Descripción
En un centro de verificación de automóviles de la Autoridad de Tránsito Municipal (ATM), se desea saber el promedio de puntos contaminantes de los primeros 25 automóviles que lleguen en un día. Así mismo se desea saber los puntos contaminantes del carro que menos contamina y del que más contamina.
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 AutoridadDeTransitoMunicipal;
uses crt;
var i, mas_contaminante, menos_contaminante, puntos_contaminantes : integer;
var promedio_de_puntos : real;
begin
mas_contaminante := 0;
menos_contaminante := 0;
promedio_de_puntos := 0;
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de puntos contaminantes: ');
readln (puntos_contaminantes);
promedio_de_puntos := promedio_de_puntos+puntos_contaminantes;
if (i=1) or (mas_contaminante<puntos_contaminantes) then
begin
mas_contaminante := puntos_contaminantes;
end;
if (i=1) or (menos_contaminante>puntos_contaminantes) then
begin
menos_contaminante := puntos_contaminantes;
end;
writeln;
end;
promedio_de_puntos := promedio_de_puntos/25;
writeln ('Valor de mas contaminante: ', mas_contaminante);
writeln ('Valor de menos contaminante: ', menos_contaminante);
writeln ('Valor de promedio de puntos: ', promedio_de_puntos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, mas_contaminante, menos_contaminante, puntos_contaminantes : integer;
var promedio_de_puntos : real;
begin
mas_contaminante := 0;
menos_contaminante := 0;
promedio_de_puntos := 0;
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de puntos contaminantes: ');
readln (puntos_contaminantes);
promedio_de_puntos := promedio_de_puntos+puntos_contaminantes;
if (i=1) or (mas_contaminante<puntos_contaminantes) then
begin
mas_contaminante := puntos_contaminantes;
end;
if (i=1) or (menos_contaminante>puntos_contaminantes) then
begin
menos_contaminante := puntos_contaminantes;
end;
writeln;
end;
promedio_de_puntos := promedio_de_puntos/25;
writeln ('Valor de mas contaminante: ', mas_contaminante);
writeln ('Valor de menos contaminante: ', menos_contaminante);
writeln ('Valor de promedio de puntos: ', promedio_de_puntos:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.