Autor Tópico: Agenda em Pascal  (Lida 2689 vezes)

Offline dtomadon

  • Usuário Ubuntu
  • *
  • Mensagens: 591
  • Fatec SCS,Segurança da Informação, BackTrack5
    • Ver perfil
    • Computação Forense e suas Leis
Agenda em Pascal
« Online: 23 de Maio de 2010, 15:50 »
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á.
« Última modificação: 28 de Maio de 2010, 16:49 por dtomadon »
BacKTrack5 64 bits com Vídeo SIS

kernel omnislash 1.4.4 64 bits , Que venha o 5º Semestre !!!

Offline dtomadon

  • Usuário Ubuntu
  • *
  • Mensagens: 591
  • Fatec SCS,Segurança da Informação, BackTrack5
    • Ver perfil
    • Computação Forense e suas Leis
Re: Agenda em Pascal ( Resolvido )
« Resposta #1 Online: 12 de Junho de 2010, 12:40 »
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.
« Última modificação: 12 de Junho de 2010, 12:48 por dtomadon »
BacKTrack5 64 bits com Vídeo SIS

kernel omnislash 1.4.4 64 bits , Que venha o 5º Semestre !!!