-
Lenguaje
Pascal
-
Descripción
Un almacén de tenis realiza ventas a crédito y el valor de las cuotas las difiere de las siguiente manera:
- La primera cuota será el 30% el valor del crédito.
- La segunda cuota será del 25% el valor del crédito.
- La tercera cuota será el valor restante del crédito.
El dueño necesita saber el valor a pagar por cada cuota cuando un cliente realiza un crédito.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program AlmacenDeTenis;
uses crt;
var credito, primera_cuota, segunda_cuota, tercera_cuota : real;
begin
write ('Ingresa el valor de credito: ');
readln (credito);
primera_cuota := credito*0.3;
segunda_cuota := credito*0.25;
tercera_cuota := credito-primera_cuota-segunda_cuota;
writeln ('Valor de primera cuota: ', primera_cuota:0:6);
writeln ('Valor de segunda cuota: ', segunda_cuota:0:6);
writeln ('Valor de tercera cuota: ', tercera_cuota:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var credito, primera_cuota, segunda_cuota, tercera_cuota : real;
begin
write ('Ingresa el valor de credito: ');
readln (credito);
primera_cuota := credito*0.3;
segunda_cuota := credito*0.25;
tercera_cuota := credito-primera_cuota-segunda_cuota;
writeln ('Valor de primera cuota: ', primera_cuota:0:6);
writeln ('Valor de segunda cuota: ', segunda_cuota:0:6);
writeln ('Valor de tercera cuota: ', tercera_cuota:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.