Lista de lp

Disponível somente no TrabalhosFeitos
  • Páginas : 5 (1064 palavras )
  • Download(s) : 0
  • Publicado : 15 de fevereiro de 2013
Ler documento completo
Amostra do texto
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 deveser 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,25por 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 WesleyRamos 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;
vartpc: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=',nc:0:0);
writeln('conta residencial =', tpc);
vm:= mc*0.05;
writeln('o valor a ser pago e =', vm+5:0:2);
end;
'c':
begin
writeln ('o numero da conta e =',nc:0:0);
writeln('conta comercial =', tpc);
vm:= 500;
writeln('o valor a ser pago sem excedente =',vm:0:2);
if (mc>80) then
mce:= mc-80;vle:= mce*0.25;
writeln('o valor a ser pago por excedente e =',vle:0:2);
writeln('o valor total da conta =', vm+vle:0:2);
end;
'i':
begin
writeln ('o numero da conta e =',nc:0:0);
writeln('conta industrial =', tpc);
Vm:=800;
writeln('o valor a ser pago sem excedente e =',vm:0:2);
if(mc>100) then
mce:= mc-100;
vle:= mce*0.04;
writeln('o valor a ser pagopor excedente e =',vle:0:2);
writeln('o valor total da conta =', vm+vle:0:2);

end;
end;
End.

Questão 02 – (Vale 0,5)

Faça um algoritmo que receba a idade de uma pessoa e classifique-a seguindo o critério a seguir:Use a instrução caso.
Idade | Classificação |
0 a 2 anos | Recém-nascido |
3 a 11 anos | Criança |
12 a 19 | Adolescente |
20 a 55 | Adulto |
Acima de 55anos | Idoso |
Algoritimo definicaodefaixaetaris;
Inicio
{ Autores: Andressa Queiroz, Isabela Bahia e Wesley Ramos Data:22/11/2012
O programa pede para o usuário informar a sua idade e depois a classifica em: recém-nascido, criança, adolescente, adulto e idoso.}

Inicio
Var id:inteiro;
escreva(''informe a sua idade'');
leia(id);
caso id seja
0..2:escreva(''Recém-nascido'');3..11:escreva(''Criança'');
12..19:escreva(''Adolescente'')
20..55:escreva(''Adulto'');
default
escreva(''idoso'');
fim caso;
Fim.

Questão 03 – (Vale 0,5)

Um posto telefônico deseja calcular o valor das ligações efetuadas por uma cidade. O valor a ser pago é calculado de acordo com as seguintes regras:
* Taxa de R$ 2,00 pela ligação mais R$ 1,00 para os 3 primeiros minutos;
* Acima dos...
tracking img