-
Lenguaje
Pascal
-
Descripción
Calcule en pesos el costo total semanal de la producción de una empresa, teniendo en cuenta que los costos fijos son de 285 dólares y el costo de producir cada unidad es de 2.5 dólares.
Costo Total = Costos Fijos + número de unidades * costo unitario
El programa debe permitir ingresar el número de unidades producidas a la semana y el valor del dólar (TRM).
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 CostoDeProduccion;
uses crt;
var Costo_Total, Costos_Fijos, TRM, costo_unitario, numero_de_unidades : real;
begin
write ('Ingresa el valor de TRM: ');
readln (TRM);
write ('Ingresa el valor de numero de unidades: ');
readln (numero_de_unidades);
Costos_Fijos := 285*TRM;
costo_unitario := 2.5*TRM;
Costo_Total := Costos_Fijos+numero_de_unidades*costo_unitario;
writeln ('Valor de Costo Total: ', Costo_Total:0:6);
writeln ('Valor de Costos Fijos: ', Costos_Fijos:0:6);
writeln ('Valor de costo unitario: ', costo_unitario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var Costo_Total, Costos_Fijos, TRM, costo_unitario, numero_de_unidades : real;
begin
write ('Ingresa el valor de TRM: ');
readln (TRM);
write ('Ingresa el valor de numero de unidades: ');
readln (numero_de_unidades);
Costos_Fijos := 285*TRM;
costo_unitario := 2.5*TRM;
Costo_Total := Costos_Fijos+numero_de_unidades*costo_unitario;
writeln ('Valor de Costo Total: ', Costo_Total:0:6);
writeln ('Valor de Costos Fijos: ', Costos_Fijos:0:6);
writeln ('Valor de costo unitario: ', costo_unitario:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.