Комментарии: Решаем задачи Абрамян на Паскале. Matrix36

Автор: Anton

Anton — Tue, 15 Aug 2017 08:24:14 +0000

В ответ на ivan. И да и нет, смотря как посмотреть ) по элементам множества нельзя пробежать и посмотреть каждое ) зато можно набивать множество элементами и смотреть есть конкретный элемент в множестве или нет )

Автор: ivan

ivan — Tue, 15 Aug 2017 07:52:20 +0000

В ответ на Anton. то есть как я понял это что-то типа массива??

Автор: Anton

Anton — Mon, 14 Aug 2017 09:55:37 +0000

В ответ на ivan. Set это множества. В паскале это очень крутая штука.. в теории элементы не имеют порядка и просто как бы есть ) но можно посмотреть наличие элементов в множестве и добавить или удалять элементы из множества

Автор: ivan

ivan — Mon, 14 Aug 2017 09:45:58 +0000

В ответ на Anton. а что за тип вы использовали в коде set of byte??в первый раз такое вижу

Автор: ivan

ivan — Mon, 14 Aug 2017 09:44:19 +0000

program abc;
type mas=array[1..15] of integer;
function search(n:integer;x,y:mas):integer;
var i1,j1,tmp1,tmp2:integer;t1:boolean;
  begin
   i1:=0;
   j1:=0;
   tmp1:=0;
   tmp2:=0;
   search:=0;
   t1:=true;
   for i1:=1 to n do
   begin
   tmp1:=0;
   tmp2:=0;
    for j1:=1 to n do
    begin
    if (x[i1]<>y[j1])  then inc(tmp1);
    if (y[i1]<>x[j1]) then inc(tmp2);
    end;
         
      
    if (tmp1=n) or (tmp2=n) then t1:=false;
   end; 
   
  
   if t1=true then search:=1 else search:=0;
  end;

var
  n,i,tmp,m,j: integer;t,f:boolean;
  a:array[1..50,1..50] of integer;b,c:mas;
begin
  read(m,n);writeln;
  for j:=1 to m do 
  begin
    for i:=1 to n do
    read(a[i,j]);
    writeln;
  end;
  for i:=1 to n do b[i]:=a[i,1];
  
  for j:=2 to m do
   begin
    for i:=1 to n do
     c[i]:=a[i,j];
    tmp:=tmp+search(n,b,c);
   end;
   write(tmp);
                
                    
                   
                
                    
                  

 
end.

program abc;

type mas=array[1..15] of integer;

function search(n:integer;x,y:mas):integer;

var i1,j1,tmp1,tmp2:integer;t1:boolean;

begin

i1:=0;

j1:=0;

tmp1:=0;

tmp2:=0;

search:=0;

t1:=true;

for i1:=1 to n do

begin

tmp1:=0;

tmp2:=0;

for j1:=1 to n do

begin

if (x[i1]<>y[j1]) then inc(tmp1);

if (y[i1]<>x[j1]) then inc(tmp2);

end;

if (tmp1=n) or (tmp2=n) then t1:=false;

end;

if t1=true then search:=1 else search:=0;

end;

var

n,i,tmp,m,j: integer;t,f:boolean;

a:array[1..50,1..50] of integer;b,c:mas;

begin

read(m,n);writeln;

for j:=1 to m do

begin

for i:=1 to n do

read(a[i,j]);

writeln;

end;

for i:=1 to n do b[i]:=a[i,1];

for j:=2 to m do

begin

for i:=1 to n do

c[i]:=a[i,j];

tmp:=tmp+search(n,b,c);

end;

write(tmp);

end.

Автор: Anton

Anton — Fri, 17 Feb 2017 12:24:12 +0000

В ответ на Александр Ж.. Но получается строка "1 1 1 1 2" не похожа на "1 2 2 2 2"?

Автор: Александр Ж.

Александр Ж. — Fri, 17 Feb 2017 11:20:33 +0000

Рабочий код данной задачи без мало известного множественного типа данных. Строки(и первую и текущую) записываем в одномерные массивы, сортируем и сравниваем поэлементно с массивом, в котором находится отсортированная первая строка. При совпадении всех элементов — выводим номер строки…

program Matrix36;
var
  a:array [1..10,1..10] of integer;
  b, c:array [1..10] of integer;
  M, N, i, j, x, y: integer;
  w, k, buf: integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to N do
  begin
   for j:=1 to M do
    read(a[i,j]);
  end;
 writeln;

 for  i:=1 to N do
  begin
   for j:=1 to M do
    begin
     Write(' ',a[i,j], '  ');
    end;
   writeln;
  end;
 writeln;

 for i:=2 to N do
  begin
   k:=0;
    for j:=1 to M do 
     begin
      b[j]:=a[1,j];
      c[j]:=a[i,j];
     end;

    for x:=1 to M-1 do
     for y:=x+1 to M do
      if b[x]>b[y] then
       begin
        buf:=b[x];
        b[x]:=b[y];
        b[y]:=buf;
       end;
     for x:=1 to M-1 do
      for y:=x+1 to M do
       if c[x]>c[y] then
        begin
         buf:=c[x];
         c[x]:=c[y];
         c[y]:=buf;
        end;

      for x:=1 to M do
       if b[x]=c[x] then k:=k+1;
       if k=M then  writeln('№ похожей строки:  ',i) else w:=w+1;
     end;
    if w=N-1 then writeln(' нет похожих строк');
end.

program Matrix36;

var

a:array [1..10,1..10] of integer;

b, c:array [1..10] of integer;

M, N, i, j, x, y: integer;

w, k, buf: integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to N do

begin

for j:=1 to M do

read(a[i,j]);

end;

writeln;

for i:=1 to N do

begin

for j:=1 to M do

begin

Write(' ',a[i,j], ' ');

end;

writeln;

end;

writeln;

for i:=2 to N do

begin

k:=0;

for j:=1 to M do

begin

b[j]:=a[1,j];

c[j]:=a[i,j];

end;

for x:=1 to M-1 do

for y:=x+1 to M do

if b[x]>b[y] then

begin

buf:=b[x];

b[x]:=b[y];

b[y]:=buf;

end;

for x:=1 to M-1 do

for y:=x+1 to M do

if c[x]>c[y] then

begin

buf:=c[x];

c[x]:=c[y];

c[y]:=buf;

end;

for x:=1 to M do

if b[x]=c[x] then k:=k+1;

if k=M then writeln('№ похожей строки: ',i) else w:=w+1;

end;

if w=N-1 then writeln(' нет похожих строк');

end.