洛谷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[1..1000] of string;
    b:array[1..1000] of string;
    c,d:char;
    s:string;
begin
  readln(n,m);
  for i:=1 to n do readln(a[i]);
  for i:=1 to m do
  begin
    readln(s);
    b[i]:=copy(s,3,length(s));
  end;
  for i:=1 to n-1 do
    for j:=i+1 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:=1 to m do
  begin
    k:=0;
    for j:=1 to n do
    if k=0 then
    begin
      if length(a[j])>=length(b[i]) then
      begin
        if copy(a[j],length(a[j])-length(b[i])+1,length(b[i]))=b[i] then
        begin
          writeln(a[j]);
          k:=1;
        end;
      end;
    end;
    if k=0 then writeln(-1);
  end;
end.

请dalao们轻喷

毕竟我还是个蒟蒻

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