Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Помогите пожалуйста решить следующую задачу:
Дана целочисленная прямоугольная матрица. Определить:
Максимальное из чисел, встречающихся в заданной матрице более одного раза.
(Матрица задается случайно или вводится с клавиатуры).

Вопрос задал: Baimer (статус: Посетитель) Вопрос отправлен: 22 июня 2008, 11:47 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Россия - чемпион!

Лови готовую программу:

program p1714;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  Rows = 5;      // Кол-во строк матрицы
  Cols = 6;      // Кол-во столбцов матрицы
  Limit = 100;   // 0..(Limit - 1) - интервал значений элементов матрицы
 
type
  TMatrix = array[0..Rows - 1, 0..Cols - 1] of Integer; // Тип матрицы
  TMeaning = array[0..Limit - 1] of Integer; // Количество встречающихся значений
 
var
  i, j: Integer;
  M: TMatrix;
  Max: Integer; // Максимальный элемент
  V: TMeaning;  // Вектор встречающихся значений
 
begin
  // Формирование случайной матрицы и вывод на экран,
  // а также формирование количественного вектора
  Randomize();
  FillChar(V, SizeOf(V), 0);
 
  for i:= 0 to Rows - 1 do
    begin
      for j:= 0 to Cols - 1 do
        begin
          M[i, j]:= Random(Limit);
          Inc(V[M[i, j]]);
          Write(' ', M[i, j]: 3);
        end;
      WriteLn;
    end;
 
  // Поиск максимального элемента, встречающегося больше 1 раза
  Max:= -1;
  for i:= 0 to Rows - 1 do
    for j:= 0 to Cols - 1 do
      if (M[i, j] > Max) and (V[M[i, j]] > 1)
        then Max:= M[i, j];
 
  // Вывод максимального элемента и количества раз его присутствия в матрице
  if Max <> -1
    then WriteLn('  Max = ', Max, ' (', V[Max], ' times).')
    else WriteLn('  Not found.'); // Все элементы разные
 
  Write('  Press Enter...');
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 22 июня 2008, 13:41

Ответ #2. Отвечает эксперт: Мережников Андрей

Здравствуйте, Baimer!
Ответ №1 довольно прост, но не совсем отвечает условиям задачи, во-первых матрица ЦЕЛОЧИСЛЕННЫХ, а не целочисленных положительных чисел. В случае присутствия отрицательных чисел, данный способ вызовет ошибку; во-вторых, как быть в том случае, если значения не ограничены сверху?
Решение поиска необходимо разбить на две части: 1) найти все повторяющиеся значения в матрице; 2)среди этих значений искать максимальное;

Ответ отправил: Мережников Андрей (статус: Абитуриент) Время отправки: 22 июня 2008, 21:54 Оценка за ответ: 5

Мини-форум вопроса

Baimer (статус: Посетитель), 22 июня 2008, 19:47 [#1]: Спасибо за помощь, но мне нужно чтобы матрицу вводить можно было и с клавиатуры тоже.

Мережников Андрей (статус: Абитуриент), 22 июня 2008, 21:58 [#2]: Для того, чтобы реализовать два способа заполнения матрицы, надо разбить на отдельные процедуры ввод элементов матрицы и поиск решения задачи по матрице. Способ ввода зависит от того, какое Вы реализуете приложение - консольное или с использованием VCL

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.