-
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
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
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