-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Un fondo de empleados ofrece préstamos a sus asociados con las siguientes condiciones:
I. Antiguedad:
- Entre 1 y 5 años: 3% de interés
- Entre 6 y 10 años: 2% de interés
- Entre 11 y 15 años: 1% de interés
- Más de 15 años: no cobra interés
II. Préstamos pendientes:
- No debe tener préstamos pendientes
III. Ingresos comprobados:
- Sueldo mínimo: se le presta 3.000.000
- 2 salarios mínimos: se le presta 5.000.00
- 3 salarios mínimos o más: se le presta 10.000.000
Se debe revisar la validez del préstamo.
1
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
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
Proceso PrestamosDeUnFondoDeEmpleados
Repetir
Escribir Sin Saltar "Ingresa el valor de antiguedad:";
Leer antiguedad;
Escribir Sin Saltar "Ingresa el valor de cantidad de prestamos pendientes:";
Leer cantidad_de_prestamos_pendientes;
Escribir Sin Saltar "Ingresa el valor de ingresos comprobados:";
Leer ingresos_comprobados;
Escribir Sin Saltar "Ingresa el valor de salario minimo:";
Leer salario_minimo;
prestamo <- 0;
Si ingresos_comprobados>=salario_minimo Y ingresos_comprobados<salario_minimo*2 Entonces
prestamo <- 3000000;
FinSi
Si ingresos_comprobados>=salario_minimo*2 Y ingresos_comprobados<salario_minimo*3 Entonces
prestamo <- 5000000;
FinSi
Si ingresos_comprobados>=salario_minimo*3 Entonces
prestamo <- 10000000;
FinSi
Si cantidad_de_prestamos_pendientes>0 O antiguedad<1 Entonces
prestamo <- 0;
FinSi
interes <- 0;
Si antiguedad>=1 Y antiguedad<6 Entonces
interes <- prestamo*0.03;
FinSi
Si antiguedad>=6 Y antiguedad<11 Entonces
interes <- prestamo*0.02;
FinSi
Si antiguedad>=11 Y antiguedad<=15 Entonces
interes <- prestamo*0.01;
FinSi
Si prestamo = 0 Entonces
Escribir "El préstamo no es válido";
FinSi
Escribir "Valor de interes: ", interes;
Escribir "Valor de prestamo: ", prestamo;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso
Repetir
Escribir Sin Saltar "Ingresa el valor de antiguedad:";
Leer antiguedad;
Escribir Sin Saltar "Ingresa el valor de cantidad de prestamos pendientes:";
Leer cantidad_de_prestamos_pendientes;
Escribir Sin Saltar "Ingresa el valor de ingresos comprobados:";
Leer ingresos_comprobados;
Escribir Sin Saltar "Ingresa el valor de salario minimo:";
Leer salario_minimo;
prestamo <- 0;
Si ingresos_comprobados>=salario_minimo Y ingresos_comprobados<salario_minimo*2 Entonces
prestamo <- 3000000;
FinSi
Si ingresos_comprobados>=salario_minimo*2 Y ingresos_comprobados<salario_minimo*3 Entonces
prestamo <- 5000000;
FinSi
Si ingresos_comprobados>=salario_minimo*3 Entonces
prestamo <- 10000000;
FinSi
Si cantidad_de_prestamos_pendientes>0 O antiguedad<1 Entonces
prestamo <- 0;
FinSi
interes <- 0;
Si antiguedad>=1 Y antiguedad<6 Entonces
interes <- prestamo*0.03;
FinSi
Si antiguedad>=6 Y antiguedad<11 Entonces
interes <- prestamo*0.02;
FinSi
Si antiguedad>=11 Y antiguedad<=15 Entonces
interes <- prestamo*0.01;
FinSi
Si prestamo = 0 Entonces
Escribir "El préstamo no es válido";
FinSi
Escribir "Valor de interes: ", interes;
Escribir "Valor de prestamo: ", prestamo;
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso