PCIII_p3_1sem2014

Prévia do material em texto

3ª Prova de Programação de Computadores III					Data: 16/06/2014
Aluno: _________________________________________________________ Nota: _________
Fazer um algoritmo para ler 1 matriz 5x7 contendo valores inteiros. Criar um vetor contendo todos os valores primos existentes na matriz. No final escreva a matriz lida a e o vetor resultante. Use subprogramação e arrays.
	Início
Defina a(5,7), b(35), cont inteiro
Chame ler (a)
Chame criar(a, b, cont)
Chame escr(a, b, cont)
Fim
Subrotina ler(x)
 Defina x(5,7) , i, j inteiro
 Para i de 1 até 5 passo 1 faça
 Para j de 1 até 7 passo 1 faça
 Leia x(i, j)
 Fim-para
 Fim-para
Fim-subrotina
Subrotina escr(x, y, k)
 Defina x(5,7) , i, j, k inteiro
 Para i de 1 até 5 passo 1 faça
 Para j de 1 até 7 passo 1 faça
 Escreva x(i, j)
 Fim-para
 Fim-para
 Para i de 1 até k passo 1 faça
 Escreva x(i)
 Fim-para
Fim-subrotina
	Subrotina criar(x, y, k)
 Defina x(5,7) , y(35), i, j, k inteiro
 Para i de 1 até 5 passo 1 faça
 Para j de 1 até 7 passo 1 faça
 Se primo(x(i,j)) = 2 Então
 k ← k + 1
 y(k) ← x(i,j)
 Fim-se
 Fim-para
 Fim-para
Fim-subrotina
Função primo(val)
 Defina val, div, primo inteiro
 primo ← 0
 Para div de 1 até val passo 1 faça
 Se resto(val, div) = 0 Então
 primo ← primo + 1
 Fim-se
 Fim-para
Fim-função
�
Fazer um programa WATFIV para ler 1 vetor contendo 10 nomes e no final escrevê-lo em ordem alfabética. Use subprogramação e arrays. A leitura deve ser feita todos em uma única linha e a escrita um por vez.
	 character nome(10)*20
 call ler(nome)
 call ord(nome)
 call escr(nome)
 end
 subroutine ler(x)
 character x(10)*20
 integer i
 open (1, file="c:/temp/arq.txt")
 read (1, 10), (x(i), i=1, 10,1)
 10 format(10a20)
 end
 subroutine escr(x)
 character x(10)*20
 integer i
 do i=1, 10,1
 print 10, x(i)
 enddo
 10 format(a20)
 end
	 subroutine ord(x)
 character x(10)*20, aux*20
 integer i, t
 t = 9
 do while(t.gt.0)
 do i=1, t, 1
 if(x(i) .gt. x(i+1)) then
 aux = x(i)
 x(i) = x(i+1)
 x(i+1) = aux
 endif
 enddo
 t = t - 1
 enddo
 end
Fazer um algoritmo para ler 4 vetores contendo 5 valores quaisquer e criar uma matriz contendo os valores dos vetores lidos nas colunas. Escrever a matriz e os vetores lidos. Use subprogramação e arrays.
	Início
Defina a(5), b(5), c(5), d(5), e(5,4) real
Chame ler (a)
Chame ler (b)
Chame ler (c)
Chame ler (d)
Chame criar(a, b, c, d, e)
Chame escr1(a, b, c, d)
Chame escr2(e)
Fim
Subrotina ler(x)
 Defina x(5) real
 Defina ij inteiro
 Para i de 1 até 5 passo 1 faça
 Leia x(i)
 Fim-para
Fim-subrotina
Subrotina escr1(x, y, z, w)
 Defina x(5), y(5), z(5), w(5) , i, j, k inteiro
 Para i de 1 até 5 passo 1 faça
 Escreva x(i), y(i), z(i), w(i)
 Fim-para
Fim-subrotina
	Subrotina criar(x, y, z, w, m)
 Defina x(5) , y(5), z(5), w(5), m(5,4) inteiro
 Defina i, j inteiro
 Para i de 1 até 5 passo 1 faça
 m(i,1) ← x(i)
 m(i,2) ← y(i)
 m(i,3) ← z(i)
 m(i,4) ← w(i)
 Fim-para
Fim-subrotina
Subrotina escr2(x)
 Defina x(5,7) real
 Defina i, j inteiro
 Para i de 1 até 5 passo 1 faça
 Para j de 1 até 7 passo 1 faça
 Escreva x(i)
 Fim-para
 Fim-para
Fim-subrotina
Fazer um Programa WATFIV para ler 1 matriz 10x12, em forma de matriz e escrever os valores da matriz em uma única linha. Usar subprogramação e arrays
	 real m(10,12)
 call ler(m)
 call escr(m)
 end
 subroutine ler(x)
 character x(10,12)
 integer I, j
 open (1, file="c:/temp/arq.txt")
 do i=1, 10,1
 read (1, 10), (x(i), i=1, 12,1)
 10 format(12f5.1)
 end
 subroutine escr(x)
 real x(10,12)
 integer i, j
 print 10, ((x(i,j), j=1, 12,1), i=1, 10,1)
 enddo
 10 format(120(f5.1, 2x))
 end