Бинарные отношения. Корректировка пар

@kolyaz · Регистрация: 13.08.2014

Author24 — интернет-сервис помощи студентам

Во общем начну сначала-Программа должна определять свойства заданного отношения: рефлексивность, симметричность, антисимметричность, транзитивность(Пока не дошел). Проверку свойств выполнять по матрице бинарного отношения.
1. На вход подается множество A из n элементов и список упорядоченных пар, задающий отношение R элементы и пары вводятся с клавиатуры.

2. Результаты выводятся на экран (с необходимыми пояснениями) в следующем виде:

а) матрица бинарного отношения размера n´ n;
б) список свойств данного отношения.
В матрице отношения строки и столбцы должны быть озаглавлены (элементы исходного множества, упорядоченного по возрастанию).

А теперь проблема - при расчете пар в Memo не корректно ведёт себя проверка на вхождения элемента пары в множество А.
Например если ввести мн-во A:=as и соответсвенно пары
as
sa
ss
aa-она забракует не могу понять почему.
Вот код проверки:

Delphi

procedure TForm1.InitSortDouble(b:string);
    var k,i,j:Integer;a:string;
  begin
        i:=1;
        j:=1;
         for k:=0 to mmo2.Lines.Count-1 do
         a:=mmo2.Lines[k];
 
         if  (Length(a)>2) then begin
                                  ShowMessage('Только пары латинских букв  '+'Строка : '+(inttostr(k)));
 
                                end;
 
         begin
 
        while  (i<=Length(a)) and (j<=Length(b)) do
           if a[i]<b[j] then  begin
                                    ShowMessage(a[i]+' '+' Такого элемента нет в множестве A  '+'Строка : '+(inttostr(k)));
                                    Exit;
                              end
           else if a[i]>b[j] then
              inc(j)
             else if a[i] = b[j] then
              begin
                Inc(i);
                Inc(j);
              end;
             end;
         inc(k);
        end;

P.S.
Буду очень благодарен если поможете с проверкой на:рефлексивность, симметричность, антисимметричность, транзитивность

@kolyaz · 24.11.2014, 07:26 **[ТС]**

Неужели никто не может помочь

Добавлено через 19 часов 43 минуты
Всем спасибо.
Разобрался сам - надо было

Delphi

Inc(j);

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

Добавлено через 14 минут
Строка 26

	24.11.2014, 07:26