-
Lenguaje
Pascal
-
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
47
48
49
50
51
52
53
54
55
56
57
uses crt;
var antiguedad, costo_adicional_anual, costo_base_anual, costo_total_anual, i : integer;
var interes : integer;
begin
for i:=1 to 40 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de antiguedad: ');
readln (antiguedad);
costo_base_anual := 0;
costo_adicional_anual := 0;
interes := 0;
if (antiguedad>=1) and (antiguedad<=3) then
begin
writeln ('Plan: Full extra');
costo_base_anual := 200.0;
costo_adicional_anual := 45.0;
interes := costo_base_anual*0.07;
end;
if (antiguedad>=4) and (antiguedad<=6) then
begin
writeln ('Plan: Full');
costo_base_anual := 2210.0;
costo_adicional_anual := 45.0;
interes := costo_base_anual*0.08;
end;
if (antiguedad>=7) and (antiguedad<=10) then
begin
writeln ('Plan: Est'#160'ndar plus');
costo_base_anual := 2300.0;
costo_adicional_anual := 55.0;
interes := costo_base_anual*0.09;
end;
if (antiguedad>=11) and (antiguedad<=12) then
begin
writeln ('Plan: Est'#160'ndar');
costo_base_anual := 2700.0;
costo_adicional_anual := 55.0;
interes := costo_base_anual*0.11;
end;
if (antiguedad>=13) and (antiguedad<=15) then
begin
writeln ('Plan: B'#160'sico');
costo_base_anual := 2500.0;
costo_adicional_anual := 65.0;
interes := costo_base_anual*0.15;
end;
costo_total_anual := costo_base_anual+costo_adicional_anual+interes;
writeln ('Valor de costo adicional anual: ', costo_adicional_anual);
writeln ('Valor de costo base anual: ', costo_base_anual);
writeln ('Valor de costo total anual: ', costo_total_anual);
writeln ('Valor de interes: ', interes);
writeln;
end;
end.