fork download
copy 
  1. program antivirus;
  2.  
  3. var
  4.     M, N1, N2, N3, N4, T, p1, p2, p3, p4, test, i : LongInt;
  5.     F1, F2, F3, F4                             : AnsiString;
  6.     corrispondenza : boolean;
  7.  
  8. begin
  9. {
  10.     decommenta le due righe seguenti se vuoi leggere/scrivere da file
  11.     assign(input,  'input.txt');  reset(input);
  12.     assign(output, 'output.txt'); rewrite(output);
  13. }
  14.  
  15.     ReadLn(T);
  16.     for test:=1 to T do begin
  17.         ReadLn();
  18.         ReadLn(N1, N2, N3, N4);
  19.  
  20.         ReadLn(M);
  21.  
  22.         ReadLn(F1);
  23.  
  24.         ReadLn(F2);
  25.  
  26.         ReadLn(F3);
  27.  
  28.         ReadLn(F4);
  29.         writeln(F1[5], F2[1],F3[2],f4[2]); end; end.
  30.  
  31.         for p1:= 1 to  N1-M +1 do begin
  32.               for p2:= 1 to N2-M+1  do begin
  33.                    for p3:=1  to N3-M+1  do  begin
  34.                        for p4:= 1 to N4-M +1 do 
  35.                                     begin
  36.  
  37.                                         corrispondenza:=true;
  38.                                         for i:= 0 to M do 
  39.                                                if (F1[p1 + i] <> F2[p2 + i]) or ( F2[p2 + i] <> F3[p3 + i]) or (F3[p3 + i] <> F4[p4 + i]) then begin corrispondenza:= false; break; end; 
  40.                                          writeln (p1,' ',p2,' ',p3,' ',p4,' ',corrispondenza);
  41.                                         if corrispondenza then  
  42.                                               begin
  43.                                                  Write('Case #', test, ': ');
  44.                                                  WriteLn(p1-1, ' ', p2-1, ' ', p3-1, ' ', p4-1);
  45.                                                  exit;
  46.                                               end;
  47.                                     end; end; end; end;
  48.    end;
  49. end.
  50.  
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
1

8 12 10 7
4
ananasso
associazione
tassonomia
massone
stdout
copy 
aaaa
https://ideone.com/QCXPSi
language:
Pascal (fpc 3.0.4)
created:
2 days 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!