Pascal 字符串排序

计算机中字符串比较的基本方法是从第一位开始按位比较两个字符串的第一位，第二位，第三位……的ASCII码。若在比较过程中有其中一个字符串的某个字符大于另一个，则判断该字符串大。如果一直比较到较短串的末尾一直一样，那么判断长串大于短串。例如在比较abc和abd时，首先比较两个字符串的第一位，即a和a，发现相同；再比较第二位b和b，又发现相同，再比较第三位c和d，此时c的ASCII码小于d，故判断第一个串小。

这里提供了一个使用快速排序算法对字符串进行排序的代码示例。代码中定义了一个数组s来存储字符串，变量n存储字符串数量，变量i和j用于快排过程中的指针，x和y用于交换字符串。快排的过程是从数组中间的一个元素x开始，将数组分为两部分，一部分是小于x的部分，一部分是大于x的部分，然后递归对这两部分进行排序。

具体的代码如下：

<var s:array[1..1000] of string; n,i:longint; procedure sort(l,r:longint); var i,j:longint; x,y:string; begin i:=l; j:=r; x:=s[(l+r) div 2]; repeat while s[i]<x do inc(i); while x<s[j] do dec(j); if not(i>j) then begin y:=s[i]; s[i]:=s[j]; s[j]:=y; inc(i); dec(j); end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; begin writeln; writeln('Please input the number of the names:'); readln(n); writeln('Please input the names:'); for i:=1 to n do readln(s[i]); sort(1,n); writeln; for i:=1 to n do writeln(s[i]); readln; end.

通过上述代码，可以实现对输入的字符串数组进行排序，从而得到按字典序排序的字符串列表。

您可能感兴趣问答

Collapsible

热门标签

热点问答