[Resolvido] Bubble Sorte em Pascal

[Marcelo de Andrade 2]

Boa noite pessoal, estou tentando organizar em ordem alfabetica uma certa quantidade de registros para um programa feito em pascal porém estou com um problema que não sei ao certo onde estou errando.

 

O código :

z:=i+1;
          FOR i := 1 TO 9 DO
          BEGIN
               IF (Registro[i].nome <> '') THEN
               BEGIN
					
						IF ( Registro[i].nome > Registro[z].nome ) THEN
						BEGIN
						aux					:= Registro[i].nome;
						Registro[i].nome	:= Registro[z].nome;
						Registro[z].nome	:= aux;

						END;
						
               END;
           END;

Para que após a ordenação, ele faça a exibição dos registros :

 

						
							writeln('Nome: ', Registro[i].nome);
							writeln('Telefone: ',Registro[i].telefone);
							writeln('email: ',Registro[i].email);
							writeln('---------------------------------');

							

O problema é que simplesmente não exibe os resultados, acontece o laço mas os resultados aparecem em branco. O mesmo algoritmo funciona com vetores comuns como já testei. Alguém já deve ter passado por isso, pois procurei sobre 'agenda telefonica em pascal' e havia muitos resultados porem sem respostas.

 

Abraço.

[quitZAUMMM 18]

Como é a base de testes?

Você faz um loop para exibir os registros após a ordenação?

 

[]s

[Marcelo de Andrade 2]

Ops, postei o código de forma incorreta... Mas é isso mesmo quitZAUMMM, eu faço um laço for de 1 a 10 que é o máximo de registros da agenda, agora eu consegui fazer com que ele exibisse o resultado porém ele só exibe um dos resultados, por exemplo :

 

- Adiciono o contato: Marcelo

- Adiciono o contato: quitZAUMMM

- Adiciono o contato: Ana

 

se eu fizer um laço e exibir os registros de forma como foram inseridos, tudo bem, ele exibe. Mas quando tento utilizar o algoritmo para ordenar em ordem alfabetica e exibir os resultados, ele somente ordena e exibe o primeiro registro ordenado que nesse caso seria o contato : Ana.

 

Assim que chegar em casa eu posto o código com mais detalhes, espero ter sido claro na explicação.

 

abraço.

[Marcelo de Andrade 2]

Problema resolvido, irei disponibilizar o código assim que terminar o projeto.

[Marcelo de Andrade 2]

Problema resolvido, irei disponibilizar o código assim que terminar o projeto.

 

Como tinha dito, aqui vai o topico : http://forum.imasters.com.br/index.php?/topic/416038-script-agenda-telefonica-em-pascal/