Ordenar registro por ordem alfabetica em pascal

[candango mineiro]

Bom dia,

 

Estou precisando fazer um trabalho sobre uma lista telefônica, nessa lista necessito fazer um procedure para ordenar de em ordem alfabética por nome e sobrenome. Segundo o enunciado abaixo:

"Implemente o procedimento para inserir um item na Lista. Este procedimento deverá inserir um item na Lista de forma ordenada pelo nome e depois sobrenome da pessoa. Protótipo: procedure Insere(var Lista:TipoLista; x:TipoItem);"

Se alguém puder me auxiliar com esse pedaço de código, porque já pesquisei e não achei nada.

 

Obrigado

[Simon Viegas]

Estamos aqui para te ajudar...

 

Os primeiros passos serão os seus... creio que não precisa de uma base, dá para fazer do zero mesmo...

 

 

Crie você uma base e vai tirando dúvidas aqui no Fórum.

 

No aguardo.

[candango mineiro]

Então eu criei uma base, mas algumas opções como inserir em ordem alfabética e a busca não consegui implementar, se puderem estar me auxiliando.

 

program ListaTelefonica;

uses crt;

const  inicioLista = 1;
       maxTam = 1000;

type TipoApontador = integer;

     TipoTelefone = record
         cod_area: integer;
         num_tel: string;
     end;

     TipoItem = record
         nome: string;
         sobrenome: string;
         telefone: TipoTelefone;
     end;

     TipoLista = record
          item: array [1..MAXTAM] of TipoItem;
          primeiro: TipoApontador;
          ultimo: TipoApontador;
     end;

procedure FLVazia (var Lista: tipoLista);
begin
     Lista.primeiro:= inicioLista;
     Lista.ultimo:= Lista.primeiro;
end;

function Vazia (var Lista: tipoLista): boolean;
begin
     vazia := Lista.primeiro = Lista.ultimo;
end;

procedure Insere(var Lista:TipoLista; x:TipoItem);
begin
     if (lista.ultimo > maxTam) then
     begin
        writeln ('A lista esta cheia!');
        writeln;
        writeln ('Não é possivel inserir mais cadastros!');
     end
     else
     begin


end;

procedure Retira(p:TipoApontador; var Lista:TipoLista; var Item:TipoItem);
var aux : integer;
begin
     if (Vazia(lista))or (p>=lista.Ultimo) then
        writeln ('Erro: Posicao nao existe!')
     else
     begin
          item:=lista.Item[p];
          lista.ultimo:= lista.Ultimo - 1;
          writeln;
          writeln ('Chave removida com sucesso! Tecle ENTER para continuar...');
          for aux := p to lista.Ultimo-1 do
              lista.Item[aux]:= lista.Item [aux + 1];
     end;
end;

procedure Imprime(var Lista:TipoLista);
var aux: integer;
begin
     for aux:= lista.Primeiro to lista.Ultimo - 1 do
     begin
         writeln ('Usuario: ', aux);
         writeln ('Nome: ', lista.Item[aux].nome);
         writeln ('Sobrenome: ', lista.Item[aux].sobrenome);
         writeln ('Codigo de area: ', lista.Item[aux].telefone.cod_area);
         writeln ('Numero de Telefone: ',lista.Item[aux].telefone.num_tel);
     end;
end;

function Busca(nome:string; sobrenome:string; Lista:TipoLista):TipoApontador;
i: integer;
begin
    i:=1;
    while (lista.item[i].nome <> nome) and (i < lista.Ultimo) do
    begin
          i:=i +1;
           begin
               Busca:=i;
           end
       end;
        end
    end
end;

{alterar telefone}

procedure sair;
begin
    clrscr;
    writeln ('Obrigado pela preferencia!Volte Sempre!');
end;

procedure Menu( );
begin
     writeln('|---------------------|');
     writeln('|--------MENU---------|');
     writeln('| 1- Inserir          |');
     writeln('| 2- Retirar          |');
     writeln('| 3- Imprimir         |');
     writeln('| 4- Buscar           |');
     writeln('| 5- Alterar Telefone |');
     writeln('| 0- Sair             |');
     writeln('|---------------------|');
     write(' Digite a opcao desejada: ');
end;

var
   opcao:integer;
   p: tipoApontador;
   lista: TipoLista;
   item: TipoItem;
   telefone: TipoTelefone;
   nome,sobrenome: string;

Begin
   opcao:= -1;
   FLVazia(lista);
   while (opcao <>0) do
   begin
        clrscr;
        menu( );
        readln (opcao);

        if (opcao = 1) then
        begin
             clrscr;
             writeln ('Digite os dados do usuario a ser inserido na lisa telefonica: ');
             writeln ('Nome: ');
             readln (item.nome);
             writeln ('Sobrenome: ');
             readln (item.sobrenome);
             writeln ('Codigo de area: ');
             readln  (item.telefone.cod_area);
             writeln ('Numero Telefone: ');
             readln (item.telefone.num_tel);
             Insere(lista, item);
             writeln;
             writeln ('Usuario inserido com sucesso! Tecle ENTER para continuar...');
             readln;
        end
        else
        if (opcao = 2) then
        begin
             clrscr;
             writeln ('Digite a posicao do usuario a ser removido: ');
             readln (p);
             Retira (p,lista, item);
             readln;
        end
        else
        if (opcao = 3) then
        begin
             clrscr;
             Imprime (lista);
             writeln;
             writeln ('Tecle ENTER para continuar...');
             readln;
        end
        else
        if (opcao = 4) then
        begin
             clrscr;
             writeln ('Digite os dados do usuario a ser buscado na lista');
             write ('Nome: ');
             readln (nome);
             write ('Sobrenome: ');
             readln (sobrenome);
             p:= Buscar(nome, sobrenome, lista);
             if p <> (lista.Ultimo) then
                writeln ('A posicao do usuario buscado na lista eh: ',p)
             else
                 writeln ('ERRO...O usuario buscado nao se encontra cadastrado na lista!');
             writeln;
             writeln ('Tecle ENTER para continuar...');
             readln;
        end
        else
        if (opcao = 5) then
        begin
           clrscr;
           writeln ('Digite os dados do usuario a ser alterado na lista');
           write ('Nome: ');
           readln (nome);
           write ('Sobrenome: ');
           readln (sobrenome);

        end
        else}
        if (opcao = 0) then
        begin
            Sair;
        end
        else
        if (opcao <> 0)then
        begin
             clrscr;
             writeln ('Opcao inexistente. Tecle ENTER para continuar...');
             readln;
        end;
    end;
end.