-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Realice un algoritmo para resolver el siguiente problema: una fábrica de pantalones desea calcular cuál es el precio final de venta y cuánto ganará por los N pantalones que produzca con el corte de alguno de sus modelos, para esto se cuenta con la siguiente información:
a) Tiene dos modelos A y B, tallas 30, 32 y 36 para ambos modelos.
b) Para el modelo A se utiliza 1.50 m de tela, y para el B 1.80 m.
c) Al modelo A se le carga 80 % del costo de la tela, por mano de obra. Al modelo B se le carga 95 % del costo de la tela, por el mismo concepto
d) A las tallas 32 y 36 se les carga 4 % del costo generado por mano de obra y tela, sin importar el modelo.
e) Cuando se realiza el corte para fabricar una prenda sólo se hace de un solo modelo y una sola talla.
f) Finalmente, a la suma de estos costos se les carga 30%, que representa la ganancia extra de la tienda.
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
47
48
49
50
51
52
53
Escribir Sin Saltar "Ingresa el valor de N pantalones:";
Leer N_pantalones;
Escribir Sin Saltar "Ingresa el valor de metro de tela:";
Leer metro_de_tela;
Escribir "Selecciona el valor de modelo.";
Escribir " 1.- A";
Escribir " 2.- B";
Escribir Sin Saltar " :";
Repetir
Leer modelo;
Si modelo<1 O modelo>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que modelo>=1 Y modelo<=2;
Escribir "Selecciona el valor de talla.";
Escribir " 1.- 30";
Escribir " 2.- 32";
Escribir " 3.- 36";
Escribir Sin Saltar " :";
Repetir
Leer talla;
Si talla<1 O talla>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que talla>=1 Y talla<=3;
Si modelo = 1 Entonces
metros_de_tela <- 1.5*N_pantalones;
SiNo
metros_de_tela <- 1.8*N_pantalones;
FinSi
costo_de_la_tela <- metros_de_tela*metro_de_tela;
Si modelo = 1 Entonces
mano_de_obra <- costo_de_la_tela*0.8;
SiNo
mano_de_obra <- costo_de_la_tela*0.95;
FinSi
Si talla = 2 O talla = 3 Entonces
cargo_por_talla <- mano_de_obra*0.04;
SiNo
cargo_por_talla <- 0;
FinSi
ganancia_extra <- (costo_de_la_tela+mano_de_obra+cargo_por_talla)*0.3;
precio_final <- costo_de_la_tela+mano_de_obra+cargo_por_talla+ganancia_extra;
ganancia <- cargo_por_talla+ganancia_extra;
Escribir "Valor de cargo por talla: ", cargo_por_talla;
Escribir "Valor de costo de la tela: ", costo_de_la_tela;
Escribir "Valor de ganancia: ", ganancia;
Escribir "Valor de ganancia extra: ", ganancia_extra;
Escribir "Valor de mano de obra: ", mano_de_obra;
Escribir "Valor de metros de tela: ", metros_de_tela;
Escribir "Valor de precio final: ", precio_final;
FinProceso