Pascal/Turbo Pascal - Ayuda ejercicio de progrmacion

   
Vista:

Ayuda ejercicio de progrmacion

Publicado por Jesus (1 intervención) el 06/04/2012 03:51:17
Para la cancelación de servicios de CANTV se requieren las siguientes información: Código del cliente, tarifa de servicio, el numero de impulso. La tarifa puede ser: básica, intermedia y máxima.

- Tarifa Básica: 5.000 bolívares los primeros 400 impulsos y resto a 60 bolívares por impulsos adicionales.

- Tarifa intermedia: 9.000 bolívares los primeros 400 impulsos y resto a 70 bolívares por impulsos adicionales.

- Tarifa Máxima: 12.000 bolívares los primeros 400 impulsos y resto a 80 bolívares por impulsos adicionales.

Se requiere diseñar un algoritmo que permita calcular el monto a pagar a dicha empresa.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda ejercicio de progrmacion

Publicado por ramon (2072 intervenciones) el 09/04/2012 13:50:13
{Esto ayudara}

program cancserv;
uses
crt;
const
servicios : array[1..3] of word = (
5000,9000,12000);
tiempo = 400;
restos : array[1..3] of integer = (
60,70,80);
type
cantv = record
codigo : word;
numero : word;
tarifa : word;
impuls : integer;
resto : integer;
tiempo : integer;
apares : real;
apagar : real;
end;
var
cliente : cantv;
dato : integer;

procedure datosentrada;
begin
clrscr;
write('Codigo : ');
readln(cliente.codigo);
write('Numero : ');
readln(cliente.numero);
write('1,2,3 = Tarifa : ');
readln(dato);
cliente.tarifa := servicios[dato];
cliente.resto := restos[dato];
write('Impulsos : ');
readln(cliente.impuls);
end;

procedure resolver;
var
res : word;
begin
res := cliente.impuls - tiempo;
if res < 0 then
res := 0;
cliente.apares := res * cliente.resto;
cliente.apagar := cliente.tarifa + cliente.apares;
clrscr;
writeln('Cliente Codigo = ',cliente.codigo);
writeln('Cliente N§ = ',cliente.numero);
writeln('Tarifa Tomada = ',cliente.tarifa);
writeln('Impulsos = ',cliente.impuls);
writeln('Resto de ',cliente.tarifa,' es : ',res);
writeln('Costo Resto = ',cliente.resto);
writeln('Importe Resto = ',cliente.apares:8:2);
writeln('Importe Total = ',cliente.apagar:8:2);
writeln;
writeln('Pulse Una Tecla');
end;

begin
datosentrada;
resolver;
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar