• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una empresa de préstamos decidió cambiar su esquema de cobros
    - Si el préstamo es de más de 5000, cobra en cinco cuotas.
    - Si el préstamo es de menos de 1000, cobra en una cuota.
    - Si el préstamo es entre 1000 y 3000 cobra en dos cuotas.
    - En los demás casos cobra en tres cuotas.
    Adicionalmente, si es de menos de 4000 cobra un interés del 10%, en caso contrario cobra 12%.
    El programa debe decir en cuantas cuotas debe pagar y de cuánto será cada cuota. (el valor de la cuota es el valor de la deuda más el interés entre el número de cuotas.)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Proceso EmpresaDePrestamos
    Escribir Sin Saltar "Ingresa el valor de prestamo:";
    Leer prestamo;
    cuotas <- 3;
    Si prestamo>5000 Entonces
        cuotas <- 5;
    FinSi
    Si prestamo<1000 Entonces
        cuotas <- 1;
    FinSi
    Si prestamo>=1000 Y prestamo<=3000 Entonces
        cuotas <- 2;
    FinSi
    Si prestamo<4000 Entonces
        interes <- prestamo*0.1;
    SiNo
        interes <- prestamo*0.12;
    FinSi
    pago_por_cuota <- (prestamo+interes)/cuotas;
    Escribir "Valor de cuotas: ", cuotas;
    Escribir "Valor de interes: ", interes;
    Escribir "Valor de pago por cuota: ", pago_por_cuota;
FinProceso