-
Lenguaje
Pascal
-
Descripción
Calcular y escribir el valor a pagar por la factura de servicio móvil dado el consumo en minutos y sabiendo que la tarifa básica es de $50.000 por los primeros 100 minutos, los minutos que superen los 100 se cobran como adicionales a $100 cada minuto.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program FacturaDeServicioMovil;
uses crt;
var consumo_en_minutos, factura, tarifa_basica : integer;
begin
write ('Ingresa el valor de consumo en minutos: ');
readln (consumo_en_minutos);
tarifa_basica := 50000;
factura := tarifa_basica;
if consumo_en_minutos>100 then
begin
factura := factura+(consumo_en_minutos-100)*100;
end;
writeln ('Valor de factura: ', factura);
writeln ('Valor de tarifa basica: ', tarifa_basica);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var consumo_en_minutos, factura, tarifa_basica : integer;
begin
write ('Ingresa el valor de consumo en minutos: ');
readln (consumo_en_minutos);
tarifa_basica := 50000;
factura := tarifa_basica;
if consumo_en_minutos>100 then
begin
factura := factura+(consumo_en_minutos-100)*100;
end;
writeln ('Valor de factura: ', factura);
writeln ('Valor de tarifa basica: ', tarifa_basica);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.