-
Lenguaje
Pascal
-
Descripción
MOVILNET tiene un plan por Bs. 50 mensuales denominado PLAN ILIMITADO el cual consiste 1500 segundos libres para llamadas y 5 Bs. por cada mensaje de texto. Las llamadas adicionales tienen un costo de 0.6 Bs. 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 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
24
25
26
27
28
29
30
31
32
33
34
35
36
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
29
30
31
32
33
34
35
36
program Movilnet2;
uses crt, math;
var minutos, plan, segundos, segundos_consumidos_al_mes, total_de_mensajes : real;
var total_pagar : real;
begin
write ('Ingresa el valor de segundos consumidos al mes: ');
readln (segundos_consumidos_al_mes);
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
plan := 50;
if segundos_consumidos_al_mes>1500 then
begin
segundos := segundos_consumidos_al_mes-1500;
end
else
begin
segundos := 0;
end;
if floor(segundos/60)=0 then
begin
minutos := segundos/60;
end
else
begin
minutos := floor(segundos/60)+1;
end;
total_pagar := plan+5*total_de_mensajes+0.6*minutos;
writeln ('Valor de minutos: ', minutos:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln ('Valor de segundos: ', segundos: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, segundos_consumidos_al_mes, total_de_mensajes : real;
var total_pagar : real;
begin
write ('Ingresa el valor de segundos consumidos al mes: ');
readln (segundos_consumidos_al_mes);
write ('Ingresa el valor de total de mensajes: ');
readln (total_de_mensajes);
plan := 50;
if segundos_consumidos_al_mes>1500 then
begin
segundos := segundos_consumidos_al_mes-1500;
end
else
begin
segundos := 0;
end;
if floor(segundos/60)=0 then
begin
minutos := segundos/60;
end
else
begin
minutos := floor(segundos/60)+1;
end;
total_pagar := plan+5*total_de_mensajes+0.6*minutos;
writeln ('Valor de minutos: ', minutos:0:6);
writeln ('Valor de plan: ', plan:0:6);
writeln ('Valor de segundos: ', segundos:0:6);
writeln ('Valor de total pagar: ', total_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.