В действительной матрице А(n,n).определить в каждой строке число локальных максимумов (Delphi)

[(=Настя=)]

Люди добрые помогите.зачет.нужен текст программы через файл...я полная ноль в этом...даны натуральное число n,действительная матрица А(n,n).определить в каждой строке число локальных максимумов(больше предыдущ и послед чисел ai-1,j (ai,j) ai+1,).j


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[ByAlex]

Сообщение от (=Настя=)

Люди добрые помогите.зачет.нужен текст программы через файл...я полная ноль в этом...даны натуральное число n,действительная матрица А(n,n).определить в каждой строке число локальных максимумов(больше предыдущ и послед чисел ai-1,j (ai,j) ai+1,).j

Привет! Сейчас что-нибудь попробуем.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  i,j,raz,temp:Integer;
  colMax:array[0..9] of Integer;
  Arr:array[0..9,0..9] of Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  temp:=0;
  write('Vvedite razmernost matrix = ');
  read(raz);
  Writeln;
  writeln('Vvedite matrix[',raz,',',raz,']:');
  for i:=1 to raz do
    for j:=1 to raz do
      read(arr[i,j]);
  writeln;
  for i:=1 to raz do
  begin
    for j:=2 to raz do
    begin
      if Arr[i,j]>Arr[i,j-1] then
      begin
        inc(temp)
      end
      else
      begin
        if temp<>0 then
        begin
          colmax[i]:=temp;
          temp:=0;
        end;
      end;
      if j=raz then
      begin
        if temp>colMax[i] then
          colMax[i]:=temp;
        temp:=0;
      end;
    end;
    Writeln('Kolichestvo lokalnyh maximumov v ',i, ' stroke = ', colmax[i]);
  end;
  readln;
  Readln;
end.

Вот так примерно, проверь! Вчера не успел, интернета не было.

[Alex11223]

3-й раз за 2 дня эту задачу вижу. Никак не пойму почему в условии сказано a[i-1,j]<a[i,j]>a[i+1,j], а не j-1 и j+1?

Вот так примерно, проверь!

Либо я не понимаю задание, либо таки неправильно считает. В строке 55 66 778 54 3 говорит, что 2 лок. максимума. Я считаю, что один — 778. Судя по условию if arr[i,j]>arr[i,j-1] вы смотрите только на предыдущий элемент.

[Sasha_Smirnov]

Изначально, видимо, задача была про столбец.

[ByAlex]

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

3-й раз за 2 дня эту задачу вижу. Никак не пойму почему в условии сказано a[i-1,j]<a[i,j]>a[i+1,j], а не j-1 и j+1?

Либо я не понимаю задание, либо таки неправильно считает. В строке 55 66 778 54 3 говорит, что 2 лок. максимума. Я считаю, что один — 778. Судя по условию if arr[i,j]>arr[i,j-1] вы смотрите только на предыдущий элемент.

В строке 55 66 778 54 3 говорит, что 2 лок. максимума
Все правильно, 55 меньше 66, 66 меньше 778! Поэтому 2 локальных максимума. Мы же массив вводим.

[Alex11223]

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

крайние (55 и 3) как я понимаю вообще не следует считать? 66 больше 55, но меньше 778. 778 больше 66 и 54 — подходит. 54 меньше 778. Итого 1 лок.максимум. Что не так?)

[ByAlex]

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

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

Если так, то да, будет один! Просто там условие не понятное, я вот так понял по своему!

[Serge_Bliznykov]

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

крайние (55 и 3) как я понимаю вообще не следует считать? 66 больше 55, но меньше 778. 778 больше 66 и 54 — подходит. 54 меньше 778. Итого 1 лок.максимум.

Alex11223, +1.
я не гуглил по определению "локального максимума", но если в пост #1 написано правильно, то я согласен с Вашим выводом.

p.s. очевидно, что локальных максимумов в общем случае может и не быть!