carolina correia simes de jesusgabriel nascimentojoo carlos de
jesusjos carlos costawesley santosPROJETO FINAL DE PROGRAMAO
IMPERATIVARelatrio explicando as questes do Projeto Final,
apresentado como exigncia da disciplina Programao Imperativa, turma
T07, perodo 2013/1.
Prof. Leonardo Henrique da Silva BomfimUNIVERSIDADE FEDERAL DE
SERGIPE
DEPARTAMENTO DE COMPUTAO
PROGRAMAO IMPERATIVASO CRISTVO-SE
1 (matriz.pas) Faa um programa que leia um vetor V contendo 18
elementos. A seguir, distribua esses elementos em uma matriz 3x6.
Ao final, mostre a matriz gerada.
Veja a seguir um exemplo do que o seu programa deve fazer:
V = 325158974365322719106881334578987
3251589743
M =65322719106
881334578987
{Carolina Correia,Gabriel Nascimento,Joo Carlos de Jesus,Jos
Carlos Costa,Wesley Santos}
program constroi;
uses crt;
{Le um vetor e transforma numa matriz}
const
max = 18;//Declarando uma constante
type
array_do_vetor = array [1..max] of integer;
var
I : integer;
vetor : array_do_vetor;
procedure CO_MATRIZ (vet : array_do_vetor);//Procedimento para
transformar um vetor em matriz
const
dim1 = 3;
dim2 = 6;
type
array_da_matriz = array [1..dim1,1..dim2] of
integer;//Declarando um matriz local
var
I,J,K : integer;
matriz : array_da_matriz;
begin
K := 0;
writeln('MATRIZ:');
for I:=1 to dim1 do
begin // inicio do processo. Cada elemento do vetor sera alocado
a um espao na matriz
for J:=1 to dim2 do
begin
K:=K+1;
matriz[I,J] := vet[K];
write(matriz[I,J]:5);
end;
writeln;
end;
end;
begin// inicio do programa principal
for I:=1 to max do// ler os elementos do vetor
begin
write('Elemento ',I,': ');
readln(vetor[I]);
end;
clrscr;// Limpar a tela
writeln('VETOR:');
for I:=1 to max do // imprime o vetor original
write(vetor[I]:4);
writeln;
CO_MATRIZ(vetor); //Chamada ao processo para construir a
matriz
readln;
end.
2 (ordem.pas) Faa um programa que leia um vetor de 20 elementos.
A seguir o programa deve ordenar os dados do vetor de maneira
crescente e apresent-los. Ateno: os elementos dentro do vetor devem
ser ordenados. Dica: pesquise uma tcnica de ordenao de dados em
vetores.
Exemplo:
Vetor lido
3423143543257654759251531510008796
Vetor ordenado
0123568152531323443475457596579100
{Carolina Correia,Gabriel Nascimento,Joo Carlos de Jesus,Jos
Carlos Costa,Wesley Santos}
Program Ordenar_10_valores;
uses crt;
Var num:array[1..20] of integer; //vetor com capacidade para 20
elementos
x,y,imenor,troca:integer;
Begin
clrscr;
//Obter Nmeros
writeln('Introduza os nmeros');
for x:=1 to 20 do
Begin
writeln('Nmero ',x);
readln(num[x]);
End;
//Ordenar Array
for x:=1 to 19 do
Begin
imenor:=x;
for y:=x+1 to 20 do { Ciclo para comparar o valor no ndice x com
os restantes nmeros dos ndices superiores} Begin
if num[y]
