Tirei um trecho de um exemplo e to usando.
writeln(‘Tecle <ENTER> para encerrar: ’);
readln;
Alias, primeira coisa que eu to criando... quando digito um exemplo da apostila, coloco por conta essa função ai.
Agora estou tentando entender como os nomes se ordenam por ordem alfabética neste exemplo:
Não entendi qual a lógica que cria a ordem alfabética. Sei como fazer só uma lista de nomes, usando o I e o array para a variável NOME, mas não sei como o X e o J atuam para ordenar de forma alfabética.
Mas acho que até a resposta surgir aqui, eu entendi por conta. hehehehe
program LISTA_NOME_ORDENADO; var NOME : array[1..10] of string; I, J: integer; X : string; begin writeln(‘Listagem de nomes’); writeln; { *** Entrada dos Dados *** } for I := 1 to 10 do begin write(‘Digite o ’, I:2, ‘ o. nome: ’); readln(NOME[I]); end; { *** Ordenação dos Nomes *** } for I := 1 to 9 do for J := I +1 to 10 do if (NOME[I] > NOME[J]) then begin X := NOME[I]; NOME[I] := NOME[J]; NOME[J] := X; end; { *** Apresentação dos Nomes *** } writeln; for I := 1 to 10 do writeln(‘Nome: ’ , I:2, ‘ --> ’, NOME[I]); writeln; writeln(‘Tecle <ENTER> para encerrar: ’); readln; end.