Версия для печати темы

Автор: Fedor 9.11.2008 22:32

Задача:
Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке (оформить в виде процедуры).

Разбил на подзадачи:
1) Определяем количество одинаковых элементов в строке матрицы.
2) Упорядочиваем строки


Попытался решить 1ю часть так: беру первый элемент строки, сравниваю его со всеми остальными; потом второй, сравниваю со всеми остальными и т.д.
Вот что получилось:

const
      CMatrix_size=3;
 type
      TCounters=Byte;
         TFloat=Real;
        TMatrix=array[1..CMatrix_Size,1..CMatrix_Size]of TFloat;



procedure Count(Matrix:TMatrix);
var  i,j,k:TCounters;
     d:Integer;
begin
d:=0;
for i:=1 to CMatrix_size do
         begin

         for j:=1 to CMatrix_size do
               begin
               for k:=1 to CMatrix_size do
                     if ((Matrix[i,j]=Matrix[i,k])) then
                                    inc(d);

               end;

         Write(d,'; ');
         d:=0;
         Writeln;
         end;
end;

Когда все элементы одинаковые выводится вот что:
9;
9;
9;

Подскажите плиз ошибку...

Автор: samec 10.11.2008 2:23

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

Автор: Lapp 10.11.2008 6:39

Совершенно необязательно делать массив и выбирать из него максимум. Можно сразу искать максимум. Кладем в него ноль, затем в цикле, если количество одинаковых с i+1-ым элементом больше, чем количество одинаковых с i-тым, то обновляем максимум.

Автор: Lapp 10.11.2008 7:04

Ошибок немало.. Я исправил твою прогу (в духе того, что писал в предыдущем мессадже). Посмотри и разберись. Что непонятно - спрашивай.

const
  CMatrix_size=4;

type
  TCounters=Byte;
  TFloat=Real;
  TMatrix=array[1..CMatrix_Size,1..CMatrix_Size]of TFloat;

function Count(var Matrix:TMatrix;i:integer):TCounters;
var
  j,k,m:TCounters;
  d:Integer;
begin
  m:=0;
  for j:=1 to CMatrix_size do begin
    d:=0;
    for k:=1 to CMatrix_size do if ((Matrix[i,j]=Matrix[i,k])) then inc(d);
    if d>m then m:=d
  end
end;

var
  i,j:TCounters;
  Matrix:TMatrix;

begin
  for i:=1 to CMatrix_size do for j:=1 to CMatrix_size do Matrix[i,j]:=2;
  for i:=1 to CMatrix_Size do WriteLn(i:3,': ',Count(Matrix,i):3);
  ReadLn
end.

Обрати внимание: теперь функция Count возвращает количество максимумов в заданной строке. В теле проги сделай цикл и заполни массив макимумов. Затем по нему сортируй строки.

Автор: Fedor 10.11.2008 11:21

В коде разобрался,сенкс =)
2ю подзадачу без проблем сделала "пузырьковая" сортировка.

ПС: Если вдруг кому-нибудь придется делать подобное, исходничек выложил;)


Прикрепленные файлы
 PROBLEM4.rar ( 891 байт ) Кол-во скачиваний: 455