AD 2 Computação I 2017 1 gabarito atualizado Q1

Prévia do material em texto

UNIVERSIDADE FEDERAL FLUMINENSE 
ESCOLA DE ENGENHARIA INDUSTRIAL METALÚRGICA DE VOLTA REDONDA 
CURSO DE ENGENHARIA DE PRODUÇÃO 
Fundação Centro de Ciências e Educação Superior a Distância do Estado do Rio de Janeiro 
Centro de Educação Superior a Distância do Estado do Rio de Janeiro 
 
Gabarito Avaliação a Distância – AD2 
2017.1 
Disciplina: Computação I 
Coordenador da Disciplina: Edgar Eller Junior 
 
1) 
Algoritmo Colisao_locomotivas() 
Inicio 
Inteiro t 
Real A, B, A0, B0 
t=1 
A0=0 
B0=-430000 
Enquanto ((A+B)<430000) Faça 
A = A0 - 30*t 
B = B0 + 40*t 
A0 = A0 + A 
B0 = B0 + B 
t = t + 1 
 Imprimir “Tempo decorrido de ” + t + “ segundos” 
Imprimir “ A locomotiva A percorreu “ + A + “ metros” 
Imprimir “A locomotiva B percorreu “ + B + “ metros” 
Fim Enquanto 
Fim 
 
2) 
Algoritmo Multiplicacao_matrizes() 
Início 
 Inteiro i, j, k, m=30, n=20 
 Inteiro [][] A = Inteiro [m][n] 
 Inteiro [][] B = Inteiro [n][m] 
 Inteiro [][] C 
 Imprimir “Digite os elementos das matrizes A” 
 Para (i=0;i<m;i=i+1) Faça 
 Para (j=0;j<n;j=j+1) Faça 
 Ler A[i][j] 
 Fim Para 
 Fim Para 
 Imprimir “Digite os elementos das matrizes B” 
 Para (i=0;i<n;i=i+1) Faça 
 Para (j=0;j<m;j=j+1) Faça 
 Ler B[i][j] 
 Fim Para 
 Fim Para 
Para (i=0;i<m;i=i+1) Faça 
 Para (j=0;j<m;j=j+1) Faça 
 C[i][j] = 0 
 Para (k=0;k<n;k=k+1) Faça 
 C[i][j] = C[i][j] + A[i][k] * B[k][j] 
 Fim Para 
 Fim Para 
 Fim Para 
Imprimir “Resultado da Matriz A x B” 
Para (i=0;i<m;i=i+1) Faça 
 Para (j=0;j<m;j=j+1) Faça 
 Imprimir C[i][j] 
 Fim Para 
 Fim Para 
Fim 
 
3) 
Algoritmo ValorMatriz() 
Início 
 Real [][] A = Real [10][10] 
 Inteiro i, j, linhamin=0, colunamin=0, linhamax=0, colunamax=0 
 Real pos=0, neg=0, valormax, valormin 
 Imprimir "Digite o valor da matriz" 
 Para (i=0;i<10;i=i+1) Faça 
 Para(j=0;j<10;j=j+1) Faça 
 Ler A[i][j] 
 Fim Para 
 Fim Para 
 valormax = A[0][0] 
 Para (i=0;i<10;i=i+1) Faça 
 Para(j=0;j<10;j=j+1) Faça 
 Se (A[i][j] > valormax) Então 
 valormax = A[i][j] 
 linhamax = i 
 colunamax = j 
 Fim Se 
 Fim Para 
 Fim Para 
 valormin = A[0][0] 
 Para (i=0;i<10;i=i+1) Faça 
 Para(j=0;j<10;j=j+1) Faça 
 Se (A[i][j] < valormin ) Então 
 valormin = A[i][j] 
 linhamin = i 
 colunamin = j 
 Fim Se 
 Fim Para 
 Fim Para 
 Para (i=0;i<10;i=i+1) Faça 
 Para(j=0;j<10;j=j+1) Faça 
 Se (A[i][j] > 0) Então 
 pos = pos + A[i][j] 
 Senão 
 neg = neg + A[i][j] 
 Fim Se 
 Fim Para 
 Fim Para 
 Imprimir “A localização do maior valor é linha “+ linhamax +” e coluna “+ colunamax +” 
e do menor valor é linha “+ linhamin +” e coluna “+ colunamin 
 Imprimir "A soma dos valores positivos é " + pos + " e a soma dos valores negativos é " 
+ neg 
Fim 
 
4) 
Algoritmo FibRecursivo() 
Início 
 Inteiro num, i, f, fprox, cont 
 Logico x 
 Imprimir "Digite o número para verificar" 
 Ler num 
 Imprimir " A sequencia de Fibonacci é" 
 fprox=0 
 cont=1 
 Enquanto (fprox<=num) Faça 
 f=fib(cont) 
 fprox=fib(cont+1) 
 Imprimir f 
 Se (f==num) Então 
 x=verdadeiro 
 Fim Se 
 cont = cont + 1 
 Fim Enquanto 
 Se (x) Então 
 Imprimir "O número " + num + " pertence a série de Fibonacci" 
 Senão 
 Imprimir "O número " + num + " não pertence a série de Fibonacci" 
 Fim Se 
Fim 
 
Inteiro fib(Inteiro n) 
Início 
 Se (n==1 | n==2) Então 
 Retorne 1 
 Senão 
 Retorne fib(n-1) + fib(n-2) 
 Fim Se 
Fim 
 
 
 
 
5) 
Procedimento vetoresparesimpares(Inteiro[ ] vet, Inteiro tam) 
Início 
 Inteiro i, p=0, im=0 
 Inteiro [ ] par, Inteiro [ ] impar 
 Para (i=0;i<tam;i=i+1) Faça 
 Se ( vet[i] % 2 == 0 ) Então 
 par[p] = vet[i] 
 p = p +1 
 Senão 
 impar[im] = vet[i] 
 im = im + 1 
 Fim Se 
 Fim Para 
Fim