значение счетчика

[dark_sergey]

Обьясните что делает счетчик выделеный красным

uses crt;

type
m1=array[1..5,1..4] of integer;

var a:m1;

procedure Input(var g:m1);
var x,y:integer;
begin
for x:=1 to 5 do
for y:=1 to 4 do
begin
Write('g[',x,',',y,']=');
ReadLn(g[x,y]);
end;
end;

procedure Output(var g:m1);
var x,y:integer;
begin
for x:=1 to 5 do
for y:=1 to 4 do
begin
if y<>4 then
Write(' g[',x,',',y,']= ',g[x,y])
else
WriteLn(' g[',x,',',y,']= ',g[x,y]);
end;
end;

procedure Search(var g:m1);
var x,m,y,xx,yy:integer;
el,max:real;
k:boolean;
begin
m:=1;
k:=false;
max:=0;
for x:=1 to 5 do
for y:=1 to 4 do
begin
el:=g[x,y];
for xx:=1 to 5 do
for yy:=1 to 4 do
begin
if (el=g[xx,yy]) and (m=1) then
begin
if (x<>xx) or (y<>yy) then
begin
max:=el;
k:=true;
m:=2;
end;
end
else
if (el=g[xx,yy])and (el>max) then
if (x<>xx) or (y<>yy) then
begin
max:=el;
end;
end;
end;
if k=true then
WriteLn('max=',max:1:4)
else
WriteLn('no max>1 raza');
end;

begin
Input(a);
WriteLn;
Output(a);
WriteLn;
Search(a);
ReadLn;
end.

[Ghost of Night]

Вы код оформлять пробовали???

[dark_sergey]

Сообщение от Ghost of Night

Вы код оформлять пробовали???

uses crt;

type
     m1=array[1..5,1..4]  of integer;

var   a:m1;

procedure Input(var g:m1);
var x,y:integer;
begin
   for x:=1 to 5 do
   for y:=1 to 4 do
     begin
      Write('g[',x,',',y,']=');
      ReadLn(g[x,y]);
     end;
end;

procedure Output(var g:m1);
var x,y:integer;
begin
   for x:=1 to 5 do
   for y:=1 to 4 do
     begin
       if y<>4 then
         Write(' g[',x,',',y,']= ',g[x,y])
       else
         WriteLn(' g[',x,',',y,']= ',g[x,y]);
     end;
end;

procedure Search(var g:m1);
var x,m,y,xx,yy:integer;
    el,max:real;
     k:boolean;
begin
   m:=1;
   k:=false;
   max:=0;
      for x:=1 to 5 do
      for y:=1 to 4 do
        begin
          el:=g[x,y];
           for xx:=1 to 5 do
           for yy:=1 to 4 do
             begin
                 if (el=g[xx,yy])  and (m=1) then
                  begin
                   if (x<>xx) or (y<>yy) then
                     begin
                       max:=el;
                       k:=true;
                       m:=2;
                     end;
                  end
                 else
                    if (el=g[xx,yy])and (el>max) then
                       if (x<>xx) or (y<>yy) then
                         begin
                            max:=el;
                         end;
             end;
        end;
    if k=true then
     WriteLn('max=',max:1:4)
    else
     WriteLn('no max>1 raza');
end;

begin
Input(a);
WriteLn;
Output(a);
WriteLn;
Search(a);
ReadLn;
end.

[Serge_Bliznykov]

это не счётчик.
здесь у Вас и K и m выступают в роли флажков.
K - в начале программы false (это значит, максимум ещё не найден). Как только нашли максимум - делаем его true

m в начале программы 1.
Как только нашли 1-й максимум - присваиваем ему двойку,
и уже алгорит идёт по другому пути:
(if (el=g[xx,yy]) and (m=1) then - уже не срабатыет,
а срабатывает else


p.s.
1) наверняка можно обойтись одной переменной..
2) в следующий раз, когда приводите код, указывайте задачу, которую этот код решает. Так проще понять, что в коде делается...

[dark_sergey]

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

это не счётчик.
здесь у Вас и K и m выступают в роли флажков.
K - в начале программы false (это значит, максимум ещё не найден). Как только нашли максимум - делаем его true

m в начале программы 1.
Как только нашли 1-й максимум - присваиваем ему двойку,
и уже алгорит идёт по другому пути:
(if (el=g[xx,yy]) and (m=1) then - уже не срабатыет,
а срабатывает else


p.s.
1) наверняка можно обойтись одной переменной..
2) в следующий раз, когда приводите код, указывайте задачу, которую этот код решает. Так проще понять, что в коде делается...

Спасибо... В общем все понял , токо смушает m и то как он изменяется и зачем он это делает.

А программа находит максимальный елемент встречаюшийся в масиве более 1 раза.

[Ghost of Night]

Согласитесь же, что так намного приятней читать текст...

В этой проге получается, что если переменной k хоть 1 раз присвоили true, то она по любому выведет значение max.
А переменная m служит для ограничения присвоения true переменной k.

Вроде так

[Ghost of Night]

Похоже опоздал((