fork download
copy 
  1. var
  2. al:char;
  3. ab,bb,ac:string;
  4. ar:array[1..100,1..100] of char;
  5. s,r,z,i,j,k:integer;
  6. aaa:boolean;
  7. procedure f(x,y:integer;ab:string);
  8. var
  9. i:longint;
  10. begin
  11. if r-y+1>=k then
  12.    begin
  13.      ac:=ab;
  14.      for i:=y+1 to y+k-1 do
  15.         begin
  16.          ac:=ac+ar[x,i];
  17.         end;
  18.      if ac=bb then aaa:=true;
  19.    end;
  20.  
  21. if s-x+1>=k then
  22.    begin
  23.      ac:=ab;
  24.      for i:=x+1 to x+k-1 do
  25.         begin
  26.          ac:=ac+ar[i,y];
  27.         end;
  28.      if bb=ac then aaa:=true;
  29.    end;
  30.  
  31. if y>=k then
  32.    begin
  33.      ac:=ab;
  34.      for i:=y-1 downto y-k+1 do
  35.        begin
  36.         ac:=ac+ar[x,i]
  37.        end;
  38.      if bb=ac then aaa:=true;
  39.    end;
  40.  
  41. if x>=k then
  42.    begin
  43.       ac:=ab;
  44.       for i:=x-1 downto x-k+1 do
  45.          begin
  46.            ac:=ac+ar[i,y];
  47.          end;
  48.       if bb=ac then aaa:=true;
  49.    end;
  50. if (r-y+1>=k) and (s-x+1>=k) then
  51.   begin
  52.     ac:=bb;
  53.     for i:=1 to k-1 do
  54.        begin
  55.          ac:=ac+ar[x+i,y+i];
  56.        end; 
  57.     if ac=bb then aaa:=true;
  58.   end;
  59.  
  60. if (y>=k) and (x>=k) then
  61.   begin
  62.    ac:=bb;
  63.    for i:=1 to k-1 do
  64.     begin
  65.       ac:=ac+ar[x-i,y-i];
  66.     end;
  67.    if ac=bb then aaa:=true;
  68.   end;
  69. if (s-x+1>=k) and (y>=k) then
  70.  begin                 
  71.    ac:=bb;
  72.     for i:=1 to k-1 do
  73.      begin
  74.       ac:=ac+ar[x+i,y-i];
  75.      end;
  76.     if ac=bb then aaa:=true;
  77.  end;
  78.  
  79. if (x>=k) and (r-y+1>=k) then
  80.    begin    
  81.     ac:=bb;
  82.      for i:=1 to k-1 do
  83.        begin
  84.         ac:=ac+ar[x-i,y+1];
  85.        end;
  86.      if ac=bb then aaa:=true;
  87.    end;
  88.  
  89. end;
  90. begin
  91. readln(s,r);
  92. for i:=1 to s do
  93.   begin
  94.     for j:=1 to r do
  95.        begin
  96.          read(ar[i,j]);
  97.          if j<>r then read(al);
  98.        end;
  99.     readln;
  100.   end;
  101. readln(z);
  102. for i:=1 to z do
  103.    begin
  104.       readln(bb);
  105.       k:=length(bb);
  106.       ab:=bb[1];
  107.       aaa:=false;
  108.       for j:=1 to s do
  109.         begin
  110.           for k:=1 to r do
  111.              begin
  112.                if ab=ar[i,j] then
  113.                  begin
  114.                   f(i,j,ab);
  115.                  end;
  116.              end;
  117.         end;
  118.        if aaa=true then
  119.             writeln(bb,' ','T');
  120.    end;
  121.  readln;
  122. end.
Success #stdin #stdout 0.01s 264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/6Gncp
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!