• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Una aseguradora ofrece paquete de coberturas que incluye asegurar su vehículo, daños a terceros y gastos médicos. Los planes disponibles son los siguientes:
    Plan | Costo base anual | Costo adicional anual | Interés | Antigüedad del vehículo en años
    Full extra | $2,00.00 | $45.00 | 7% del costo base | 1-3
    Full | $2,210.00 | $45.00 | 8% del costo base | 4-6
    Estándar plus | $2,300.00 | $55.00 | 9% del costo base | 7-10
    Estándar | $2,700.00 | $55.00 | 11% del costo base | 11-12
    Básico | $2,500.00 | $65.00 | 15% del costo base | 13-15
    Se debe registrar 40 seguros contratados, para lo que se necesita conocer la antigüedad del vehículo y a partir de ahí determinar el plan al que puede aplicar y el costo total anual que debe ser calculado con la siguiente fórmula:
    Costo Total anual=Costo base anual + costo adicional anual + interés.
    Se le pide que desarrolle la solución para determinar cuánto le cuesta a una persona contratar una póliza.

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
Proceso PlanesDePolizasDeSeguro
    Para i<-1 Hasta 40 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de antiguedad:";
        Leer antiguedad;
        costo_base_anual <- 0;
        costo_adicional_anual <- 0;
        interes <- 0;
        Si antiguedad>=1 Y antiguedad<=3 Entonces
            Escribir "Plan: Full extra";
            costo_base_anual <- 200.0;
            costo_adicional_anual <- 45.0;
            interes <- costo_base_anual*0.07;
        FinSi
        Si antiguedad>=4 Y antiguedad<=6 Entonces
            Escribir "Plan: Full";
            costo_base_anual <- 2210.0;
            costo_adicional_anual <- 45.0;
            interes <- costo_base_anual*0.08;
        FinSi
        Si antiguedad>=7 Y antiguedad<=10 Entonces
            Escribir "Plan: Estándar plus";
            costo_base_anual <- 2300.0;
            costo_adicional_anual <- 55.0;
            interes <- costo_base_anual*0.09;
        FinSi
        Si antiguedad>=11 Y antiguedad<=12 Entonces
            Escribir "Plan: Estándar";
            costo_base_anual <- 2700.0;
            costo_adicional_anual <- 55.0;
            interes <- costo_base_anual*0.11;
        FinSi
        Si antiguedad>=13 Y antiguedad<=15 Entonces
            Escribir "Plan: Básico";
            costo_base_anual <- 2500.0;
            costo_adicional_anual <- 65.0;
            interes <- costo_base_anual*0.15;
        FinSi
        costo_total_anual <- costo_base_anual+costo_adicional_anual+interes;
        Escribir "Valor de costo adicional anual: ", costo_adicional_anual;
        Escribir "Valor de costo base anual: ", costo_base_anual;
        Escribir "Valor de costo total anual: ", costo_total_anual;
        Escribir "Valor de interes: ", interes;
        Escribir "";
    FinPara
FinProceso