sp

Prévia do material em texto

Programação de Computadores 
Teste Pascal 
instruções ------ Leia com atenção! 
- Programas iguais terão nota ZERO. 
- Codificar, editar, salvar, compilar e testar o programa Pascal correspondente ao algoritmo dado. 
- Completar o programa com uma interface simples: limpar a tela, fazer um cabeçalho (função do programa e nome do aluno) e 
incluir mensagens de orientação para a entrada e saída de dados . 
- Nomes dos arquivos � TPwxyz.PAS e TPwxyz.EXE, onde wxyz são as primeiras iniciais do seu nome. 
- Enviar os arquivos pela Internet (Moodle) separadamente, um em cada tópico de entrega. 
problema 
Construir um programa que leia m (m≤100) e o conjunto A de m elementos, depois leia n (n≤100) e o conjunto B de n elementos, 
determine e imprima um terceiro conjunto C que seja igual à união dos dois primeiros (C = A ∪∪∪∪ B). 
 Obs: - O conjunto C possuirá todos os elementos presentes em A e B, cada um apenas uma única vez. 
 - Os conjuntos A e B não possuem elementos repetidos em si mesmos. 
algoritmo 
Algoritmo 
 declare m, n, p numérico { Números de elementos dos conjuntos } 
 declare A, B [1:100] numérico { conjuntos fornecidos como entrada } 
 declare C [1:200] numérico { conjuntos uniao } 
 declare i numérico { apontador } 
leia m 
leia A[1], A[2], ... , A[m] 
leia n 
leia B[1], B[2], ... , B[n] 
 Copia os elementos do conjunto A para o conjunto C 
i ← 1 
repita 
 se i > n então 
 interrompe 
 fim se 
 se ValorNãoExisteNoOutroConjunto( B[i], m, A ) então 
 p ← p + 1 { copia os elementos de B que não existem em A } 
 C[p] ← B[i] 
 fim se 
 i ← i + 1 
 fim repita 
escreva C[1], C[2], ..., C[p] 
fim algoritmo. 
ref: Copia os elementos do conjunto A para o conjunto U 
 p ← 0 { inicialmente o conjunto União está vazio } 
 repita 
 p ← p + 1 
 C[p] ← A[p] { o índice p aponta sempre para o último elemento inserido em C } 
 se p = m então 
 interrompe 
 fim se 
 fim repita 
fim ref 
função lógica ValorNaoExisteNoOutroConjunto( Valor, tam, X ) 
 declare X[1:100] numérico { entrada: conjunto a ser verificado } 
 declare Valor { entrada: valor a ser pesquisado } 
 tam { entrada: número de elementos em conjunto X} 
 i ‘ { índice para o vetor } 
 numérico 
 ValorNaoExisteNoOutroConjunto ← verdadeiro 
 i ← 1 
repita { tenta provar o contrário, ou seja, que o valor existe em A } 
 se X[ i ] = Valor então 
 ValorNaoExisteNoOutroConjunto ← falso 
 fim se 
 i ← i + 1 
 se ( i > tam ) ou ( não ValorNaoExisteNoOutroConjunto ) então 
 interrompa 
 fim se 
 fim repita 
fim função