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

[Чужак]

Тема не игровая,может ближе к задачам, но именно в Играх завязываются коллективные проекты,
поэтому решил разместиться здесь.
Сначала теория. Человеский естественный язык, речь, согласно данным современной лингвистики весьма структурирована и насыщена различными структурами.
В языке можно выделить, например, такие понятийные пласты:
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. Ваше мнение?

[Чужак]

Archon, хорошее замечание.
Но ты прав лишь частично.
Язык ведь описывает мир? Каждое понятие
несет "зазмазанный круг смыслов", оно астрактно,
но, если точно подбирать слова, точность описания возрастает.
Вообще, этим вопросом занималась философия, начиная с досократиков, затем Сократ, средневековые споры "номиналистов" с "реалистами", немецкая классическая философия, марксиская философия.
Разные школы отвечали на него по разному...
В последней (вообще я далеко не марксист, и не материалист, но некоторые наработки советских философов из-за этого не выбрасываю) этот вопрос решался как "расхождение от абстрактного к конкретному", происходящий пошагово.
Но подвигаю философию в сторону. Абсолютного решения эта задача не имеет, но имеет практические аспекты.
Выкладываю улучшенную версию программы,
Используются бинарные пары "большой-маленький",
"теплый-холодный ", "белый-черный" и "жесткий-мягкий". "

Program AntonimicheskajaModel2;
 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}
     m[1]:='БОЛЬШОЙ'; m[2]:='МАЛЕНЬКИЙ';
     m[3]:='НЕ БОЛЬШОЙ, НЕ МАЛЕНЬКИЙ'; m[4]:='И БОЛЬШОЙ, И МАЛЕНЬКИЙ
     m[5]:='СКОРЕЕ БОЛЬШОЙ'; m[6]:='СКОРЕЕ МАЛЕНЬКИЙ';
     {***********************}
     m[7]:='ТЕПЛЫЙ'; m[8]:='ХОЛОДНЫЙ';
     m[9]:='НЕ ТЕПЛЫЙ, НЕ ХОЛОДНЫЙ'; m[10]:='И ТЕПЛЫЙ, И ХОЛОДНЫЙ';
     m[11]:='СКОРЕЕ ТЕПЛЫЙ'; m[12]:='СКОРЕЕ ХОЛОДНЫЙ';
     {***********************}
     m[13]:='БЕЛЫЙ'; m[14]:='ЧЕРНЫЙ';
     m[15]:='НЕ БЕЛЫЙ, НЕ ЧЕРНЫЙ'; m[16]:='И БЕЛЫЙ, И ЧЕРНЫЙ';
     m[17]:='СКОРЕЕ БЕЛЫЙ'; m[18]:='СКОРЕЕ ЧЕРНЫЙ';
     {***********************}
     m[19]:='ЖЕСТКИЙ'; m[20]:='МЯГКИЙ';
     m[21]:='НЕ ЖЕСТКИЙ, НЕ МЯГКИЙ'; m[22]:='И ЖЕСТКИЙ, И МЯГКИЙ';
     m[23]:='СКОРЕЕ ЖЕСТКИЙ'; m[24]:='СКОРЕЕ МЯГКИЙ';
{***********************}
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;  clrscr;
writeln(' ОБЪЕКТ ТЕПЛЫЙ ИЛИ ХОЛОДНЫЙ?');
writeln(' ВАРИАНТЫ ОТВЕТА:');
writeln(' 1-ТЕПЛЫЙ, 2- ХОЛОДНЫЙ');
writeln(' 3-НЕ ТЕПЛЫЙ, НЕ ХОЛОДНЫЙ, 4-И ТЕПЛЫЙ, И ХОЛОДНЫЙ ');
writeln(' 5-СКОРЕЕ ТЕПЛЫЙ, 6-СКОРЕЕ ХОЛОДНЫЙ ');
read(p2); i2:=p2+6;  clrscr;
writeln(' ОБЪЕКТ БЕЛЫЙ ИЛИ ЧЕРНЫЙ ?');
writeln(' ВАРИАНТЫ ОТВЕТА:');
writeln(' 1-БЕЛЫЙ, 2- ЧЕРНЫЙ');
writeln(' 3-НЕ БЕЛЫЙ, НЕ ЧЕРНЫЙ, 4-И БЕЛЫЙ, И ЧЕРНЫЙ ');
writeln(' 5-СКОРЕЕ БЕЛЫЙ, 6-СКОРЕЕ ЧЕРНЫЙ ');
read(p3); i3:=p3+12;  clrscr;
writeln(' ОБЪЕКТ  ИЛИ ?');
writeln(' ВАРИАНТЫ ОТВЕТА:');
writeln(' 1-ЖЕСТКИЙ, 2- МЯГКИЙ');
writeln(' 3-НЕ ЖЕСТКИЙ, НЕ , 4-И ЖЕСТКИЙ, И МЯГКИЙ ');
writeln(' 5-СКОРЕЕ ЖЕСТКИЙ, 6-СКОРЕЕ МЯГКИЙ ');
read(p4); i4:=p4+18;  clrscr;
if p1=i1 then begin
              writeln('******************');
              writeln('ОБЪЕКТ ',ob, '  ',m[i1]);
              writeln(m[i2]);
              writeln(m[i3]);
              writeln(m[i4]);
          end;
     end;
 if a='n' then writeln(' ПРОЩАЙТЕ  ',c);
 readkey; clrscr;
end.