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