-
Lenguaje
Pascal
-
Descripción
Determinar el tipo de tarjeta de crédito que se le asigna a un cliente según:
- Si sus ingresos están entre $5,000 y $10,000 recibe una Master Card.
- Si sus ingresos están entre $10,000 y $20,000 recibe una VISA Local.
- Si es superior a $20,000 recibe una VISA Internacional.
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
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
program TipoDeTarjetaDeCredito;
uses crt;
var ingresos : real;
begin
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
if ingresos<5000 then
begin
writeln ('Ninguna');
end;
if (ingresos>=5000) and (ingresos<10000) then
begin
writeln ('Master Card');
end;
if (ingresos>=10000) and (ingresos<20000) then
begin
writeln ('VISA Local');
end;
if ingresos>=20000 then
begin
writeln ('VISA Internacional');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ingresos : real;
begin
write ('Ingresa el valor de ingresos: ');
readln (ingresos);
if ingresos<5000 then
begin
writeln ('Ninguna');
end;
if (ingresos>=5000) and (ingresos<10000) then
begin
writeln ('Master Card');
end;
if (ingresos>=10000) and (ingresos<20000) then
begin
writeln ('VISA Local');
end;
if ingresos>=20000 then
begin
writeln ('VISA Internacional');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.