Question

我相信这个问题非常清楚那么，如何通过pascal中的第一个字符对字符串进行排序？因为据我所知，pascal没有本地排序功能，所以应该有一种方法将字母转换成数字，然后对它们进行排序......无论如何只能通过猜测。
在此先感谢您的回答;）

Answer 1

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.

希望它有所帮助;）

如何通过pascal中的第一个char对字符串进行排序？

1 个答案: