Упорядочите строки данной матрицы в порядке возрастания количества одинаковых элементов в каждой строке - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Упорядочите строки данной матрицы в порядке возрастания количества одинаковых элементов в каждой строке. Воспользуйтесь сортировкой методом простых вставок. Помогите пожалуйста, вообще не понимаю как это делать, но нужно срочно, прошу помочь, заранее спасибо)))

Решение задачи: «Упорядочите строки данной матрицы в порядке возрастания количества одинаковых элементов в каждой строке»

textual
Листинг программы
  1. const m=5; n=20;
  2. type TRow = array [1..n] of Integer;
  3. var
  4.   a: array [1..m] of TRow;
  5.   b: array [1..m] of Integer;
  6.   d: TRow;
  7.   i, j, k, t: Integer;
  8. begin
  9.   Randomize;
  10.   WriteLn('A =');
  11.   for i:=1 to m do begin
  12.     for j:=1 to n do begin
  13.       a[i,j]:=Random(10); Write(a[i,j]:3);
  14.       k:=j-1; while (k>0) and (a[i,k]<>a[i,j]) do Dec(k);
  15.       Inc(b[i],Ord(k<>0));
  16.     end; WriteLn(' |',b[i]);
  17.   end;
  18.   for i:=2 to m do begin
  19.     j:=i-1; t:=b[i]; d:=a[i];
  20.     while (j>0) and (b[j]>t) do begin
  21.       b[j+1]:=b[j]; a[j+1]:=a[j]; Dec(j);
  22.     end;
  23.     b[j+1]:=t; a[j+1]:=d;
  24.   end;
  25.   WriteLn('A''=');
  26.   for i:=1 to m do begin
  27.     for j:=1 to n do Write(a[i,j]:3); WriteLn(' |',b[i]);
  28.   end;
  29. end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы