Лингвистическая Антонимическая Модель, Описание в объектов Антонимах+Оболочка на Паскале Опции

[Чужак]

Тема не игровая,может ближе к задачам, но именно в Играх завязываются коллективные проекты,
поэтому решил разместиться здесь.
Сначала теория. Человеский естественный язык, речь, согласно данным современной лингвистики весьма структурирована и насыщена различными структурами.
В языке можно выделить, например, такие понятийные пласты:
1. Классификационные понятия. Обычные понятия обычного разговорного языка, отражающие предметное многообразие мира вокруг нас. Около 100-200 тыс.слов.
(Дом, стол, стул, дерево-это все они. Могут иметь множество уровней вложенности, но здесь речь не о них).
2. Антонимы, или бинарные оппозиции. Отражают противоположные качества либо стороны предметов.
(жесткий-мягкий, холодный-горячий, длинный короткий и т.д.
Сам насобирал около 30 пар).
Ну, теперь дошел до проектной части. Решил создать программу, народобие тестов, но с более сложной лингвистической и логической структурой. (Пока речь не о коде Паскаля, а логической упорядоченности).
Пользователь вводит свое имя и название объекта, допустим "сад", затем программа спрашивает у него
"Сад большой или маленький?" С вариантами ответа,
затем, к примеру "темный или светлый?" ит.д.
В конце выдает "сад большой/светлый".
Вот что получилось...

Program AntonimicheskajaModel;
 Uses Crt;
 Var a:char; i1,i2,p1,p2:integer;
     m:array[0..100] of string;
     c,ob,s:string;
begin {program}
 m[1]:='БОЛЬШОЙ'; m[2]:='МАЛЕНЬКИЙ'; m[3]:='НЕ БОЛЬШОЙ, НЕ МАЛЕНЬКИЙ';
 m[4]:='И БОЛЬШОЙ, И МАЛЕНЬКИЙ'; m[5]:='СКОРЕЕ БОЛЬШОЙ';
 m[6]:='СКОРЕЕ МАЛЕНЬКИЙ';
 m[7]:='ТВЕРДЫЙ'; m[8]:='МЯГКИЙ';m[9]:='НЕ ТВЕРДЫЙ, НЕ МЯГКИЙ';
 m[10]:='И ТВЕРДЫЙ, И МЯГКИЙ'; m[11]:='СКОРЕЕ ТВЕРДЫЙ';
 m[12]:='СКОРЕЕ МЯГКИЙ';
 writeln ('КАК ВАШЕ ИМЯ?');
 readln©;
 writeln (' НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?');
 readln(ob);
 writeln(' ЗДРАВСТВУЙТЕ, ',c);
 writeln(' ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " ',ob,' "(Y/N)?');
 readln(a);
 if a='y' then
 begin
 writeln(' ОБЪЕКТ БОЛЬШОЙ ИЛИ МАЛЕНЬКИЙ?');
 writeln(' ВАРИАНТЫ ОТВЕТА:');
 writeln(' 1-БОЛЬШОЙ, 2-МАЛЕНЬКИЙ ');
 writeln(' 3-НЕ БОЛЬШОЙ, НЕ МАЛЕНЬКИЙ, 4-И БОЛЬШОЙ, И МАЛЕНЬКИЙ ');
 writeln(' 5-СКОРЕЕ БОЛЬШОЙ, 6-СКОРЕЕ МАЛЕНЬКИЙ ');
 read(p1); i1:=p1;
 writeln(' ОБЪЕКТ ТВЕРДЫЙ ИЛИ МЯГКИЙ?');
 writeln(' ВАРИАНТЫ ОТВЕТА:');
 writeln(' 1-ТВЕРДЫЙ , 2-МЯГКИЙ ');
 writeln(' 3-НЕ ТВЕРДЫЙ , НЕ МЯГКИЙ, 4-И ТВЕРДЫЙ, И МЯГКИЙ ');
 writeln(' 5-СКОРЕЕ ТВЕРДЫЙ, 6-СКОРЕЕ МЯГКИЙ ');
 read(p2); i2:=p2+6;
 if p1=i1 then begin
           writeln('******************');
           writeln('ОБЪЕКТ ',ob,' ' , m[i1]);
           writeln( m[i2]);
                end;
 end;
 if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
 readkey;
end.

Предлагаю тему к коллективной разработке.
Для этого прошу:
1. Код программы. По моему, его улучшать и улучшать. Критикуйте.
2. Антонимы. Кто нибуть знает, где в Интернет взять электронный словарь антонимов?
Либо помогите с поиском Желательно иметь запас штук сто.
3. Ваше мнение?

[volvo]

Абсолютного решения эта задача не имеет, но имеет практические аспекты.

Какие? Все, что я вижу на данный момент - это просто ввод 4-х чисел, и вывод элементов массива, соответствующих этим числам... Все... Причем то же самое можно сделать в 3 раза короче.

Смысл твоей программы? Что она делает с парой "большой-маленький"? Она ее (а не название) использует как-то?

[Чужак]

Archon, забыл сказать одну важную вещь. Понятия можно сравнивать друг с другом. Так можно получить не только антонимы, но и градации по убыванию либо возрастанию одного и того же качества. Это более сложное явление, ГРАДУАЛЬНАЯ АНТОНИМИЯ, решил её пока не включать.
Вот смотри...(Пример не 100% корректен и единицы в нем условны-у.е. , но не U$D/Шутка/)
прекрасный(+5)-очаровательный(+4)-красивый(+3)-замечательный(+2)-хороший(+1)-обычный(0)-посредственный(-1)-неприглядный(-2)-плохой(-3)-скверный(-4)-безобразный(-5).
Многоуважаемый модератор Volvo!

Какие? Все, что я вижу на данный момент - это просто ввод 4-х чисел, и вывод элементов массива, соответствующих этим числам... Все... Причем то же самое можно сделать в 3 раза короче.
Смысл твоей программы?

Смысл моей программы-"автоматизация и формализация логических
операций". Ты её запускал или только бегло просмотрел код?
Она корявовата, но логико-семантические цепочки, которые она строит, не в счет?
Формальная логика позволяет выполнять действия над понятиями, как математика над числами, как компилляция над кодами (ИМХО).
А что касается

Что она делает с парой "большой-маленький"?
Она ее (а не название) использует как-то?

то не всё сразу...
Вот версия программы, которая использует, а кроме того,
строит инверсную модель, с обращением характеристик объекта
в противоположные.

Program AntonimicheskajaModel3;
 Uses Crt;
 Var a:char;
     i1,p1,i2,p2,i3,p3,i4,p4:integer;
     m:array[0..100] of string;
     c,ob:string;
begin {program}
    {здесь все, как в предидущем варианте}
 ................................
if p1=i1 then begin
         writeln('******************');
         writeln('ОБЪЕКТ ',ob, '  ',m[i1]);
         writeln(m[i2]); writeln(m[i3]); writeln(m[i4]);
         end;
 if frac(p1/2)>0 then i1:=i1+1 else i1:=i1-1;
 if frac(p2/2)>0 then i2:=i2+1 else i2:=i2-1;
  if frac(p3/2)>0 then i3:=i3+1 else i3:=i3-1;
  if frac(p4/2)>0 then i4:=i4+1 else i4:=i4-1;
  writeln('******************');
  writeln('ОБРАЩЕННЫЙ (ИНВЕРСНЫЙ) ОБЪЕКТ ',ob, '  ',m[i1]);
  writeln(m[i2]); writeln(m[i3]); writeln(m[i4]);
 end;
 if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
 readkey; clrscr;
end.

Сообщение отредактировано: Чужак - 25.03.2007 17:17