• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Un banco realiza el pago de intereses a sus clientes por un deposito de acuerdo a la siguiente información: tipo de moneda, tiempo de deposito y monto depositado. Los intereses serán aplicados según el siguiente cuadro:

    Meses | Soles (%) | Dólares (%)
    0 - 5 | 2 | 3
    6 - 12 | 6 | 4
    13 - más | 9 | 7

    Determine:
    1. El interés del depósito.
    2. Mostrar el monto deposito, tiempo de depósito y tipo de moneda.
    3. Monto total a recibir.

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
Proceso PagoDeIntereses
    Escribir Sin Saltar "Ingresa el valor de monto depositado:";
    Leer monto_depositado;
    Escribir Sin Saltar "Ingresa el valor de tiempo de deposito:";
    Leer tiempo_de_deposito;
    Escribir "Selecciona el valor de tipo de moneda.";
    Escribir "    1.- Soles";
    Escribir "    2.- Dólares";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_moneda;
        Si tipo_de_moneda<1 O tipo_de_moneda>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_moneda>=1 Y tipo_de_moneda<=2;
    interes_del_deposito <- 0;
    Si tipo_de_moneda = 1 Y tiempo_de_deposito>=0 Y tiempo_de_deposito<6 Entonces
        interes_del_deposito <- 2;
    FinSi
    Si tipo_de_moneda = 1 Y tiempo_de_deposito>=6 Y tiempo_de_deposito<13 Entonces
        interes_del_deposito <- 6;
    FinSi
    Si tipo_de_moneda = 1 Y tiempo_de_deposito>=13 Entonces
        interes_del_deposito <- 9;
    FinSi
    Si tipo_de_moneda = 2 Y tiempo_de_deposito>=0 Y tiempo_de_deposito<6 Entonces
        interes_del_deposito <- 3;
    FinSi
    Si tipo_de_moneda = 2 Y tiempo_de_deposito>=6 Y tiempo_de_deposito<13 Entonces
        interes_del_deposito <- 4;
    FinSi
    Si tipo_de_moneda = 2 Y tiempo_de_deposito>=13 Entonces
        interes_del_deposito <- 7;
    FinSi
    total_a_recibir <- monto_depositado+monto_depositado*interes_del_deposito/100;
    Escribir "Valor de interes del deposito: ", interes_del_deposito;
    Escribir "Valor de total a recibir: ", total_a_recibir;
FinProceso