• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Un banco desea tener una herramienta informática para determinar si una persona puede lograr un préstamo. Para esto se han definido las siguientes condiciones de evaluación:
    1. La historia crediticia del solicitante debe ser buena. Si es mala, el préstamo es rechazado inmediatamente.
    2. Si la historia crediticia es buena debe, se debe sumar al menos 5 puntos usando la siguiente tabla:
    - 3 puntos si el salario es el 40% o más del préstamos solicitado.
    - 2 puntos si el salario es mayor o igual al 20% pero menor que el 40% del prestamo solicitado.
    - 1 punto si el salario es mayor o igual al 1% pero menor que el 20% del prestamo solicitado.
    - 5 puntos si el solicitante tiene alguna propiedad.
    - 3 puntos si el solicitante tiene un contrato a término definido.

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
46
47
48
49
50
Proceso HerramientaInformaticaParaDeterminarPrestamos
    Escribir Sin Saltar "Ingresa el valor de numero de propiedades:";
    Leer numero_de_propiedades;
    Escribir Sin Saltar "Ingresa el valor de prestamos solicitado:";
    Leer prestamos_solicitado;
    Escribir Sin Saltar "Ingresa el valor de salario:";
    Leer salario;
    Escribir "Selecciona el valor de historia crediticia.";
    Escribir "    1.- Buena";
    Escribir "    2.- Mala";
    Escribir Sin Saltar "    :";
    Repetir
        Leer historia_crediticia;
        Si historia_crediticia<1 O historia_crediticia>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que historia_crediticia>=1 Y historia_crediticia<=2;
    Escribir "Selecciona el valor de tiene contrato a termino definido.";
    Escribir "    1.- Si";
    Escribir "    2.- No";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tiene_contrato_a_termino_definido;
        Si tiene_contrato_a_termino_definido<1 O tiene_contrato_a_termino_definido>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tiene_contrato_a_termino_definido>=1 Y tiene_contrato_a_termino_definido<=2;
    puntos <- 0;
    Si salario>=prestamos_solicitado*0.4 Entonces
        puntos <- puntos+3;
    FinSi
    Si salario>=prestamos_solicitado*0.20 Y salario<prestamos_solicitado*0.4 Entonces
        puntos <- puntos+2;
    FinSi
    Si salario>=prestamos_solicitado*0.01 Y salario<prestamos_solicitado*0.2 Entonces
        puntos <- puntos+1;
    FinSi
    Si numero_de_propiedades>0 Entonces
        puntos <- puntos+5;
    FinSi
    Si tiene_contrato_a_termino_definido = 1 Entonces
        puntos <- puntos+3;
    FinSi
    Si historia_crediticia = 1 Y puntos>=5 Entonces
        Escribir "Préstamo aprobado.";
    SiNo
        Escribir "Préstamo rechazado.";
    FinSi
    Escribir "Valor de puntos: ", puntos;
FinProceso