-
Lenguaje
Pascal
-
Descripción
En la fábrica de bloques 8k se produce una cantidad n de bloques en un día y desea saber, dado el monto invertido en mano de obra y monto en materiales para producirlo, cual es el costo por unidad.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program FabricaDeBloques;
uses crt;
var cantidad_n, costo_por_unidad, monto_en_mano_de_obra, monto_en_materiales : real;
begin
write ('Ingresa el valor de cantidad n: ');
readln (cantidad_n);
write ('Ingresa el valor de monto en mano de obra: ');
readln (monto_en_mano_de_obra);
write ('Ingresa el valor de monto en materiales: ');
readln (monto_en_materiales);
costo_por_unidad := (monto_en_mano_de_obra+monto_en_materiales)/cantidad_n;
writeln ('Valor de costo por unidad: ', costo_por_unidad:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_n, costo_por_unidad, monto_en_mano_de_obra, monto_en_materiales : real;
begin
write ('Ingresa el valor de cantidad n: ');
readln (cantidad_n);
write ('Ingresa el valor de monto en mano de obra: ');
readln (monto_en_mano_de_obra);
write ('Ingresa el valor de monto en materiales: ');
readln (monto_en_materiales);
costo_por_unidad := (monto_en_mano_de_obra+monto_en_materiales)/cantidad_n;
writeln ('Valor de costo por unidad: ', costo_por_unidad:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.