• Lenguaje

    Pascal

  • Descripción

    Se requiere un programa para facturar llamadas telefónicas. El valor del minuto depende del tipo de llamada, así: local = $ 50, regional = 100, larga distancia nacional = 500, larga distancia internacional = 700, a celular = 200. Las llamadas de tipo regional y larga distancia nacional tienen un descuento del 5% si su duración es de 5 minutos o más.

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
program FacturacionDeLlamadasTelefonicas;
uses crt;

var descuento, minutos_de_llamada_a_celular, minutos_de_llamada_larga_distancia_internacional, minutos_de_llamada_larga_distancia_nacional, minutos_de_llamada_local : real;
var minutos_de_llamada_regional, subtotal, total : real;
begin
    write ('Ingresa el valor de minutos de llamada a celular: ');
    readln (minutos_de_llamada_a_celular);
    write ('Ingresa el valor de minutos de llamada larga distancia internacional: ');
    readln (minutos_de_llamada_larga_distancia_internacional);
    write ('Ingresa el valor de minutos de llamada larga distancia nacional: ');
    readln (minutos_de_llamada_larga_distancia_nacional);
    write ('Ingresa el valor de minutos de llamada local: ');
    readln (minutos_de_llamada_local);
    write ('Ingresa el valor de minutos de llamada regional: ');
    readln (minutos_de_llamada_regional);
    subtotal := minutos_de_llamada_local*50+minutos_de_llamada_regional*100+minutos_de_llamada_larga_distancia_nacional*500+minutos_de_llamada_larga_distancia_internacional*700+minutos_de_llamada_a_celular*200;
    descuento := 0;
    if minutos_de_llamada_regional>5 then
        begin
            descuento := descuento+minutos_de_llamada_regional*5;
        end;
    if minutos_de_llamada_larga_distancia_nacional>5 then
        begin
            descuento := descuento+minutos_de_llamada_larga_distancia_nacional*25;
        end;
    total := subtotal-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de subtotal: ', subtotal:0:6);
    writeln ('Valor de total: ', total:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.