• Lenguaje

    Pascal

  • Descripción

    Fábricas "El cometa" produce artículos con claves (1, 2, 3, 4, 5 y 6). Se requiere un algoritmo para calcular los precios de venta, para esto hay que considerar lo siguiente: Costo de producción = materia prima + mano de obra + gastos de fabricación. Precio de venta = costo de producción + 45 % de costo de producción. El costo de la mano de obra se obtiene de la siguiente forma: para los productos con clave 3 o 4 se carga 75 % del costo de la materia prima; para los que tienen clave 1 y 5 se carga 80 %, y para los que tienen clave 2 o 6, 85 %. Para calcular el gasto de fabricación se considera que si el artículo que se va a producir tiene claves 2 o 5, este gasto representa 30 % sobre el costo de la materia prima; si las claves son 3 o 6, representa 35 %; si las claves son 1 o 4, representa 28 %. La materia prima tiene el mismo costo para cualquier clave.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program FabricasElCometa;
uses crt;

var clave, costo_de_produccion, gasto_de_fabricacion, mano_de_obra, materia_prima : real;
var precio_de_venta : real;
begin
    write ('Ingresa el valor de clave: ');
    readln (clave);
    write ('Ingresa el valor de materia prima: ');
    readln (materia_prima);
    gasto_de_fabricacion := 0;
    if (clave=2) or (clave=5) then
        begin
            gasto_de_fabricacion := materia_prima*0.3;
        end;
    if (clave=3) or (clave=6) then
        begin
            gasto_de_fabricacion := materia_prima*0.35;
        end;
    if (clave=1) or (clave=4) then
        begin
            gasto_de_fabricacion := materia_prima*0.28;
        end;
    mano_de_obra := 0;
    if (clave=3) or (clave=4) then
        begin
            mano_de_obra := materia_prima*0.75;
        end;
    if (clave=1) or (clave=5) then
        begin
            mano_de_obra := materia_prima*0.8;
        end;
    if (clave=2) or (clave=6) then
        begin
            mano_de_obra := materia_prima*0.85;
        end;
    costo_de_produccion := materia_prima+mano_de_obra+gasto_de_fabricacion;
    precio_de_venta := costo_de_produccion+costo_de_produccion*0.45;
    writeln ('Valor de costo de produccion: ', costo_de_produccion:0:6);
    writeln ('Valor de gasto de fabricacion: ', gasto_de_fabricacion:0:6);
    writeln ('Valor de mano de obra: ', mano_de_obra:0:6);
    writeln ('Valor de precio de venta: ', precio_de_venta:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.