UNIVERSIDADE SALGADO DE OLIVEIRA
Data: 06/05/10
Pró Reitoria Acadêmica – Direção Acadêmica
Prova
Curso Engenharia de Produção
Disciplina: Introdução à Ciência da Computação II
Professor: Menezes
Aluno: Gabarito
x
Turma: 22431M
Matricula
V1
V2
2ª Cham.
V.S.
Rubrica do Gestor
1º A Prova não poderá ser feita a lápis, devendo o aluno usar caneta azul ou preta ,
preferencialmente.
2ºNas questões de múltipla escolha não será permitida rasura ou o uso de corretivo.
3º De acordo com as normas regimentais a prova é individual
4º A utilização de meios fraudulentos no processo de avaliação, implica em punição acadêmica.
Rubrica do Prof.:
Nota:
1º Questão (1,5ponto) Escreva a linha de inicializa uma variável de nome x, que contém o
volume de um cilindro de raio r e altura h fornecido em cm e x expresso em metros.
X := sqr(r) * h;
2ª Questão ( 1,5 pontos) . O que será impresso pela linha IV se os valores de entrada das
linhas I, II e III for “Marisa”, 3 e 42 , respectivamente?
I.
II.
III.
IV.
Write(‘Digite seu nome’);Readln(nome);
A área do quadrado é ----126,00Marisa
Write(‘Digite um valor’); Readln(xx);
Write(‘ou valor’);Readln(SS);
Write(‘A área do quadrado é ‘,xx*SS:10:2,nome);
3ª. Questão (2,5 pontos) Escreva um programa que leia via teclado, três números inteiros, e
imprima em ordem crescentes.
program area_cilindro_horizontal;
uses wincrt;
var
a, b, c : integer;
begin
write ('Digite o 1o. '); readln(a);
write ('
o 2o. '); readln(b);
write ('
o 3o. '); readln(c);
if (a < b) and (b < c) and (a < c) then
write(a, ' - ' , b , ' - ', c);
if (a < b) and (b > c) and (a < c) then
write(a, ' - ' , c , ' - ' , b);
if (a > b) and (b < c) and (a < c) then
write(b, ' - ' , a , ' - ' , c);
if (a < b) and (b > c) and (a > c) then
write(c, ' - ' , a , ' - ' , b);
if (a > b) and (b > c) and (a > c) then
write(c, ' - ' , b , ' - ' , a);
if (a > b) and (b < c) and (a > c) then
write(b, ' - ' , c , ' - ' , a);
end.
4ª Questão (1,5 pontos) Escreva as expressões abaixo em linguagem pascal.
c d
−
a−b
3
x
−8
b) y =
8 n
a
−
c x
x := (sqrt(a – sqr(b))/a – 8;
y := (c/3 – d/x) / (8/c – n/x);
y := sqrt(sqrt(2*(x-2)));
2
a) x =
a)
b)
c)
(
b) y = (2( x − 2) )
1
)
1
2
2
5ª. Questão (3,0 pontos) Escreva um programa em pascal que expresse a função
i =3
matemática a seguir:
x=
∑ ( y − 4)
2
. Não há necessidade
da área de
3000
declarações de variáveis. Demonstre apenas o trecho entre o “BEGIN e END.”.
O programa receberá via teclado o valor de y e x é a soma acumulada a ser
impressa.
program somatorio ;
uses wincrt;
var
n : integer;
x , y : real;
begin
x := 0;
for n := 1 to 3000 do begin
write(' Digite o valor de y '); readln(y);
x := x + sqr(y - 4);
end;
write( ' A soma é ', x : 8: 2);
end.