-
Lenguaje
Pascal
-
Descripción
Movilnet tiene un plan por S/.99 mensuales denominado PLAN ILIMITADO el cual consiste 1500 segundos libres para llamadas y S/.0.25 por cada mensaje de texto. Las llamadas adicionales tienen un costo de S/.0.5 por cada minuto. Suponiendo que una persona se excedió en las llamadas y se tiene como dato de entrada la cantidad total de mensajes y la cantidad total de segundos consumidos por exceso en el mes, realice un algoritmo que determine el monto total pagar a Movilnet en el mes.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program PlanIlimitadoMovilnet;
uses crt;
var minutos_adicionales, monto_total_pagar, plan, total_de_mensajes, total_de_segundos_excedidos : real;
begin
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
write ('Ingresa el valor de total de segundos excedidos: ');
readln (total_de_segundos_excedidos);
plan := 99;
minutos_adicionales := (total_de_segundos_excedidos-total_de_segundos_excedidos mod 60)/60;
if total_de_segundos_excedidos mod 60<>0 then
begin
minutos_adicionales := minutos_adicionales+1;
end;
monto_total_pagar := plan+total_de_mensajes*0.25+0.5*minutos_adicionales;
writeln ('Valor de minutos adicionales: ', minutos_adicionales:0:6);
writeln ('Valor de monto total pagar: ', monto_total_pagar:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var minutos_adicionales, monto_total_pagar, plan, total_de_mensajes, total_de_segundos_excedidos : real;
begin
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
write ('Ingresa el valor de total de segundos excedidos: ');
readln (total_de_segundos_excedidos);
plan := 99;
minutos_adicionales := (total_de_segundos_excedidos-total_de_segundos_excedidos mod 60)/60;
if total_de_segundos_excedidos mod 60<>0 then
begin
minutos_adicionales := minutos_adicionales+1;
end;
monto_total_pagar := plan+total_de_mensajes*0.25+0.5*minutos_adicionales;
writeln ('Valor de minutos adicionales: ', minutos_adicionales:0:6);
writeln ('Valor de monto total pagar: ', monto_total_pagar:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.