Advertisement
Guest User

Untitled

a guest
Oct 25th, 2014
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. const
  2.   n=3;
  3.   m=4;
  4.  
  5. type
  6.   mas=array[1..n,1..m] of integer;
  7.  
  8. var
  9.   z,v,g:mas;
  10.   f2:text;
  11.  
  12. procedure vv(var a,b,c:mas);
  13. var i,j:integer;
  14. begin
  15.   assign(f2,'laba6.txt');
  16.   reset(f2);
  17.   for i:=1 to n do
  18.   begin
  19.     for j:=1 to m do
  20.       readln(f2,a[i,j]);
  21.     readln(f2);
  22.   end;
  23.   readln(f2);
  24.   for i:=1 to n do
  25.   begin
  26.     for j:=1 to m do
  27.       readln(f2,b[i,j]);
  28.     readln(f2);
  29.   end;
  30.   readln(f2);
  31.   for i:=1 to n do
  32.   begin
  33.     for j:=1 to m do
  34.       readln(f2,c[i,j]);
  35.     readln(f2);
  36.   end;
  37. end;
  38.  
  39. function od(x:mas):boolean;
  40. var
  41.   i,j,ii,jj:integer;
  42.   f:boolean;
  43. begin
  44.   f:=false;
  45.   ii:=1;
  46.   while (ii<=n)and(not f) do
  47.   begin
  48.     jj:=1;
  49.     while (jj<=m)and(not f) do
  50.     begin
  51.       i:=1;
  52.       while (i<=n) do
  53.       begin
  54.         j:=1;
  55.         while (j<=m) do
  56.         begin
  57.           if (x[ii,jj]=x[i,j])and((ii<>i)and(jj<>1)) then f:=true;
  58.           inc(j)
  59.         end;
  60.         inc(i)
  61.       end;
  62.       inc(jj)
  63.     end;
  64.     inc(ii)
  65.   end;
  66.   od:=f
  67. end;
  68.  
  69. begin
  70.   vv(z,v,g);
  71.   append(f2);
  72.   writeln(f2,od(z));
  73.  
  74.   writeln(f2,od(v));
  75.  
  76.   writeln(f2,od(g));
  77.   close(f2);
  78. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement