记录编号 13095 评测结果 AAAAAAAAAA
题目名称 背诵单词 最终得分 100
用户昵称 GravatarHamster 是否通过 通过
代码语言 Pascal 运行时间 0.012 s
提交时间 2009-09-27 14:05:43 内存使用 0.14 MiB
显示代码纯文本
program letter;
var
  i,j:integer;
  a:array[1..100] of string;
  r,rr:string;
  n,x:integer;

procedure panduan;
var
  i,j,l,ll,lll,g:integer;
begin
  l:=length(r);
  ll:=length(rr);
  x:=0;
  g:=0;
  if l>ll then lll:=ll else lll:=l;
  for i:=1 to lll do
  begin
    if ord(r[i])<ord(rr[i]) then break;
    if ord(r[i])>ord(rr[i]) then
    begin
      x:=1;
      break;
    end
    else inc(g);
  end;
  if (g=lll) and (l>ll) then x:=1;
end;

begin
  assign(input,'letter.in');
  reset(input);
  assign(output,'letter.out');
  rewrite(output);

  readln(n);
  for i:=1 to n do
    readln(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      r:=a[i];
      rr:=a[j];
      panduan;
      if x=1 then
      begin
        r:=a[i];
        a[i]:=a[j];
        a[j]:=r;
      end;
    end;
  for i:=1 to n do writeln(a[i]);

  close(input);
  close(output);
end.