Algoritmo
Algoritmo
Algoritmo
Una compañía de seguros para autos ofrece dos tipos de póliza: cobertura amplia (A) y daños
a terceros (B). Para el plan A, la cuota base es de $1,200, y para el B, de $950. A ambos planes se
les carga 10% del costo si la persona que conduce tiene por hábito beber alcohol, 5% si utiliza
lentes, 5% si padece alguna enfermedad –como deficiencia cardiaca o diabetes–, y si tiene más de
40 años, se le carga 20%, de lo contrario sólo 10%. Todos estos cargos se realizan sobre el costo
base. Realice un algoritmo para determinar cuánto le cuesta a una persona contratar una póliza.
5). Se les dará un bono por antigüedad a los empleados de una tienda. Si tienen un año, se les dará
$100; si tienen 2 años, $200, y así sucesivamente hasta los 5 años. Para los que tengan más de 5, el
bono será de $1000. Realice un algoritmo que permita determinar el bono que recibirá un
trabajador.
R/ Proceso BonoPorAntiguedadDe5Anos
Escribir Sin Saltar "Ingrese el valor de
antiguedad:";
Leer antiguedad;
Si antiguedad<=5 Entonces
bono <- antiguedad*100;
SiNo
bono <- 1000;
FinSi
Escribir "Valor de bono: ", bono;
FinProceso
6). 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:
Proceso GananciasDeUnaFabricaDePantalones
Escribir Sin Saltar "Ingrese el valor de N
pantalones:";
Leer N_pantalones;
Escribir Sin Saltar "Ingrese el valor de metro de
tela:";
Leer metro_de_tela;
Escribir "Seleccione 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éselo nuevamente.: ";
FinSi
Hasta Que modelo>=1 Y modelo<=2;
Escribir "Seleccione 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éselo 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_p
or_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