• 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
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.