2017NOIp 普及组第二题 图书管理员

题目描述

图书馆中每本书都有一个图书编码，可以用于快速检索图书，这个图书编码是一个 正整数。 每位借书的读者手中有一个需求码，这个需求码也是一个正整数。如果一本书的图 书编码恰好以读者的需求码结尾，那么这本书就是这位读者所需要的。 小 D 刚刚当上图书馆的管理员，她知道图书馆里所有书的图书编码，她请你帮她写 一个程序，对于每一位读者，求出他所需要的书中图书编码最小的那本书，如果没有他 需要的书，请输出-1。

这题个人用的是排序和字符串的做法
先排序
在过程中拉两个数进去比较尾数
若相等就输出然后跳到下一个数
若没有找到别忘了输出-1

var
 n,m,i,j:longint;
 a:array[0..1001] of longint;
 d:array[0..1001,1..2] of longint;

procedure qsort(l,r:longint);
 var
 i,j,key,t:longint;
begin
 i:=l; j:=r; key:=a[(l+r) div 2];
 repeat
  while a[i]do inc(i);
  while a[j]>key do dec(j);
  if i<=j then
   begin
    t:=a[i];
    a[i]:=a[j];
    a[j]:=t;
    inc(i);
    dec(j);
   end;
 until i>j;
 if lthen qsort(l,j);
 if ithen qsort(i,r);
end;


procedure find(ans,w:longint);
 var
  i,tot,len,j:longint;
  s,s2:string;
begin
 for i:=1 to n do
  begin
   str(a[i],s);
   len:=length(s);
   if len>=w then
    begin
     for j:=1 to len-w do
      delete(s,1,1);
     str(ans,s2);
     if s2=s then begin
                    writeln(a[i]);
                    exit;
                   end;
    end;
  end;
  writeln('-1');
end;

begin
 readln(n,m);
 for i:=1 to n do
  readln(a[i]);
 qsort(1,n);
 for i:=1 to m do
 begin
  readln(d[i,1],d[i,2]);
  find(d[i,2],d[i,1]);
 end;
end.

输入输出样例

输入样例#1： 
5 5 
2123 
1123 
23 
24 
24 
2 23 
3 123 
3 124 
2 12 
2 12
输出样例#1： 
23 
1123 
-1 
-1 
-1