Pascal, Массивы

[Nastik]

Задача имеет следующее содержание:

Определить номера тех строк целочисленной матрицы А[N,K], которые совпадают с массивом D[K]. Если таких строк нет, выдать соответствующее сообщение.

Вот что у меня есть:

Program primer;
Uses crt;
Const L=5; M=7;
Var K, N: integer;
D: Array [1..L] of real;
A: Array [1..M,1..L] of real;
Begin
Clrscr;
For K:=1 to L do
Begin
Write (‘D[‘, K, ‘]=’);
Read (D[K]);
End;
For N:=1 to M do
For K:=1 to L do
Begin
Write (‘A[‘, N, K, ‘]=’);
Read (A[N,K]);
End;
For N:=1 to M do
If A[N,K]=D[K] then writeln (‘N=’, N)
Else writeln (‘Net covpadeniy’);
Readkey;
End.

Помогите разобраться с последним циклом....Моя программа выдаёт почему-то неправильный результат..((((

[Kazik]

попробуй так...
Program primer;
Uses crt;
Const L=5; M=7;
Var K, N: integer;
D: Array [1..L] of real;
A: Array [1..M,1..L] of real;
f:boolean;
Begin
Clrscr;
For K:=1 to L do
Begin
Write (‘D[‘, K, ‘]=’);
Read (D[K]);
End;
For N:=1 to M do
For K:=1 to L do
Begin
Write (‘A[‘, N, K, ‘]=’);
Read (A[N,K]);
End;
For N:=1 to M do
begin
k:=1;
while k<=l do
begin
If A[N,K]=D[K] then f:=true
Else
begin
f:=false;
k:=l;
end;
k++;
end;
if f=true then writeln (‘N=’, N);
end;
Readkey;
End.

[Nastik]

k++;

А что значит эта строчка??
Я программу ввожу,запускаю,ввожу все цифры...И когда программа должна дать результат,она просто зависает!(((

[Kazik]

вместо K++ запиши k:=k+1
и посмотри так ли ты записала что выделена жирным
while k<=L do
begin
If A[N,K]=D[K] then f:=true
Else
begin
f:=false;
k:=L;

[Nastik]

Круто!)))Получилось)))))
Спасибо большое!)))
Только можно несколько вопросов задать,а то моей преподовательнице нужно всё по строчкам объяснять!(((

1. Что означает эта сточка:
f:boolean;
2. Почему взяли именно while? Что бы программа проверяла каждый элемент строки,да?

[Kazik]

f:boolean; означает что мы задаем переменную логического типа..
ты наверное заметила что она принимает только значение true(да) или false(нет).
while использовали чтобы программа проверяла каждый элемент строки, но если встречала элементы в строке не совпадающие с элементом массива D[K], то сразуже переходила на проверку другой строки

[Nastik]

Всё,поняла я!!
Спасибо ещё раз большое!!)))