Instituto de Computação - UNICAMP

MC111 - Introdução ao Processamento de Dados

Laboratório 7

Islene Calciolari Garcia

Primeiro semestre de 2002

Escreva um programa que trabalhe com vetores de inteiros seguindo o modelo abaixo. Implemente e teste primeiro os procedimentos le_vetor e escreve_vetor. A seguir, implemente o procedimento auxiliar troca que será usado nos procedimentos inverte_vetor e ordena_vetor. Você pode colocar chamadas para o procedimento escreve_vetor dentro dos procedimentos inverte_vetor e ordena_vetor para visualizar melhor o que está acontecendo a cada passo.

program vetor;

const tam_vet = 7;   
type tipo_vetor = array [1..tam_vet] of integer;

procedure le_vetor(var vet : tipo_vetor);
...

procedure escreve_vetor(var vet : tipo_vetor);
...

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

procedure inverte_vetor(var vet : tipo_vetor);
...

procedure ordena_vetor(var vet: tipo_vetor);
...

var
   vet : tipo_vetor;
begin
   le_vetor(vet);
   inverte_vetor(vet); 
   escreve_vetor(vet);
   ordena(vet);
   escreve_vetor(vet);   
end.

Resolução

Islene Calciolari Garcia