Задача на линейный поиск, помогите найти ошибку Опции

[dog]

1. Дан двумерный массив A [NxM] , элементы которого меняются по определенному закону. Определить, есть ли в массиве элемент со значением Q.

PROGRAM PRPV1;
const n=3;m=3;
type Tarr = Array[1..n,1..m] of real;
var
A:Tarr;

i,j:BYTE;
q:real;



BEGIN
    FOR i:=1 TO n DO
    FOR j:=1 TO m DO
    A[i,j]:=30*(n+1-j)+0.2*i; {закон изменения элементов}

    FOR i:=1 TO n DO {вывод массива на печать}
    BEGIN
        FOR j:=1 TO m DO
        WRITE(A[i,j]:0:2,' ');
        WRITELN;
    END;

    WRITELN('Enter Q'); {ввод значения для поиска}
    READLN(q); {до сюда все работает идеально}

    i:=1;
    j:=1;
    WHILE((i<=n) and (A[i,j]<>q)) do {проблемы начинаются тут}
    begin
    WHILE((i<=m) and (A[i,j]<>q)) do
    j:=j+1;
    IF j>m then
    i:=i+1;
    end;

    IF (i > n) AND (j > m) THEN {вывод на печать найденного элемента или сообщение об отсутствии элемента}
       WRITELN('not found')
    ELSE
       WRITELN('found A[',i,',',j,']');

END.

Программа работает идеально, ищет элементы выводит их индексы. Но когда задаешь элемент, которого нет в массиве программа зависает.

Сообщение отредактировано: dog - 1.04.2010 4:06

[volvo]

Я ж написал, что надо делать в случае двумерного массива... Смотри: допустим, у нас матрица, описанная так:

const
  m = 3; n = 5;
var
  a: array[1 .. m, 1 .. n] of integer;

, то есть матрица, состоящая из M строк по N элементов в каждой. Вот смотри, что происходит с твоим же кодом, чтобы заставить его работать:

b := 1;  { индекс первого элемента массива }
e := n*m;  {e - индекс последнего элемента, где nm = n*m, то есть размерность двумерного массива  }
 
  while b <= e do begin
    { ищем элемент на интервале индексов от b до n, включительно }
    k := b + (e - b) div 2;  { Вот k как раз одномерно... А дальше: }
    if x > A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then { <--- Преобразуем k в номер строки и столбца }
      i := k + 1
    else if x < A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then { <--- здесь - тоже самое }
      j := k - 1
    else
      break;  { искомый элемент найден }
  end;
...
  { Ну, и ответ печатать в виде: }
  writeln('строка = ', (pred(k) div n) + 1, ' столбец = ', (pred(k) mod n) + 1);

Очень много изменений?