Окружения элемента в матрице Опции

[Merhaba]

Добрый вечер!
Помогите Пожалуйста написать программу:
Назовем k-окружением элементa a_ij (целочисленного) двумерного массива А такие
элементы a_pq , у которых по крайней мере один из индексов (p или q) отличается по
абсолютной величине от соответствующего ему индекса (i или j) ровно на k , а другой -
не более, чем на k . Напишите программу, которая подсчитывает в массиве А количество элементов, которые больше любого элемента из своего 1-окружения, но при этом меньше любого элемента из своего 2-окружения.

[DarkWishmaster]

можно сделать функию с аргументами i,j и ответом boolean.
потом
OK(i,j:integer):boolean;

 OK:=True;      
 for p:=1 to N do
        for q:=1 to M do
   if (((p=i-k) or (p=i+k)) and ((q>=j-k) and (q<=j+k))) or (((q=j-k) or (q=j+k)) and ((p>=i-k) and ((p<=i+k)))
        then  if a[p,q]>a[i,j] then begin
                   OK:=False;  //нашли элемент который больше
                   exit;     //выходим из функции так как смысла нету продолжать цикл
                                   end;

Я так понял индекс K это окружение, значит изменяем немного функцию т.е добовляем ещё K как аргумент, и там где if a[p,q]>a[i,j] меняем на if k=1 then оставляем как есть, if k=2 then if a[p,q]<a[i,j] ....
Потом поочередно смотрим все элементы:

for i:=1 to n do
   for j:=1 to m do 
    if Ok(i,j,1) and Ok(i,j,2) then Count:=Count+1; 

Тут только на счет условия не уверен.

Сообщение отредактировано: DarkWishmaster - 19.04.2011 20:52

[Merhaba]

можно сделать функию с аргументами i,j и ответом boolean.
потом
OK(i,j:integer):boolean;

 OK:=True;      
 for p:=1 to N do
        for q:=1 to M do
   if (((p=i-k) or (p=i+k)) and ((q>=j-k) and (q<=j+k))) or (((q=j-k) or (q=j+k)) and ((p>=i-k) and ((p<=i+k)))
        then  if a[p,q]>a[i,j] then begin
                   OK:=False;  //нашли элемент который больше
                   exit;     //выходим из функции так как смысла нету продолжать цикл
                                   end;

Я так понял индекс K это окружение, значит изменяем немного функцию т.е добовляем ещё K как аргумент, и там где if a[p,q]>a[i,j] меняем на if k=1 then оставляем как есть, if k=2 then if a[p,q]<a[i,j] ....
Потом поочередно смотрим все элементы:

for i:=1 to n do
   for j:=1 to m do 
    if Ok(i,j,1) and Ok(i,j,2) then Count:=Count+1; 

Тут только на счет условия не уверен.

Окружение - "рамочка" вокруг элемента. Если 1 - окружение, то одинарная рамочка, Если 2 - окружение, то двойная рамочка