-
Lenguaje
Pascal
-
Descripción
Uno de sus amigos ha montado una fábrica de confecciones de ropa, por lo pronto está en producción de pantalones, camisas y bufandas y cuenta con 2 trabajadores, los cuales deben en un día tener producción de los 3 artículos y el pago que se hace al final del día es por cantidad realizada, así:
- Pantalón = $5,000
- Camisas = $2,500
- Bufandas = $800
Su amigo le da el análisis para la solución del problema que al final del día pida el ingreso de cada una de las cantidades producidas, para determinar el valor que debe pagarle a cada empleado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program ProduccionDePantalonesCamisasYBufandas;
uses crt;
var cantidad_de_bufandas, cantidad_de_camisas, cantidad_de_pantalones, i, pago : integer;
begin
for i:=1 to 2 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de cantidad de bufandas: ');
readln (cantidad_de_bufandas);
write ('Ingresa el valor de cantidad de camisas: ');
readln (cantidad_de_camisas);
write ('Ingresa el valor de cantidad de pantalones: ');
readln (cantidad_de_pantalones);
pago := cantidad_de_pantalones*5000+cantidad_de_camisas*2500+cantidad_de_bufandas*800;
writeln ('Valor de pago: ', pago);
writeln;
end;
end.
uses crt;
var cantidad_de_bufandas, cantidad_de_camisas, cantidad_de_pantalones, i, pago : integer;
begin
for i:=1 to 2 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de cantidad de bufandas: ');
readln (cantidad_de_bufandas);
write ('Ingresa el valor de cantidad de camisas: ');
readln (cantidad_de_camisas);
write ('Ingresa el valor de cantidad de pantalones: ');
readln (cantidad_de_pantalones);
pago := cantidad_de_pantalones*5000+cantidad_de_camisas*2500+cantidad_de_bufandas*800;
writeln ('Valor de pago: ', pago);
writeln;
end;
end.