Agenda em Pascal

[dtomadon]

galera preciso fazer uma agenda em pascal, pra nota peso 2 na facu, já tive toda a teoria  ( loop, classificação, pesquisa, pesquisa binária, vetor , matriz bidimensional, e outros , preciso de algo pra me basear para comparar com o que fiz até agora, por que essa nota é essencial o professor é muito experiente não quero o código só uma luz mesmo, quem puder me ajudar agradeço, só lembrando não quero contol c + control v , uma que o próprio professor disse que sabe nosso limite, quero para aprimorar meu aprendizado. Agradeço desde já.

[dtomadon]

Galera acho que pedi da forma errada a ajuda nessa sessão.

Por falta de tempo devido a faculdade não tive tempo de postar o que já tinha feito

para poder receber ajuda, mas acho também que pascal não é comum hoje em dia por isso não obtive ajuda.

Vou disponibilizar alguns trechos do código final , e se alguém precisar de ajuda me mande uma mp

e conversaremos. mas agradeço a todos que leram esse post.

E mais deu um trabalho mostro acertar a agenda, agradeço muito aos amigos da faculdade Renato e Silas.

vai lá.

Código Selecionar Expandir

                       
     //Procedimento de Ordenação dos contatos em ordem alfabética
  Procedure ordenar ;
     
begin
         for j := 1 to cont1-2 do  
           for  j1 := j+1 to cont1-1 do
         begin
              if (dados[j].nome > dados[j1].nome) then
              begin
                 // NOME                                                 // Utilizando o bubble sort, esta rotina classifica os contatos
                 xs := dados[j].nome;                                    // em ordem alfabética. Criamos uma Procedure, onde chamaremos  
                 dados[j].nome := dados[j1].nome;                        // esta rotina, no final da rotina de inclusão e alteração dos contatos.
                 dados[j1].nome := xs;
                 //CELULAR
                 xs := dados[j].telefones.cel;
                 dados[j].telefones.cel := dados[j1].telefones.cel;
                 dados[j1].telefones.cel := xs;
                 //RESIDENCIA
                 xs := dados[j].telefones.res;
                 dados[j].telefones.res := dados[j1].telefones.res;
                 dados[j1].telefones.res := xs;
                 //TRABALHO
                 xs := dados[j].telefones.trab;
                 dados[j].telefones.trab := dados[j1].telefones.trab;
                 dados[j1].telefones.trab := xs;
                 //ENDERECO
                 xs := dados[j].endereco;
                 dados[j].endereco := dados[j1].endereco;
                 dados[j1].endereco := xs;
                 //E-MAIL
                 xs := dados[j].e_mail;
                 dados[j].e_mail := dados[j1].e_mail;
                 dados[j1].e_mail := xs;
              end;
         end;
         
       end;


Esse pedaço do código faz a ordenação dos nomes em ordem alfabética.