Seguro por cobertura amplia y daños a terceros en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una compañía de seguros para autos ofrece 2 tipos de póliza: cobertura amplia (A) y daños a terceros (B).
Para el plan A, la cuota base es de $1,200.
Para el plan B, la cuota base es de $950.
A ambos planes se les carga 10% del costo si el conductor tiene el hábito de beber alcohol, 5% si utiliza lentes, 5% si padece alguna enfermedad como deficiencia cardiaca o diabetes, además si tiene más de 40 años se le carga 20%, de lo contrario sólo 10%.
Todos estos cargos se realizan sobre el costo base.
Determine el costo de la póliza de seguro.

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

Proceso SeguroPorCoberturaAmpliaYDanosATerceros

    Escribir Sin Saltar "Ingresa el valor de edad:";

    Leer edad;

    Escribir "Selecciona el valor de tipo de poliza.";

    Escribir "    1.- A cobertura amplia";

    Escribir "    2.- B daños a terceros";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tipo_de_poliza;

        Si tipo_de_poliza<1 O tipo_de_poliza>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que tipo_de_poliza>=1 Y tipo_de_poliza<=2;

    Escribir "Selecciona el valor de toma alcohol.";

    Escribir "    1.- si";

    Escribir "    2.- no";

    Escribir Sin Saltar "    :";

    Repetir

        Leer toma_alcohol;

        Si toma_alcohol<1 O toma_alcohol>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que toma_alcohol>=1 Y toma_alcohol<=2;

    Escribir "Selecciona el valor de utiliza lentes.";

    Escribir "    1.- si";

    Escribir "    2.- no";

    Escribir Sin Saltar "    :";

    Repetir

        Leer utiliza_lentes;

        Si utiliza_lentes<1 O utiliza_lentes>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que utiliza_lentes>=1 Y utiliza_lentes<=2;

    Escribir "Selecciona el valor de padece enfermedad.";

    Escribir "    1.- si";

    Escribir "    2.- no";

    Escribir Sin Saltar "    :";

    Repetir

        Leer padece_enfermedad;

        Si padece_enfermedad<1 O padece_enfermedad>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que padece_enfermedad>=1 Y padece_enfermedad<=2;

    Si tipo_de_poliza = 1 Entonces

        cuota <- 1200;

    SiNo

        cuota <- 950;

    FinSi

    cargos <- 0;

    Si toma_alcohol = 1 Entonces

        cargos <- cargos+cuota*0.1;

    FinSi

    Si utiliza_lentes = 1 Entonces

        cargos <- cargos+cuota*0.05;

    FinSi

    Si padece_enfermedad = 1 Entonces

        cargos <- cargos+cuota*0.05;

    FinSi

    Si edad>40 Entonces

        cargos <- cargos+cuota*0.2;

    SiNo

        cargos <- cargos+cuota*0.1;

    FinSi

    costo_de_la_poliza <- cuota+cargos;

    Escribir "Valor de cargos: ", cargos;

    Escribir "Valor de costo de la poliza: ", costo_de_la_poliza;

    Escribir "Valor de cuota: ", cuota;

FinProceso