-
Lenguaje
Pascal
-
Descripción
La fábrica "Chiriqui" produce diversos artículos. Se calcular los precios de venta. Para esto hay que considera lo siguiente: costo de producción = materia prima + mano de obra + gastos de fabricación. Lea estas 3 variables, calcule e imprima el precio de venta = costo de producción + 45% de costo de producción.
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 FabricaChiriqui;
uses crt;
var costo_de_produccion, gastos_de_fabricacion, mano_de_obra, materia_prima, precio_de_venta : real;
begin
write ('Ingresa el valor de gastos de fabricacion: ');
readln (gastos_de_fabricacion);
write ('Ingresa el valor de mano de obra: ');
readln (mano_de_obra);
write ('Ingresa el valor de materia prima: ');
readln (materia_prima);
costo_de_produccion := materia_prima+mano_de_obra+gastos_de_fabricacion;
precio_de_venta := costo_de_produccion*1.45;
writeln ('Valor de costo de produccion: ', costo_de_produccion:0:6);
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_de_produccion, gastos_de_fabricacion, mano_de_obra, materia_prima, precio_de_venta : real;
begin
write ('Ingresa el valor de gastos de fabricacion: ');
readln (gastos_de_fabricacion);
write ('Ingresa el valor de mano de obra: ');
readln (mano_de_obra);
write ('Ingresa el valor de materia prima: ');
readln (materia_prima);
costo_de_produccion := materia_prima+mano_de_obra+gastos_de_fabricacion;
precio_de_venta := costo_de_produccion*1.45;
writeln ('Valor de costo de produccion: ', costo_de_produccion:0:6);
writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.