задача про матрицу паскаль

[kat1438]

Помогите пожалуйста! Мне нужно решить задачу.
условие:Ввести матрицу и определить, какой элемент – положительный или отрицательный – расположен ближе к началу матрицы ( к элементу А[1,1])
Программу я написала,но не уверена в правильности второй части задачи. Извиняюсь,если это полный бред))в Паскале я не очень сильна,но стараюсь постичь))
Проверьте пожалуйста

program p2;
uses crt;
type mas=array[1..30,1..30] of integer;
var
 a:mas;
 m,n,j,i:integer;
 s1,s2:integer;
 
begin
  writeln('Введите число строк матрицы , <=30');
  readln(m);
  writeln('Введите число столбцов матрицы, <=30');
  readln(n);

  for i:=1 to m do
     for j:=1 to n do
     begin
        write('A[',i,',',j,']=');
        readln(A[i,j]);
     end;

  writeln('Матрица А');
  for i:=1 to m do
  begin
     for j:=1 to n do
        write(A[i,j]:6, ' ');
        writeln;
  end;


  s1:=1;
  s2:=2;
  begin
   for i:=1 to m do
       for j:=1 to n do

         if A[s1,j]
         then begin
                s1:=s1+1;

              end
         else if A[s2,j]
              then begin
                     s2:=s2+1;
                   end;

   end;


  if A[s1,s2]<0
  then writeln('Ближе к началу матрицы отрицательный элемент=', A[s1,s2])
  else if A[s1,s2]>0
  then writeln('Ближе к началу матрицы положительный элемент=', A[s1,s2]);
  readln;
end.

[ViktorR]

А каков критерий близости?
Если близость по расстоянию от вершины матрицы, то вроде можно сравнивать через Пифагора (a[i,j] удален на (i-1)^2+(j-1)^2.
Или тут какой то другой критерий?
И вот тут, например:

if A[s1,j] then
begin
    s1:=s1+1;
end
else
    if A[s2,j] then
    begin
       s2:=s2+1;
    end;

A[s1,j] и A[s2,j] - это ведь не логические переменные.
Вместе с тем, тут:

if A[s1,s2]<0
  then writeln('Ближе к началу матрицы отрицательный элемент=', A[s1,s2])
  else if A[s1,s2]>0
  then writeln('Ближе к началу матрицы положительный элемент=', A[s1,s2]);

Что-то тут ...

[kat1438]

честно,я сама не знаю по какому критерию))я уже неделю голову над этой задачей ломаю...

[BDA]

const
  size = 100;

type
  mas = array [1 .. size, 1 .. size] of integer;

var
  a: mas;
  m, n, j, i: integer;
  s1, s2: integer;

begin
  writeln('Введите число строк матрицы , <=', size);
  readln(n);
  writeln('Введите число столбцов матрицы, <=', size);
  readln(m);

  for i := 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, ']=');
      readln(a[i, j]);
    end;

  writeln('Матрица А');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:6, ' ');
    writeln;
  end;

  s1 := n;
  s2 := m;

  for i := n downto 1 do
    for j := m downto 1 do
      if ((i <> 1) or (j <> 1)) and (a[i, j] <> 0) and
        (sqr(i - 1) + sqr(j - 1) < sqr(s1 - 1) + sqr(s2 - 1)) then
      begin
        s1 := i;
        s2 := j;
      end;

  if a[s1, s2] < 0 then
    writeln('Ближе к началу матрицы отрицательный элемент=', a[s1, s2])
  else if a[s1, s2] > 0 then
    writeln('Ближе к началу матрицы положительный элемент=', a[s1, s2]);
  readln;
end.

Если по Пифагору. Хотя получается топорное решение (перебор всех элементов).

[kat1438]

а если не по Пифагору попробовать решить?

[BDA]

а если не по Пифагору попробовать решить?

Придумайте свою меру расстояния
Можно складывать координаты, но тогда будет такая "картина":

2 3 4 5
3 4 5 6
4 5 6 7

В таблице указаны расстояния для матрицы 3 на 4

[kat1438]

ок))а как тогда это написать в Паскале?))если не трудно, подскажите пожалуйста

[BDA]

Что написать в паскале?

Пифагор:

if ((i <> 1) or (j <> 1)) and (a[i, j] <> 0) and (sqr(i - 1) + sqr(j - 1) < sqr(s1 - 1) + sqr(s2 - 1)) then

Сложение координат:

if ((i <> 1) or (j <> 1)) and (a[i, j] <> 0) and (i + j < s1 + s2) then

[kat1438]

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

N*(I-1)+J

Я не знаю,где ее именно применить в программе. Вы не могли бы мне написать "кусок" этой программы с использованием этой формулы?

[BDA]

Конечно можно написать:

if ((i <> 1) or (j <> 1)) and (a[i, j] <> 0) and (n * (i - 1) + j < n * (s1 - 1) + s2) then

Но лучше:

const
  size = 100;

type
  mas = array [1 .. size, 1 .. size] of integer;

var
  a: mas;
  m, n, j, i: integer;

begin
  writeln('Введите число строк матрицы , <=', size);
  readln(n);
  writeln('Введите число столбцов матрицы, <=', size);
  readln(m);

  for i := 1 to n do
    for j := 1 to m do
    begin
      write('A[', i, ',', j, ']=');
      readln(a[i, j]);
    end;

  writeln('Матрица А');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:6, ' ');
    writeln;
  end;

  for i := 1 to n do
    for j := 1 to m do
      if ((i <> 1) or (j <> 1)) and (a[i, j] <> 0) then
      begin
        if a[i, j] < 0 then
          writeln('Ближе к началу матрицы отрицательный элемент=', a[i, j])
        else
          writeln('Ближе к началу матрицы положительный элемент=', a[i, j]);
        readln;
        exit;
      end;
  writeln('Все элементы - нулевые');
  readln;
end.

Эта формула (N*(I-1)+J) преобразует номер элемента в двумерном массиве в порядковый номер.

1  2  3  4
5  6  7  8
9 10 11 12

Достаточно выйти из циклов, как только найдем первый ненулевой элемент.

Кстати, допустил ошибку в проверке - исправил во всех сообщениях.
ПС Если элемент а[1, 1] тоже должен участвовать в рассмотрении, то убрать проверку ((i <> 1) or (j <> 1)).