Вопрос по матрицам

[Jigar]

Как ввести матрицу в турбо паскале, чтобы все элементы матрицы были различными??

[_Dmitry]

Пример ввода чисел в матрицу размером [5x5]

var
  a: array[1..5,1..5] of integer;
  i,j: integer;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      begin
        write('a[',i,',',j,']='); readln(a[i,j]);
      end;
end.

А лучше почитать какую-нибудь книжку...

[Jigar]

нет, чтобы все элементы различные были

[Jigar]

чтобы нельзя было ввести элемент уже встречающийся в матрице.

[_Dmitry]

Вот что придумалось.
Матрицу можно заполнить целыми числами отличными от нуля.

const
  n = 5;
var
  a: array[1..n,1..n] of integer;
  i,j,i1,j1: integer;
  flag: boolean;
begin
  flag:=false;
  for i:=1 to n do
    for j:=1 to n do
      begin
        if flag then begin
          if j > 1 then j:=j-1
          else begin
            i:=i-1; j:=n;
          end;
          flag:=false;
        end;
        write('a[',i,',',j,']='); readln(a[i,j]);
        for i1:=1 to n do
          for j1:=1 to n do
            if (a[i1,j1] = a[i,j]) and (not ((i1 = i) and (j1 = j))) then
              begin
                flag:=true; break;
              end;
      end;
end.

[eoln]

Можно короче

type
  xxx = set of byte;
var
  a: array[1..5, 1..5] of integer;
  i, j, x: byte;
  stop: xxx;
begin   
  for i:=1 to 5 do   
    for j:=1 to 5 do begin
      repeat
        write('a[',i,',',j,']='); readln(x);
      until not (x in stop) ;
      include(stop, x)
    end;
end.

[-=<[Evklidd]>=-]

eoln да, ваш код короче и более красивый, но зато код Dmitry более универсален, ваш например можно использовать только с матрицами порядковых типов, потому что базовый тип множества должен быть порядковым, алгоритм же Dmitry работает и для типа real, например, к тому же количество элементов матрицы не может превышать 256.
ЗЫ просто напоминаю об этом Jigar'у, чтобы он учитыавл это при использовании алгоритма eoln'а

[Jigar]

и вот ещё.... помогите решить, пожалуйста...
Дана целочисленная матрица А порядка МхN, где M,N-заданные натуральные числа. Назовём серией в i-ой строке (i=1,2,...M) случай, когда A(i,j)=A(i,j+1)=A(i,j+2)=...=A(i,j+ k), где k - натуральное число. Серии из 1 элемента не учитываются. Характеристикой i-ой строки назовём кол-во серий в строке. Упорядочить строки матрицы по убыванию их характеристик.

Всё понятно вплоть до слово "характеристика", можете объяснить, если нетрудно, а то в книжке нет этого

[-=<[Evklidd]>=-]

Вот пример программы, исправьте ее под себя, если требуется

program pro31;
uses
 crt;
const
 m = 5;
 n = 7;
var
 a: array [1..m,1..n] of integer; //матрица
 xarak: array [1..m] of integer; // массив характеристик
 h: array [1..n] of integer;// вспомогательный массив
 j, i, k: integer;
 b: boolean;
begin
 ClrScr;
 Randomize;
 for i:= 1 to m do
  begin
   for j:= 1 to n do
    begin
     a[i,j]:= random(5); //генерация матрицы случайными числами от 0 до 4
     write(a[i,j],' ');// и вывод
    end;
   writeln('');
  end;
 writeln('');
 for i:= 1 to m do // цикл по всем строкам
  begin
   j:= 1;
   k:= 0;
   while j <= n do // проходимся по всем элементам строки
    begin
     while a[i,j] = a[i,j+1] do //пока одинаковые соседние элементы
      begin
       inc(j); // переходим к следующему элементу
       inc(k); // увеличиваем кол-во повторяющихся подряд элементов
      end;
     if k > 0 then //если кол-во повторяющихся подряд элементов больше 1
     xarak[i]:= xarak[i]+1;//то увеличиваем кол-во серий для данной строки
     k:= 0;
     inc(j);
    end;
  end;
 b:= false;
 while not b do // обычная сортировка пузырьком
  begin
   b:= true;
   for i:= 1 to m-1 do
    if xarak[i] < xarak[i+1] then
     begin
      k:= xarak[i];
      xarak[i]:= xarak[i+1];
      xarak[i+1]:= k;
      for j:= 1 to n do
       h[j]:= a[i,j];
      a[i]:= a[i+1];
      for j:= 1 to n do
       a[i+1,j]:= h[j];
      b:= false;
     end;
  end;
 for i:= 1 to m do
  begin
   for j:= 1 to n do
    write(a[i,j],' ');// вывод упорядоченной матрицы
   writeln('');
  end;
 readln;
end.

Если необходимы более подробные объяснения, я готов их дать.

[Jigar]

спасибо. выручили.
у меня ещё 1 вопрос к вам назрел...
Заполнить часть матрицы А порядка N, где N - чётное натуральное число, натуральными числами, начиная с единицы, в порядке, указанном на рисунке - http://img261.imageshack.us/my.php?image=matrixvk4.jpg .