-
Lenguaje
Pascal
-
Descripción
Suponga que usted es un ejecutivo del Bío-Bío Bank, encargado de entregar créditos a las personas. De acuerdo a las reglas del banco en que usted trabaja, el monto del crédito al que una persona puede acceder depende de su sueldo. Para determinar el crédito al que una persona puede optar, debe utilizar la siguiente tabla entregada por el banco:
- Sueldo menor a $200.000 no tiene derecho a crédito.
- Sueldo entre $200.000 y $500.000 tiene derecho a crédito hasta por $500.000
- Sueldo entre $500.000 y $1.000.000 tiene derecho a crédito hasta por $2.000.000.
Escriba un algoritmo que, dado el sueldo de un cliente, le indique el valor del crédito al que puede optar.
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 BioBioBank;
uses crt;
var credito, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
credito := 0;
if sueldo<200000 then
begin
writeln ('No tiene derecho a cr'#130'dito.');
end;
if (sueldo>=200000) and (sueldo<500000) then
begin
credito := 500000;
end;
if (sueldo>=500000) and (sueldo<1000000) then
begin
credito := 2000000;
end;
writeln ('Valor de credito: ', credito:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var credito, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
credito := 0;
if sueldo<200000 then
begin
writeln ('No tiene derecho a cr'#130'dito.');
end;
if (sueldo>=200000) and (sueldo<500000) then
begin
credito := 500000;
end;
if (sueldo>=500000) and (sueldo<1000000) then
begin
credito := 2000000;
end;
writeln ('Valor de credito: ', credito:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.