• 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
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.