Turbo Basic. Заменить все локальные минимумы данной матрицы на нули

@Styort · Регистрация: 21.11.2013

Студворк — интернет-сервис помощи студентам

Дана матрица размера M × N. Элемент матрицы называется ее локальным минимумом, если он меньше всех окружающих его элементов. Заменить все локальные минимумы данной матрицы на нули. При решении допускается использовать вспомогательную матрицу.
Находил в инете решение на C++ и Pascal, с паскаля перевести могу впринцепи, но там решение огромное что-то. Может есть не такое большое решение?)

Кликните здесь для просмотра всего текста

Pascal

{task matrix74}
const
  maxSize=10;
type 
  Tmatrix=array[1..maxSize,1..maxSize] of integer;
var
  a,b:Tmatrix;
  i,j,m,n:integer;
begin
  repeat
    write('Введите количество строк матрицы, не более ',maxSize,'=');
    readln(n);
  until (n>=1) and (n<=maxSize);
  repeat
    write('Введите количество столбцов матрицы, не более ',maxSize,'=');
    readln(m);
  until (m>=1) and (m<=maxSize);
  randomize;
  writeln('Исходная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(100)+1;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  b:=a;
  writeln;
  for i:=1 to n do
    for j:=1 to m do
      if i=1 then
        begin
        if j=1 then
            begin
              if (b[i,j]<a[i,j+1]) and (b[i,j]<a[i+1,j]) and (b[i,j]<a[i+1,j+1]) then
                a[i,j]:=0;
            end
          else if j=n then
            begin
              if (b[i,j]<b[i,j-1]) and (b[i,j]<b[i+1,j-1]) and (b[i,j]<b[i+1,j]) then
                a[i,j]:=0;
            end
          else
            if (b[i,j]<b[i,j-1]) and (b[i,j]<b[i,j+1]) and (b[i,j]<b[i+1,j-1]) and (b[i,j]<b[i+1,j]) and
            (b[i,j]<b[i+1,j+1]) then
              a[i,j]:=0;
        end
      else if i=n then
        begin
          if j=1 then
            begin
              if (b[i,j]<b[i-1,j]) and (b[i,j]<b[i-1,j+1]) and (b[i,j]<b[i,j+1]) then
                a[i,j]:=0;
            end
          else if j=n then
            begin
              if (b[i,j]<b[i-1,j]) and (b[i,j]<b[i-1,j-1]) and (b[i,j]<b[i,j-1]) then
                a[i,j]:=0;
            end
          else
            if (b[i,j]<b[i,j-1]) and (b[i,j]<b[i,j+1]) and (b[i,j]<b[i-1,j-1]) and (b[i,j]<b[i-1,j]) and
            (b[i,j]<b[i-1,j+1]) then
              a[i,j]:=0;
        end
      else
        begin
          if j=1 then
            begin
              if (b[i,j]<b[i-1,j]) and (b[i,j]<b[i-1,j+1]) and (b[i,j]<b[i,j+1]) and (b[i,j]<b[i+1,j+1]) and
              (b[i,j]<b[i+1,j]) then
                a[i,j]:=0;
            end
          else if j=n then
            begin
              if (b[i,j]<b[i-1,j]) and (b[i,j]<b[i-1,j-1]) and (b[i,j]<b[i,j-1]) and (b[i,j]<b[i+1,j-1]) and
              (b[i,j]<b[i+1,j]) then
                a[i,j]:=0;
            end
          else
            if (b[i,j]<b[i-1,j-1]) and (b[i,j]<b[i-1,j]) and (b[i,j]<b[i-1,j+1]) and
            (b[i,j]<b[i,j-1]) and (b[i,j]<b[i,j+1]) and
            (b[i,j]<b[i+1,j-1]) and (b[i,j]<b[i+1,j]) and (b[i,j]<b[i+1,j+1]) then
              a[i,j]:=0;
        end;
  writeln('Полученная матрица');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  readln;
end.

@Good-Morning · 23.12.2013, 16:40

Я предлагаю сделать так:

QBasic/QuickBASIC

DIM a(0:M+1, 0:N+1)  'вроде так заявляется
DIM b(0 TO M+1, 0 TO N+1)
FOR i=1 TO M
FOR j=1 TO N
IF a(i, j)>a(i, j+1) OR a(i, j)>a(i, j-1) OR a(i, j)>a(i-1, j) OR a(i, j)>a(i+1, j) OR a(i, j)>a(i+1, j+1) OR a(i, j)>a(i-1, j-1) OR a(i, j)>a(i+1, j-1) OR a(i, j)>a(i-1, j+1) THEN b(i, j)=a(i, j)
NEXT j
NEXT i

После этого, должно быть, в массиве b будет ответ.

@Styort · 23.12.2013, 22:23 **[ТС]**

Good-Morning, что-то не выходит) ну я ввел размерность матрицы и присвоил рандомно значения. не хочет ничего выводить, ошибку пишет. Illegal function call
странно ты как-то массивы обьявляешь, я не очень понимаю как это)
я делал так:

Кликните здесь для просмотра всего текста

QBasic/QuickBASIC

RANDOMIZE TIMER
INPUT "vvedite razmernost matrici MxN: " , M , N
DIM a(M,N)
DIM b(M,N)
FOR i=1 TO M
FOR j=1 TO N
a(i,j)=INT(RND*10)
IF a(i, j)>a(i, j+1) OR a(i, j)>a(i, j-1) OR a(i, j)>a(i-1, j) OR a(i, j)>a(i+1, j) OR a(i, j)>a(i+1, j+1) OR a(i, j)>a(i-1, j-1) OR a(i, j)>a(i+1, j-1) OR a(i, j)>a(i-1, j+1) THEN b(i, j)=a(i, j)
NEXT j
NEXT i

@Good-Morning · 23.12.2013, 22:40

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

странно ты как-то массивы обьявляешь

В Turbo Basic давно не работал. Там массивы иначе, нежели в QBasic, заявляются. Должно быть, подзабыл уже. Но что я знаю точно, что нужно сделать "рамочку" в массиве, чтобы везде можно было проверить индексы i-1, j+1 и т.д.
О! И вправду глупость написал:

Сообщение от Good-Morning

DIM b(0 TO M+1, 0 TO N+1)

Здесь, вроде, нужно также заявить, как и первый массив.

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	23.12.2013, 22:40	4
	Сообщение от Styort странно ты как-то массивы обьявляешь В Turbo Basic давно не работал. Там массивы иначе, нежели в QBasic, заявляются. Должно быть, подзабыл уже. Но что я знаю точно, что нужно сделать "рамочку" в массиве, чтобы везде можно было проверить индексы i-1, j+1 и т.д. О! И вправду глупость написал: Сообщение от Good-Morning DIM b(0 TO M+1, 0 TO N+1) Здесь, вроде, нужно также заявить, как и первый массив. 0

Опции темы