如何解决如何按Pascal中的第一个字符对字符串排序?
| 我相信这个问题很清楚。 那么,如何按Pascal中的第一个字符对字符串排序? 因为据我所知,pascal没有本机排序功能,所以应该有一种方法可以将字母转换为数字,然后以某种方式对其进行排序。 谢谢您的提前回答;)解决方法
program test;
var
nr:Integer;
mystrings:array [0..100] of string;
i:Integer;
tmp,tmp2,tmp3:String;
begin
WriteLn(\'Please input number of strings\');
ReadLn(nr); //max 100 strings
for i:=0 to nr - 1 do
begin
str(i,tmp3);
Write(\'String[\'+tmp3+\'] = \');ReadLn(mystrings[i]);
end;
// Now we sort the strings
i:=0;
repeat
tmp:=UpperCase(mystrings[i]);
tmp2:=UpperCase(mystrings[i+1]);
if tmp[1]>tmp2[1] then
begin
tmp:=mystrings[i];
mystrings[i]:=mystrings[i+1];
mystrings[i+1]:=tmp;
i:=-1;
end;
Inc(i);
until i=nr -1 ;
//Display strings sorted
for i:=0 to nr - 1 do
begin
WriteLn(mystrings[i]);
end;
Readln;
end.
希望能帮助到你 ;)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。