Определить, отвечает ли заданный массив некоторым требованиям

Задача. Определить, есть ли в заданном массиве элемент, равный 0.

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

Function Check1(X : MyArray; n, m : integer) : Boolean;

Var

i, j : integer;

Flag : Boolean;

Begin

Flag := False; {Предполагаем, что искомого элемента в массиве нет}

i := 1;

while not(Flag) and (i<=n) do {элемент не найден и строки не закончились}

begin

j := 1;

while (j<=m) and (X[i, j]<>0) do {перебираем все элементы текущей строки, пропуская ненулевые элементы}

Inc(j);

Flag := not(j=m+1);{если искомый элемент найден, то переменной Flag присваиваем значение True}

Inc(i);

end;

Check1 := Flag;

End;

Задача. Определить, является ли данный квадратный массив симметричным относительно своей главной диагонали.

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

а11 а 12 а 13 а 14 а 15 а 16 а 17
а 21 а 22 а 23 а 24 а 25 а 26 а 27
а 31 а 32 а 33 а 34 а 35 а 36 а 37
а 41 а 42 а 43 а 44 а 45 а 46 а 47
а 51 а 52 а 53 а 54 а 55 а 56 а 57
а 61 а 62 а 63 а 64 а 65 а 66 а 67
а 71 а 72 а 73 а 74 а 75 а 76 а 77

Заметим, что если массив является симметричным, то для него выполняется равенство A[i, j]=A[j, i] для всех i=1, ..., n и j=1, ..., n. Поэтому можно составить следующую функцию:

Function Check2(X : MyArray; n, m : integer) : Boolean;

Var

i, j : integer;

Flag : Boolean;

Begin

Flag := True; {Предполагаем, что матрица симметрична}

i := 2;

while Flag and (i<n) do

begin

j := 1;

while (j<i) and (X[i, j]=X[j, i]) do

Inc(j);

Flag := (j=i);

Inc(i);

end;

Check2 := Flag;

End;

Вопрос. Почему в функции употребляется условие i>j? Можно ли без него обойтись и что при этом изменится?








Дата добавления: 2015-05-16; просмотров: 988;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.007 сек.