洛谷p3955 图书管理员（NOIP2017 t2）

蒟蒻的最后一篇pas题解。。。目前转c++ ing

回顾了一下，发现c++的string真的好繁啊（主要我这个蒟蒻太菜不会用）

还是pas的string操作简洁

做法

我这种蒟蒻不像别的dalao，懒得搞长度就直接扔了。。

先把图书编码排个序，数据范围小就直接暴力选排

接着判读书编码的后length(读者编码)长度的字符串是否与读者编码相等

如果相等就输出，并且把k赋值为1，不相等继续搞

最后判一下如果k=0就输出-1

注意：

1.每次做完k变成0；

2.copy(s,x,y)是指在s中从x位开始截取y位，不是从x截到y；

 var n,m,i,j,k,l:longint;
     a:array[..] of string;
     b:array[..] of string;
     c,d:char;
     s:string;
 begin
   readln(n,m);
   for i:= to n do readln(a[i]);
   for i:= to m do
   begin
     readln(s);
     b[i]:=copy(s,,length(s));
   end;
   for i:= to n- do
     for j:=i+ to n do
   if (length(a[i])>length(a[j]))or((a[i]>a[j])and(length(a[i])=length(a[j]))) then
     begin
       s:=a[i];
       a[i]:=a[j];
       a[j]:=s;
     end;
   for i:= to m do
   begin
     k:=;
     for j:= to n do
     if k= then
     begin
       if length(a[j])>=length(b[i]) then
       begin
         if copy(a[j],length(a[j])-length(b[i])+,length(b[i]))=b[i] then
         begin
           writeln(a[j]);
           k:=;
         end;
       end;
     end;
     if k= then writeln(-);
   end;
 end.

请dalao们轻喷

毕竟我还是个蒟蒻

要是有什么优化也请在评论里指出