Lista de lp

Modalidade: Integrado
Curso: Técnico em Informática
Disciplina: Lógica de Prog.
Data: 22/11/2012 20_20_/__/2012
Trio: Andressa Queiroz, Isabela Bahia e Wesley Ramos
Nota:
Profª: Rosangela de Araújo Santos
Turno: Matutino
Turma: 88211

1ª Lista de Exercícios – U2

INSTRUÇÕES: 1. Esta lista consta de 4(quatro) questões, valendo total de 2,0 pontos. 2. A resposta deve ser entregue em mãos até dia 22/11.

Questão 01 – (Vale 0,5)

Faça um programa em PASCAL para calcular a conta de água para EMBASA. O custo da água varia dependendo do tipo do consumidor: residencial, comercial ou industrial. A regra para calcular a conta é:
• Residencial: R$ 5,00 de taxa mais R$ 0,05 por m3 consumido;
• Comercial: R$ 500,00 para os primeiros 80 m3 consumidos mais R$ 0,25 por m3 excedente;
• Industrial: R$ 800,00 para os primeiros 100 m3 mais R$ 0,04 por m3 excedente;
O programa deverá ler a conta do cliente, seu tipo (residencial, comercial ou industrial) e o seu consumo de água em metros cubos. Como resultado imprimir a conta do cliente e o valor em reais a ser pago pelo mesmo.

Program calcularcontadeagua;
{ Autores: Andressa Queiroz, Isabela Bahia e Wesley Ramos Data:22/11/2012
O programa serve para calcular a conta de água para a embasa. Sendo que o custo varia a depender do tipo do consumidor. O usuário deve informa a conta do cliente, o seu tipo(residencial, comercial ou industrial) e o consumo de água em metros cúbicos. E ao final, imprimir a conta do cliente e o valor a ser pago pelo mesmo, com os excedentes.}

Program contadeagua; var tpc:char; nc,vle,mce,mc,vm:real; Begin writeln ('Informe o número da sua conta'); readln (nc); writeln('quantos metros cubixos foram consumidos'); readln(mc); writeln('qual tipo da conta'); writeln('r: residencial'); Writeln('c: comercial'); Writeln('i: industrial'); readln(tpc); case tpc of 'r': begin writeln ('o numero da conta e