-
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.
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
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