Решаем задачи Абрамян на Паскале. Matrix38

Matrix38. Дана целочисленная матрица размера $$M \times N$$. Найти количество ее строк, все элементы которых различны.

Решение:

program Matrix38;
var
  a:array [1..10,1..10] of integer;
  Rez, M, N, i, j:Integer;
  Row : set of byte;

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

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

  Rez:=0;
  for  i:=1 to M do
  begin
   j:=1;
   Row:=[];
   While (not(a[i,j] in Row)) and (j<=N) do
    begin
     Row:=Row+[a[i,j]];
     inc(j);
    end;
   if J=N+1 then inc(Rez);
  end;
  Writeln(Rez);
end.

program Matrix38;

var

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

Rez, M, N, i, j:Integer;

Row : set of byte;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

Rez:=0;

for i:=1 to M do

begin

j:=1;

Row:=[];

While (not(a[i,j] in Row)) and (j<=N) do

begin

Row:=Row+[a[i,j]];

inc(j);

end;

if J=N+1 then inc(Rez);

end;

Writeln(Rez);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 4

program Matrix38;//pabc.net

begin
  var m := 10;
  var n := 10;
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var count := 0;
  
  for var i := 0 to m - 1 do
    if a.Row(i).Distinct.Count = n then count += 1;
  
  Print(count);
end.

program Matrix38;//pabc.net

begin

var m := 10;

var n := 10;

var a := MatrRandom(m, n, 0, 100); a.Println;

var count := 0;

for var i := 0 to m - 1 do

if a.Row(i).Distinct.Count = n then count += 1;

Print(count);

end.

Ответить

Bronislav

02.09.2018 в 11:08

глючит сайт «нипадецки» комменты зависают вчера отправил решение еще нет, может после этого сообщения появится

Ответить

program matrix38;{без применения множеств}
var m,n,x,i,j,q:integer;
a:array [1..10,1..10] of integer;
b:boolean;
begin
read (m,n);
for i:=1 to m do
for j:=1 to n do read (a[i,j]);
for i:=1 to m do 
begin
b:=true;
  for q:=1 to n-1 do
  for j:=1+q to n do if a[i,q]=a[i,j] then b:=false;
if b=true then inc (x);
end;
print (x);
end.

program matrix38;{без применения множеств}

var m,n,x,i,j,q:integer;

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

b:boolean;

begin

read (m,n);

for i:=1 to m do

for j:=1 to n do read (a[i,j]);

for i:=1 to m do

begin

b:=true;

for q:=1 to n-1 do

for j:=1+q to n do if a[i,q]=a[i,j] then b:=false;

if b=true then inc (x);

end;

print (x);

end.

Ответить

вариант2. похоже на то что у админа но алгоритм попроще

var
m,n,i,j,cx:integer;
a:array [1..10,1..10] of integer;
x:set of byte;
b:boolean;
begin
read (m,n); // ввод кол-ва строк и столбцов
  for i:=1 to m do
  for j:=1 to n do read (a[i,j]); // ввод значений матрицы
 
  for i:=1 to m do
  begin
  x:=[];  //на внешнем цикле обнулить множество
  b:=true; // и ключ на тру
  for j:=1 to n do // на внутреннем..
  begin
    if (a[i,j]) in x then  b:=false;// если значение есть в множестве ключ на фалсе :)
    x:=x+[a[i,j]]; // перенос значения строки в множество
  end;
  if b=true then inc (cx); // если ключ остался на тру значт повторов небыло
  end;
  print (cx);// вывод кол-ва строк без повторов
end.

var

m,n,i,j,cx:integer;

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

x:set of byte;

b:boolean;

begin

read (m,n); // ввод кол-ва строк и столбцов

for i:=1 to m do

for j:=1 to n do read (a[i,j]); // ввод значений матрицы

for i:=1 to m do

begin

x:=[]; //на внешнем цикле обнулить множество

b:=true; // и ключ на тру

for j:=1 to n do // на внутреннем..

begin

if (a[i,j]) in x then b:=false;// если значение есть в множестве ключ на фалсе :)

x:=x+[a[i,j]]; // перенос значения строки в множество

end;

if b=true then inc (cx); // если ключ остался на тру значт повторов небыло

end;

print (cx);// вывод кол-ва строк без повторов

end.

Ответить

Решаем задачи Абрамян на Паскале. Matrix38

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ