• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una empresa quiere hacer una compra de varias piezas de la misma clase a una fábrica de refacciones y desea saber de acuerdo al valor total de las piezas que comprar: el valor que debe colocar en efectivo de su propia inversión, el valor que debe prestar al banco y el valor debe pagar para el caso que aplique un crédito con el fabricante. Si el valor total de la compra excede de $1’000,000 la empresa tendrá la capacidad de invertir de su propio dinero en efectivo un 55% del monto de la compra, pedir prestado al banco un 30% y el resto lo pagara solicitando un crédito al fabricante. Si el monto total de la compra no excede de $1’000,000 y es mayor a $500.000 la empresa tendrá capacidad de invertir de su propio dinero en efectivo un 70% y el restante 30% lo pagara solicitando crédito al fabricante; Y si el monto total de la compra no excede de $500,000 la empresa pone el 80% en efectivo y el 20% lo cancela con un crédito al banco. Tenga en cuenta que el fabricante cobra por concepto de intereses un 15% sobre el valor del crédito que se le solicite.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Proceso CompraAUnaFabricaDeRefacciones2
    Escribir Sin Saltar "Ingresa el valor de monto de la compra:";
    Leer monto_de_la_compra;
    Si monto_de_la_compra>1000000 Entonces
        inversion_en_efectivo <- monto_de_la_compra*0.55;
        prestamo_al_banco <- monto_de_la_compra*0.3;
    FinSi
    Si monto_de_la_compra<=1000000 Y monto_de_la_compra>500000 Entonces
        inversion_en_efectivo <- monto_de_la_compra*0.7;
        prestamo_al_banco <- 0.3;
    FinSi
    Si monto_de_la_compra<=500000 Entonces
        inversion_en_efectivo <- monto_de_la_compra*0.8;
        prestamo_al_banco <- 0.2;
    FinSi
    credito_con_el_fabricante <- monto_de_la_compra-inversion_en_efectivo-prestamo_al_banco;
    intereses <- credito_con_el_fabricante*0.15;
    total_de_las_piezas <- monto_de_la_compra+intereses;
    Escribir "Valor de credito con el fabricante: ", credito_con_el_fabricante;
    Escribir "Valor de intereses: ", intereses;
    Escribir "Valor de inversion en efectivo: ", inversion_en_efectivo;
    Escribir "Valor de prestamo al banco: ", prestamo_al_banco;
    Escribir "Valor de total de las piezas: ", total_de_las_piezas;
FinProceso