Gab 1ºEE 2012.1

Prévia do material em texto

Observações gerais: 
1) Preencher os dados do cabeçalho do bloco de provas; 
2) Preencher o cabeçalho da folha de questões com o nome e a turma; 
3) Não utilizar a folha de questões como rascunho. O rascunho, se necessário, deverá ser feito nas 
folhas do caderno de prova; 
4) Ao final da prova entregar ao professor ou fiscal a folha de questões e o caderno de prova; 
5) Cada quesito vale 5 pontos. 
 
1º quesito: A equação da velocidade em função do tempo é V = Vo + a*t 
onde,: V - é a velocidade atual; V0 - é a velocidade inicial; a - é a aceleração; t - é o tempo 
decorrido desde o início do movimento. 
Faça um programa em PASCAL para calcular a distância percorrida por um objeto. 
Considerando a equação acima o programa deve: 
a) Apresentar na tela um conjunto de opções que permita ao usuário digitar a opção 1, caso 
queira calcular V; 2 caso queira calcular V0; 3 caso queira calcular a e 4 caso queira 
calcular t; 
b) Realizar o cálculo da opção escolhida. 
Obs.: se o usuário digitar uma opção inválida, informar mensagem indicativa e 
encerrar o programa. 
 
Ao final do cálculo anterior (caso uma opção válida tenha sido fornecida) os seguintes passos 
devem ser realizados: 
c) O programa deverá solicitar ao usuário que informe S0 e o sistema deverá calcular o 
espaço percorrido pelo objeto através da equação S = S0 + V0*t + (a*t2)/2 (os demais 
parâmetros foram lidos em (a) ou calculados em (b)); 
d) Exibir na tela o valor calculado em (b) e (c) sem as casas decimais (valor inteiro). 
 
Program odometro; 
var v, v0, a, t, S, S0: real; 
 op: integer; 
 
begin 
 writeln('V = Vo + a.t'); 
 writeln('1 - para calcular V'); 
 writeln('2 - para calcular V0'); 
 writeln('3 - para calcular a'); 
 writeln('4 - para calcular t'); 
 writeln('digite sua opcao:> '); 
 readln(op); 
 case op of 
 1: 
 begin 
 writeln('digite Vo, a, t:'); 
 readln(v0,a,t); 
 v := V0 + a * t; 
 writeln('v: ',Trunc(v)); 
 end; 
 2: 
 begin 
ÁREA II – CCEN / UFPE 
 
Disciplina: IF 165 – Computação Eletrônica – 1º Exercício Escolar 2012.1 Data: 10/04/ 2012 
 
 
Nome legível do aluno: .......................................................................................... Turma ......... 
 writeln('digite V, a, t:'); 
 readln(v,a,t); 
 v0 := v - a * t; 
 writeln('v0: ', Trunc(v0)); 
 end; 
 3: 
 begin 
 writeln('digite V, Vo, t:'); 
 readln(V,v0,t); 
 a := (v - v0)/t; 
 writeln('a: ', Trunc(a)); 
 end; 
 4: 
 begin 
 writeln('digite v, Vo, a:'); 
 readln(v0,a,t); 
 t := (v-v0)/a; 
 writeln('t: ', Trunc(t)); 
 end; 
 else 
 begin 
 writeln('opcao invalida!'); 
 end; 
 end; 
 
 if (op >=1) and (op <=4) then 
 begin 
 write('informe o valor de S0: '); 
 readln(S0); 
 
 S := S0 + V0*t + (a*sqr(t))/2; 
 S := 1000*S; 
 writeln('Espaço percorrido: ', Trunc(S)); 
 end; 
end. 
 
2º quesito: Uma empresa calcula o bônus de seus funcionários conforme as seguintes regras: 
- 10 anos de empresa, o bônus é de 15,5%; 
- 5 anos de empresa e menos de 10 anos, o bônus é de 10,5%; 
- 1 ano de empresa e menos de 5 anos, o bônus é de 5,5%; 
- 6 meses de empresa e menos de 1 ano, o bônus é de 1,5%. 
- Caso contrário, não há bônus. 
Faça um programa em PASCAL que receba como entrada um INTEIRO representando o tempo 
de trabalho expresso em número de horas e verifique o percentual de bônus correspondente. 
Obs.: a) Considere que todo mês tem 30 dias e cada dia 24 horas; 
 b) O número de horas informado deve estar no intervalo 1.000 <= horas <= 300.000. Caso 
contrário, imprimir mensagem de erro e encerrar o programa; 
 c) A mensagem a ser impressa pelo programa deve estar no formato: 
"O bônus do funcionário que tem X ano(s) e Y mes(es) de empresa é de Z%" 
 
Exemplos de entrada/saída: 
Digite o tempo de empresa em horas: 10000 
O bônus do funcionário que tem 1 ano(s) e 1 mes(es) de empresa é de 5.50% 
 
Digite o tempo de empresa em horas: 50000 
O bônus do funcionário que tem 5 ano(s) e 9 mes(es) de empresa é de 10.50% 
 
Digite o tempo de empresa em horas: 2000 
O bônus do funcionário que tem 0 ano(s) e 2 mes(es) de empresa é de 0.00% 
 
program bonusEmpresa; 
var 
 horas, anos, meses, resto, dia, mes, ano:integer; 
 bonus:real; 
begin 
 dia := 24; 
 mes := 30; 
 ano := 12; 
 write('Digite o tempo de empresa em horas: '); 
 readln(horas); 
 if (horas >= 1000) AND (horas <= 300000) then 
 begin 
 anos := horas div dia*mes*ano; 
 resto := horas mod dia*mes*ano; 
 meses := resto div dia*mes; 
 resto := resto mod dia*mes; 
 if (anos >= 10) then 
 bonus := 15.5 
 else if (anos >= 5) then 
 bonus := 10.5 
 else if (anos >= 1) then 
 bonus := 5.5 
 else if (meses >= 6) then 
 bonus := 1.5 
 else 
 bonus := 0; 
 writeln('O bônus do funcionário que tem ', anos, ' ano(s) e ', meses, ' meses(es) de empresa é de ', 
bonus:2:2, '%'); 
 end 
 else 
 writeln('Numero de hroas inválido'); 
end.