• Lenguaje

    Pascal

  • Descripción

    Permita ingresar los minutos de llamadas locales, que tienen un costo de $0.07; llamadas a celular con un costo de $0.10; llamadas internacionales con un costo de $0.50; llamadas regionales con un costo de $0.25. Presente los subtotales de cada una de las llamadas y el total a pagar.

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

var minutos_celular, minutos_internacionales, minutos_locales, minutos_regionales, subtotal_celular : real;
var subtotal_internacionales, subtotal_locales, subtotal_regionales, total_a_pagar : real;
begin
    write ('Ingresa el valor de minutos celular: ');
    readln (minutos_celular);
    write ('Ingresa el valor de minutos internacionales: ');
    readln (minutos_internacionales);
    write ('Ingresa el valor de minutos locales: ');
    readln (minutos_locales);
    write ('Ingresa el valor de minutos regionales: ');
    readln (minutos_regionales);
    subtotal_locales := 0.07*minutos_locales;
    subtotal_celular := 0.1*minutos_celular;
    subtotal_internacionales := 0.5*minutos_internacionales;
    subtotal_regionales := 0.25*minutos_regionales;
    total_a_pagar := subtotal_locales+subtotal_celular+subtotal_internacionales+subtotal_regionales;
    writeln ('Valor de subtotal celular: ', subtotal_celular:0:6);
    writeln ('Valor de subtotal internacionales: ', subtotal_internacionales:0:6);
    writeln ('Valor de subtotal locales: ', subtotal_locales:0:6);
    writeln ('Valor de subtotal regionales: ', subtotal_regionales:0:6);
    writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.