-
Lenguaje
Pascal
-
Descripción
La empresa Telmex ha decidido incrementar la tarifa de la renta mensual por uso del teléfono en un 15% mensual. La tarifa en diciembre del 2020 es de $400. Elaborar un algoritmo que imprima el monto de la renta anual de diciembre 2021 hasta diciembre 2030.
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
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
program RentaMensualDeTelmex;
uses crt;
var i : integer;
var anio, renta_anual, tarifa : real;
begin
tarifa := 0;
for i:=1 to 11 do
begin
writeln ('PROCESO ', i);
anio := 2019+i;
if i=1 then
begin
tarifa := 400;
end
else
begin
tarifa := renta_anual*1.15;
end;
renta_anual := tarifa;
writeln ('Valor de anio: ', anio:0:6);
writeln ('Valor de renta anual: ', renta_anual:0:6);
writeln;
end;
writeln ('Valor de tarifa: ', tarifa:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var anio, renta_anual, tarifa : real;
begin
tarifa := 0;
for i:=1 to 11 do
begin
writeln ('PROCESO ', i);
anio := 2019+i;
if i=1 then
begin
tarifa := 400;
end
else
begin
tarifa := renta_anual*1.15;
end;
renta_anual := tarifa;
writeln ('Valor de anio: ', anio:0:6);
writeln ('Valor de renta anual: ', renta_anual:0:6);
writeln;
end;
writeln ('Valor de tarifa: ', tarifa:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.