-
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 Movilnet;
uses crt, math;
var minutos, plan, segundos_consumidos_por_exceso, total_de_mensajes, total_pagar : real;
begin
write ('Ingresa el valor de segundos consumidos por exceso: ');
readln (segundos_consumidos_por_exceso);
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
plan := 99;
minutos := floor(segundos_consumidos_por_exceso/60);
if floor(segundos_consumidos_por_exceso/60)<>0 then
begin
minutos := minutos+1;
end;
total_pagar := plan+0.25*total_de_mensajes+0.5*minutos;
writeln ('Valor de minutos: ', minutos:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln ('Valor de total pagar: ', total_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var minutos, plan, segundos_consumidos_por_exceso, total_de_mensajes, total_pagar : real;
begin
write ('Ingresa el valor de segundos consumidos por exceso: ');
readln (segundos_consumidos_por_exceso);
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
plan := 99;
minutos := floor(segundos_consumidos_por_exceso/60);
if floor(segundos_consumidos_por_exceso/60)<>0 then
begin
minutos := minutos+1;
end;
total_pagar := plan+0.25*total_de_mensajes+0.5*minutos;
writeln ('Valor de minutos: ', minutos:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln ('Valor de total pagar: ', total_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.