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]

                       
      //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.