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

[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

[Lapp]

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

Сама себя не похвалишь - кто еще похвалит?

Проограмма работает неправильно и при этом выходит за пределы массива. НИКОГДА не отключай Range Check до полного окончания отладки - и будет тебе ЩАСТЬЕ )). А также желательно не путать буковку i с буковкой j (хоть они и похожи)). А еще - инициализацию j нужно внести внутрь цикла по i. Короче, примерно так:

    i:=1;
    WHILE ((i<=n) and (A[i,j]<>q)) do begin
      j:=1;
      WHILE((i<=m) and (A[i,j]<>q)) do j:=j+1;
      if j>n then i:=i+1;
    end;

Последнее: условие на j при печати - лишнее. Вот так:

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

Успехов тебе )).

PS
да хорошая у тебя прога, хорошая ))