-
Lenguaje
Pascal
-
Descripción
Una empresa de seguros asegura una casa ante desastres cobrando una prima anual de acuerdo al valor de la casa. Para los primeros $25,000 cobra el 3% del valor y para el valor restante 5%. Por ejemplo, si una casa está valorizada en $30,000, cobrará 3% sobre los $25,000 y 5% al resto, es decir 5% a $500. Muestre el monto que un cliente debe pagar por asegurar su casa. Descarte casas con valores superiores a los $100,000.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program SeguroContraDesastres;
uses crt;
var avaluo_de_la_casa, prima_anual : real;
begin
write ('Ingresa el valor de avaluo de la casa: ');
readln (avaluo_de_la_casa);
prima_anual := 0;
if avaluo_de_la_casa<=25000 then
begin
prima_anual := avaluo_de_la_casa*0.03;
end;
if (avaluo_de_la_casa>25000) and (avaluo_de_la_casa<=100000) then
begin
prima_anual := 25000.0*0.03+(avaluo_de_la_casa-25000)*0.05;
end;
if avaluo_de_la_casa>100000 then
begin
writeln ('Descartada');
end;
writeln ('Valor de prima anual: ', prima_anual:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var avaluo_de_la_casa, prima_anual : real;
begin
write ('Ingresa el valor de avaluo de la casa: ');
readln (avaluo_de_la_casa);
prima_anual := 0;
if avaluo_de_la_casa<=25000 then
begin
prima_anual := avaluo_de_la_casa*0.03;
end;
if (avaluo_de_la_casa>25000) and (avaluo_de_la_casa<=100000) then
begin
prima_anual := 25000.0*0.03+(avaluo_de_la_casa-25000)*0.05;
end;
if avaluo_de_la_casa>100000 then
begin
writeln ('Descartada');
end;
writeln ('Valor de prima anual: ', prima_anual:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.