MC111 - Introdução ao Processamento de Dados

Os arquivos dados1.txt e dados2.txt contêm valores inteiros, não necessariamente ordenados. Inicialmente, você deve ler estes valores e armazená-los nos vetores vet1 e vet2. A seguir, você ordenar estes vetores separadamente. Finalmente, você deve casar o conteúdo destes vetores, produzindo uma única seqüencia ordenada que será gravada em saida.txt. Note que o procedimento de leitura deve ler os valores armazenados até que a condição fim de arquivo (eof) seja válida e indicar o número de elementos lidos na variável n. Observe o modelo abaixo:

program proj3;

const tam_vet   =  100;
type tipo_vetor = array [1..tam_vet] of integer;
     tipo_nome  = string[40]; 

procedure le(nome_arq: tipo_nome ; var vet: tipo_vetor; var n: integer);
...

procedure troca(var x, y: integer);
...

procedure ordena(var vet: tipo_vetor; n: integer);
...

procedure casa (nome_arq: tipo_nome; var vet1, vet2: tipo_vetor; n1, n2: integer);
...

var
   vet1, vet2                      : tipo_vetor;
   n1, n2                          : integer;
begin
   le('dados1.txt', vet1, n1);
   ordena(vet1, n1);
   le('dados2.txt', vet2, n2);
   ordena(vet2, n2);
   casa ('saida.txt', vet1, vet2, n1, n2);
end.