-
Lenguaje
Pascal
-
Descripción
Una empresa produce jabones y los empaqueta en cajas que contienen 50 jabones cada una. Lea la producción diaria de jabones durante un mes de esa empresa y calcule y muestre:
a) La producción total del mes.
b) El promedio de producción diaria.
c) La cantidad de cajas de jabones producidas en el mes.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program ProduccionDeJabones;
uses crt;
var cajas_en_el_mes, i, produccion_diaria, produccion_total : integer;
var promedio : real;
begin
cajas_en_el_mes := 0;
produccion_total := 0;
promedio := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de produccion diaria: ');
readln (produccion_diaria);
produccion_total := produccion_total+produccion_diaria;
writeln;
end;
promedio := produccion_total/30;
cajas_en_el_mes := (produccion_total-produccion_total mod 50)/50;
writeln ('Valor de cajas en el mes: ', cajas_en_el_mes);
writeln ('Valor de produccion total: ', produccion_total);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cajas_en_el_mes, i, produccion_diaria, produccion_total : integer;
var promedio : real;
begin
cajas_en_el_mes := 0;
produccion_total := 0;
promedio := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de produccion diaria: ');
readln (produccion_diaria);
produccion_total := produccion_total+produccion_diaria;
writeln;
end;
promedio := produccion_total/30;
cajas_en_el_mes := (produccion_total-produccion_total mod 50)/50;
writeln ('Valor de cajas en el mes: ', cajas_en_el_mes);
writeln ('Valor de produccion total: ', produccion_total);
writeln ('Valor de promedio: ', promedio:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.