如何按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.

希望能帮助到你 ;）