-
Lenguaje
Pascal
-
Descripción
El interés que se carga a una cuenta de tarjeta de crédito depende del saldo a pagar de acuerdo con el siguiente criterio: el interés cargado es 18% para saldos de hasta $500 y del 20% para saldos mayores a $500. Desarrolle un algoritmo para encontrar la cantidad total de interés de acuerdo al saldo de una cuenta.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program InteresAUnaTarjetaDeCredito;
uses crt;
var interes_cargado, saldo : real;
begin
write ('Ingresa el valor de saldo: ');
readln (saldo);
if saldo<=500 then
begin
interes_cargado := saldo*0.18;
end
else
begin
interes_cargado := saldo*0.2;
end;
writeln ('Valor de interes cargado: ', interes_cargado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var interes_cargado, saldo : real;
begin
write ('Ingresa el valor de saldo: ');
readln (saldo);
if saldo<=500 then
begin
interes_cargado := saldo*0.18;
end
else
begin
interes_cargado := saldo*0.2;
end;
writeln ('Valor de interes cargado: ', interes_cargado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.