Матрица в Pascal'e

[orandzheviyman]

Задание: Дана целочисленная матрица. Определить максимальное из чисел, встречающихся в этой матрице более одного раза.
Код:

 uses crt;
 const N=15;
       M=15;
 type matA=array[1..N,1..M] of integer;
 var i,j,MAXvalue,otvet:integer;
     A:matA;

Function FINMAXvalue (A:matA):integer;
 var i,j,MAXvalue:integer;
 Begin
  MAXvalue:=0;
 for i:=1 to N do
 for j:=1 to M do
 if A[i,j]>MAXvalue
   then MAXvalue:=A[i,j];
 end;
Begin
 for i:= 1 to N do
 for j:= 1 to M do
   read(A[i,j]);
   
 FINMAXvalue (A):=otvet;
 write ('Maximalnoe znachenie elementa matrici= ', otvet);
 end.

Этот код должен возвращать максимальное значение элемента в матрице, но pascal выдаёт ошибку "Нельзя присвоить левой части" ( там где FINMAXvalue (A):=otvet; ). В чём проблема и как сделать, чтобы возвращало значение максимального элемента который встречается в матрице более одного раза? Заранее спасибо

[BDA]

Если исправлять именно эту ошибку, то:

write('Maximalnoe znachenie elementa matrici= ', FINMAXvalue(A));

Пока же это решение не удовлетворяет условию (да и еще ошибки есть, но уже логические).
Насчет алгоритма:
Самым простым способом видится сортировка массива по убыванию, затем поиск первого повторяющегося числа.

[SaLoKiN]

"Нельзя присвоить левой части"

все верно! вы функции присваиваете значение переменной,а не на оборот.слева должна стоять переменная принимающая значение,справа функция/формула хоть что. вы же не пишете 2+3:=х на паскале? а пишите х:=2+3
так и тут.

otvet:=FINMAXvalue (A);

[orandzheviyman]

Сообщение от BDA

Если исправлять именно эту ошибку, то:

write('Maximalnoe znachenie elementa matrici= ', FINMAXvalue(A));

Пока же это решение не удовлетворяет условию (да и еще ошибки есть, но уже логические).
Насчет алгоритма:
Самым простым способом видится сортировка массива по убыванию, затем поиск первого повторяющегося числа.

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

[SaLoKiN]

да, но оно может быть и одно
а по условию

встречающихся в этой матрице более одного раза.

[Serge_Bliznykov]

orandzheviyman, очень рекомендую прислушаться к прозвучавшему выше совету BDA:

Сообщение от BDA

Насчет алгоритма:
Самым простым способом видится сортировка массива по убыванию, затем поиск первого повторяющегося числа.

p.s. разумеется, это не единственный алгоритм, я легко могу предложить и другой, но этот, имхо, вполне себе простой и эффективный!

[orandzheviyman]

Сообщение от Serge_Bliznykov

orandzheviyman, очень рекомендую прислушаться к прозвучавшему выше совету BDA:

p.s. разумеется, это не единственный алгоритм, я легко могу предложить и другой, но этот, имхо, вполне себе простой и эффективный!

Напиши тогда код, пожалуйста)

[Poma][a]

я легко могу предложить и другой

Если Вам не сложно, то будьте любезны, предложите..

В голу лезет только вариант с рекурсией.. или с выделением повторяющихся элементов..

[Serge_Bliznykov]

ну, например, так:

const N=15;
      M=15;
type matA=array[1..N,1..M] of integer;

function isHasDublicate(A:matA; iMatch,jMatch : integer) : boolean;
var ii, jj : integer;
begin
   result := false;
   for ii:=1 to N do
     for jj:=1 to M do
       if ((ii<>iMatch) or (jj<>jMatch))
             and (A[ii,jj] = A[iMatch, jMatch]) then begin
               result := true;
               exit
             end;
end;

Function FINDMAXvalue (A:matA; var isFoundDublicate : boolean):integer;
var
   i,j:integer;
   isFirst : boolean;
 Begin
   isFirst := true;
   result := -1;
   isFoundDublicate := false;
   for i:=1 to N do
     for j:=1 to M do
       if isHasDublicate(A,i,j) then begin
         isFoundDublicate := true;
         if isFirst then begin
             result := A[i,j];
             isFirst := false;
         end
         else
            if A[i,j]>result then result := A[i,j];
       end;
 end;

var i,j,otvet :integer;
    A:matA;
    flag : boolean;

Begin
 for i:= 1 to N do
   for j:= 1 to M do
      read(A[i,j]);
 readln;

 otvet := FINDMAXvalue(A, flag);
 if flag then
   writeLn('Maximalnoe znachenie elementa matrici= ', otvet)
 else
   WriteLn('V matrice net povtorayushihsya chisel!');
 Readln;
end.

p.s. решение крайне неоптимальное - то, что называется - "в лоб"!!

orandzheviyman, вариант кода по алгоритму BDA с сортировкой ещё нужен?

[Poma][a]

А можно пару вопросов ?
#1

result := false;
   for ii:=1 to N do
     for jj:=1 to M do
       if ((ii<>iMatch) or (jj<>jMatch))
             and (A[ii,jj] = A[iMatch, jMatch]) then begin
               result := true;
               exit
             end;

Почему бы не сделать так?

result := true;
 for ii:=1 to N do
     for jj:=1 to M do
       if ((ii<>iMatch) or (jj<>jMatch))
             and (A[ii,jj] = A[iMatch, jMatch]) then 
               exit;

result := false;

#2

isFoundDublicate := true

А мы ведь может сделать вывод об этом используя лишь result..

isFoundDublicate := result <> -1;

И теперь в цикле мы не будем крутить это каждый раз..

И, наконец-то, самый главный вопрос :

p.s. решение крайне неоптимальное - то, что называется - "в лоб"!!

А самым оптимальным какое решение будет являться?
Отметка повторяющихся? И потом поиск по ним?