-
Lenguaje
Pascal
-
Descripción
El banco "Pueblo desconocido" ha decidido aumentar el límite de crédito de las tarjetas de crédito de sus clientes, para esto considera que si su cliente tiene tarjeta tipo 1, el aumento será de 25 %; si tiene tipo 2, será de 35 %; si tiene tipo 3, de 40 %, y para cualquier otro tipo, de 50 %. Determinar el nuevo límite de crédito que tendrá una persona en su tarjeta y visualice el nombre del cliente, la clasificación actual de su tarjeta el techo actual y el monto del aumento y el nuevo techo de su tarjeta.
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
41
42
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
program BancoPuebloDesconocido;
uses crt;
var aumento, clasificacion_actual, limite_actual, nuevo_limite, techo_actual : real;
var tipo_de_tarjeta : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de limite actual: ');
readln (limite_actual);
write ('Ingresa el valor de tipo de tarjeta: ');
readln (tipo_de_tarjeta);
aumento := 0;
techo_actual := limite_actual;
clasificacion_actual := tipo_de_tarjeta;
if tipo_de_tarjeta=1 then
begin
aumento := limite_actual*0.25;
end;
if tipo_de_tarjeta=2 then
begin
aumento := limite_actual*0.35;
end;
if tipo_de_tarjeta=3 then
begin
aumento := limite_actual*0.4;
end;
if (tipo_de_tarjeta<>1) and (tipo_de_tarjeta<>2) and (tipo_de_tarjeta<>3) then
begin
aumento := limite_actual*0.5;
end;
nuevo_limite := limite_actual+aumento;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de aumento: ', aumento:0:6);
writeln ('Valor de clasificacion actual: ', clasificacion_actual:0:6);
writeln ('Valor de nuevo limite: ', nuevo_limite:0:6);
writeln ('Valor de techo actual: ', techo_actual:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var aumento, clasificacion_actual, limite_actual, nuevo_limite, techo_actual : real;
var tipo_de_tarjeta : real;
var nombre_del_cliente : string;
begin
write ('Ingresa el nombre del cliente: ');
readln (nombre_del_cliente);
write ('Ingresa el valor de limite actual: ');
readln (limite_actual);
write ('Ingresa el valor de tipo de tarjeta: ');
readln (tipo_de_tarjeta);
aumento := 0;
techo_actual := limite_actual;
clasificacion_actual := tipo_de_tarjeta;
if tipo_de_tarjeta=1 then
begin
aumento := limite_actual*0.25;
end;
if tipo_de_tarjeta=2 then
begin
aumento := limite_actual*0.35;
end;
if tipo_de_tarjeta=3 then
begin
aumento := limite_actual*0.4;
end;
if (tipo_de_tarjeta<>1) and (tipo_de_tarjeta<>2) and (tipo_de_tarjeta<>3) then
begin
aumento := limite_actual*0.5;
end;
nuevo_limite := limite_actual+aumento;
writeln ('Nombre del cliente: ', nombre_del_cliente);
writeln ('Valor de aumento: ', aumento:0:6);
writeln ('Valor de clasificacion actual: ', clasificacion_actual:0:6);
writeln ('Valor de nuevo limite: ', nuevo_limite:0:6);
writeln ('Valor de techo actual: ', techo_actual:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.