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