Diccionario de nombres ordenados programación pascal

I, n: Longint;

a: Array [0..1000 de cadena]

Proceso de clasificación (I, j: longint )

Definir variables

l, r: longint;

m: cadena

Inicio

l; := I;

r:= j;

m:= a[(I j)div 2];

Repetir

Y a[I] lt;m do company(一);

Y a[j]>m do dec(j);

Si i lt=entonces j

Inicio

a[0]：= a[I];

a[I]：= a[j]; [j]:= a[0];

inc(1);

La décima sesión;

Fin;

hasta i gtj;

si soy ltr entonces ordeno(I, r);

si soy ltj entonces ordeno(l, j);

Fin ;

Inicio

readln(n);

Para i:=1 to n hacer

readln(a[I]) ;

sort(1,n);

Para i:=1 a n hacer

writeln(a[I]);

Fin .

Si no hay un número total de nombres (n) en el título,

puedes reemplazar la parte leída con

en lugar de eof

comenzar

inc(1);

readln(a[I]);

Fin

Eof; es el final del archivo, el último Es fácil de usar la entrada y salida del archivo:

Inicio

Asignación (entrada, 'nombre de archivo. restablecer'); ;

Asignar (salida, 'nombre de archivo.out'); reescribir(salida);

.

.

Cerrar (entrada);

Cerrar (salida);

Fin.

Utilicé clasificación rápida.

Preste atención al rango de la matriz al enviar la pregunta.

Una cosa más, el rango de la matriz en el programa también se puede cambiar de 1 a 1000 y luego cambiar un [0] a otra variable libre; sin embargo, abra varios bits en la matriz para evitar errores 201; Es un buen hábito.