Importe anual del seguro en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

El importe anual del seguro de un coche depende del modelo del coche, de la edad del conductor y tiempo que tiene conduciendo. Son tres modelos de coche (A, B y C) y los precios del seguro son:
Modelo | Precio
A | $3,800
B | $4,930
C | $7,570
Si el conductor tiene menos de 20 años, el precio se incrementa 25%; si tiene entre 20 y 30 años se incrementa 10%; si tiene entre 31 y 65 años el precio no se modifica; si tiene más de 65 años el precio se incrementará 15%. Además, en todos los casos si el conductor tiene menos de 2 años conduciendo con permiso, el precio se incrementará 25% adicional. Calcular el precio del seguro para un determinado modelo y un determinado conductor.

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

Proceso ImporteAnualDelSeguro

    Escribir Sin Saltar "Ingresa el valor de anos de conducir con permiso:";

    Leer anos_de_conducir_con_permiso;

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

    Leer edad;

    importe_anual <- 0;

    Escribir "Selecciona el valor de modelo.";

    Escribir "    1.- A";

    Escribir "    2.- B";

    Escribir "    3.- C";

    Escribir Sin Saltar "    :";

    Repetir

        Leer modelo;

        Si modelo<1 O modelo>3 Entonces

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

        FinSi

    Hasta Que modelo>=1 Y modelo<=3;

    Si importe_anual = 1 Entonces

        importe_anual <- 3800;

    FinSi

    Si importe_anual = 2 Entonces

        importe_anual <- 4930;

    FinSi

    Si importe_anual = 3 Entonces

        importe_anual <- 7570;

    FinSi

    Si edad<20 Entonces

        importe_anual <- importe_anual*1.25;

    FinSi

    Si edad>=20 Y edad<31 Entonces

        importe_anual <- importe_anual*1.1;

    FinSi

    Si edad>65 Entonces

        importe_anual <- importe_anual*1.15;

    FinSi

    Si anos_de_conducir_con_permiso<2 Entonces

        importe_anual <- importe_anual*1.25;

    FinSi

    Escribir "Valor de importe anual: ", importe_anual;

FinProceso