-
Lenguaje
Pascal
-
Descripción
Realice el algoritmo sobre seguros de vehículos, este dependerá del modelo del carro, del color y de la edad del conductor. Sean dos modelos A y B los precios del seguro.
Modelo A:
- Color blanco, su precio es de $86,500
- Color metalizado, su precio es de $60,600
- Otros colores, su precio es de $75,000
Modelo B:
- Color blanco, su precio es de $45,700
- Color metalizado, su precio es de $67,000
- Otros colores es de $45,000
Si el conductor tiene menos de 26 años se incrementa un 25%; si tiene entre 26 y 30 años se incrementa un 10%; si tiene 31 y 65 años el precio no se modifica; si tiene más de 65 años el precio se incrementará un 10%.
Además, en cualquier caso, hay que considerar que si el conductor tiene menos de 2 años el permiso de conducir, el precio se incrementara un 25% adcional.
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
69
70
71
72
73
74
75
uses crt;
var color, modelo : integer;
var anios_de_permiso, edad, incremento, precio_del_seguro, total : real;
begin
write ('Ingresa el valor de anios de permiso: ');
readln (anios_de_permiso);
write ('Ingresa el valor de edad: ');
readln (edad);
precio_del_seguro := 0;
incremento := 0;
writeln ('Selecciona el valor de modelo.');
writeln (' 1.- A');
writeln (' 2.- B');
write (' : ');
repeat
readln (modelo);
if (modelo<1) or (modelo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (modelo>=1) and (modelo<=2);
writeln ('Selecciona el valor de color.');
writeln (' 1.- Blanco');
writeln (' 2.- Metalizado');
writeln (' 3.- Otros');
write (' : ');
repeat
readln (color);
if (color<1) or (color>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (color>=1) and (color<=3);
if (modelo=1) and (color=1) then
begin
precio_del_seguro := 86500;
end;
if (modelo=1) and (color=2) then
begin
precio_del_seguro := 60600;
end;
if (modelo=1) and (color=3) then
begin
precio_del_seguro := 75000;
end;
if (modelo=2) and (color=1) then
begin
precio_del_seguro := 45700;
end;
if (modelo=) and (color=2) then
begin
precio_del_seguro := 67000;
end;
if (modelo=) and (color=3) then
begin
precio_del_seguro := 45000;
end;
if edad<26 then
begin
incremento := precio_del_seguro*0.25;
end;
if ((edad=>26) and (edad<31)) or (edad>65) then
begin
incremento := precio_del_seguro*0.1;
end;
if anios_de_permiso<2 then
begin
incremento := incremento+precio_del_seguro*0.25;
end;
total := precio_del_seguro+incremento;
writeln ('Valor de incremento: ', incremento:0:6);
writeln ('Valor de precio del seguro: ', precio_del_seguro:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.