program AntonimSyperModel2; uses crt; const t=6; var i,j,k,l,w:integer; a:char; c,ob,A1,A2,A3:string; m:array[0..20] of string; n:array[0..100] of string; d:array[0..20] of integer; begin clrscr; i:=0; j:=0; k:=0; l:=0; w:=0; writeln('ВВЕДИТЕ АНТОНИМЫ'); while (i<t) do begin readln(m[i]); i:=i+1; end; while (j<t) do begin n[j]:='Не '+m[j]+' Не '+m[j+1]; n[t+j]:=' И '+m[j]+' И '+m[j+1]; n[2*t+j]:='СКОРЕЕ '+m[j]; n[3*t+j]:='СКОРЕЕ '+m[j+1]; j:=j+2; end; clrscr; writeln ('КАК ВАШЕ ИМЯ?'); readln(c); writeln (' НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ?'); readln(ob); writeln(' ЗДРАВСТВУЙТЕ, ',c); writeln(' ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " ',ob,' "(Y/N)?'); readln(a); if a='y' then begin clrscr; while (k<t) do begin writeln('ОБЪЕКТ " ',ob,'" ',m[k], ' ИЛИ ', m[k+1], '?'); writeln('ВАРИАНТЫ ОТВЕТА'); writeln('1- ', m[k]); writeln('2- ',m[k+1]); writeln('3- ', n[k]); writeln('4- ',n[k+t]); writeln('5- ', n[k+2*t]); writeln('6- ', n[k+3*t]); readln(d[k]); clrscr; k:=k+2; end; clrscr; writeln(' ОБЪЕКТ " ',ob,' "'); while (l<t) do begin if d[l]=1 then writeln(m[l]); if d[l]=2 then writeln(m[l+1]); if d[l]=3 then writeln(n[l]); if d[l]=4 then writeln(n[l+t]); if d[l]=5 then writeln(n[l+2*t]); if d[l]=6 then writeln(n[l+3*t]); l:=l+2; end; writeln('********************'); writeln(' ИНВЕРСНЫЙ ОБЪЕКТ " ',ob,' "'); while (w<t) do begin if d[w]=1 then writeln(m[w+1]); if d[w]=2 then writeln(m[w]); if d[w]=3 then writeln(n[w+t]); if d[w]=4 then writeln(n[w]); if d[w]=5 then writeln(n[w+3*t]); if d[w]=6 then writeln(n[w+2*t]); w:=w+2; end; writeln('********************'); writeln(' АНТИНОМИИ ОБЪЕКТА " ',ob,' "'); A1:='НЕ'+ob; A2:='АНТИ'+ob; A3:='БЕЗ'+ob; writeln(A1); writeln(A2); writeln(A3); end; if a='n' then writeln(' ПРОЩАЙТЕ ',c); readkey; clrscr; end. Программа строит описания при помощи антонимов. 1) Вводятся антонимы А и В (их количество можно менять, меняя константу t, t-четная!). 2) Вводится название объекта изучения ОВ (дом, стол, человек, партия, христианство-все, что угодно). 3) Программма задает вопросы "объект А или В?" и варианты по принципу ВЫБОР-А, В, ИСКЛЮЧЕНИЕ- НЕ А, НЕ В, ВКЛЮЧЕНИЕ-И А, И В, ПРЕДПОЧТЕНИЕ-СКОРЕЕ А, СКОРЕЕ В. 4) Программа строит описание объекта, инверсное (обратное) описание, и аниномии объекта по принципу НЕ ОВ-все, кроме ОВ, АНТИ ОВ-против ОВ, БЕЗ ОВ-отсутствие ОВ. (Важно! Не все результаты, полученные путем антиномии, имеют логический смысл! Антиномия может создавать пустые классы!) Результаты тестов программы прилагаются. ВВЕДИТЕ АНТОНИМЫ bolshoy malenkiy tolstiy tonkiy holodniy gorachiy chestkiy magkiy krugliy kvadratniy temniy svetliy КАК ВАШЕ ИМЯ? Chujak НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ? mettallisheskiy prut ЗДРАВСТВУЙТЕ, Chujak ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " mettallisheskiy prut "(Y/N)? y ОБЪЕКТ " mettallisheskiy prut" bolshoy ИЛИ malenkiy ВАРИАНТЫ ОТВЕТА 1- bolshoy 2- malenkiy 3- Не bolshoy Не malenkiy 4- И bolshoy И malenkiy 5- СКОРЕЕ bolshoy 6- СКОРЕЕ malenkiy 1 ОБЪЕКТ " mettallisheskiy prut" tolstiy ИЛИ tonkiy ВАРИАНТЫ ОТВЕТА 1- tolstiy 2- tonkiy 3- Не tolstiy Не tonkiy 4- И tolstiy И tonkiy 5- СКОРЕЕ tolstiy 6- СКОРЕЕ tonkiy 5 ОБЪЕКТ " mettallisheskiy prut" holodniy ИЛИ gorachiy ВАРИАНТЫ ОТВЕТА 1- holodniy 2- gorachiy 3- Не holodniy Не gorachiy 4- И holodniy И gorachiy 5- СКОРЕЕ holodniy 6- СКОРЕЕ gorachiy 2 ОБЪЕКТ " mettallisheskiy prut" chestkiy ИЛИ magkiy ВАРИАНТЫ ОТВЕТА 1- chestkiy 2- magkiy 3- Не chestkiy Не magkiy 4- И chestkiy И magkiy 5- СКОРЕЕ chestkiy 6- СКОРЕЕ magkiy 3 ОБЪЕКТ " mettallisheskiy prut" krugliy ИЛИ kvadratniy ВАРИАНТЫ ОТВЕТА 1- krugliy 2- kvadratniy 3- Не krugliy Не kvadratniy 4- И krugliy И kvadratniy 5- СКОРЕЕ krugliy 6- СКОРЕЕ kvadratniy 6 ОБЪЕКТ " mettallisheskiy prut" temniy ИЛИ svetliy ВАРИАНТЫ ОТВЕТА 1- temniy 2- svetliy 3- Не temniy Не svetliy 4- И temniy И svetliy 5- СКОРЕЕ temniy 6- СКОРЕЕ svetliy 1 ОБЪЕКТ " mettallisheskiy prut " bolshoy СКОРЕЕ tolstiy gorachiy Не chestkiy Не magkiy СКОРЕЕ kvadratniy temniy ******************** ИНВЕРСНЫЙ ОБЪЕКТ " mettallisheskiy prut " malenkiy СКОРЕЕ tonkiy holodniy И chestkiy И magkiy СКОРЕЕ krugliy svetliy ******************** АНТИНОМИИ ОБЪЕКТА " mettallisheskiy prut " НЕmettallisheskiy prut АНТИmettallisheskiy prut БЕЗmettallisheskiy prut ВВЕДИТЕ АНТОНИМЫ dobriy zloy horoshiy plohoy soverchenniy rarvivajuchiysa КАК ВАШЕ ИМЯ? Chujak НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ? Chelovec ЗДРАВСТВУЙТЕ, Chujak ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " Chelovec "(Y/N)? y ОБЪЕКТ " Chelovec" dobriy ИЛИ zloy ВАРИАНТЫ ОТВЕТА 1- dobriy 2- zloy 3- Не dobriy Не zloy 4- И dobriy И zloy 5- СКОРЕЕ dobriy 6- СКОРЕЕ zloy 1 ОБЪЕКТ " Chelovec" horoshiy ИЛИ plohoy ВАРИАНТЫ ОТВЕТА 1- horoshiy 2- plohoy 3- Не horoshiy Не plohoy 4- И horoshiy И plohoy 5- СКОРЕЕ horoshiy 6- СКОРЕЕ plohoy 4 ОБЪЕКТ " Chelovec" soverchenniy ИЛИ rarvivajuchiysa ВАРИАНТЫ ОТВЕТА 1- soverchenniy 2- rarvivajuchiysa 3- Не soverchenniy Не rarvivajuchiysa 4- И soverchenniy И rarvivajuchiysa 5- СКОРЕЕ soverchenniy 6- СКОРЕЕ rarvivajuchiysa 2 ОБЪЕКТ " Chelovec " dobriy И horoshiy И plohoy rarvivajuchiysa ******************** ИНВЕРСНЫЙ ОБЪЕКТ " Chelovec " zloy Не horoshiy Не plohoy soverchenniy ******************** АНТИНОМИИ ОБЪЕКТА " Chelovec " НЕChelovec АНТИChelovec БЕЗChelovec ВВЕДИТЕ АНТОНИМЫ bolshoy malenkiy dlinniy korotkiy КАК ВАШЕ ИМЯ? Chujak НАЗВАНИЕ ОБЪЕКТА ИЗУЧЕНИЯ? kosmos ЗДРАВСТВУЙТЕ, Chujak ПРИСТУПИМ К ИЗУЧЕНИЮ ОБЪЕКТА " kosmos "(Y/N)? y ОБЪЕКТ " kosmos" bolshoy ИЛИ malenkiy ВАРИАНТЫ ОТВЕТА 1- bolshoy 2- malenkiy 3- Не bolshoy Не malenkiy 4- И bolshoy И malenkiy 5- СКОРЕЕ bolshoy 6- СКОРЕЕ malenkiy 5 ОБЪЕКТ " kosmos" dlinniy ИЛИ korotkiy ВАРИАНТЫ ОТВЕТА 1- dlinniy 2- korotkiy 3- Не dlinniy Не korotkiy 4- И dlinniy И korotkiy 5- СКОРЕЕ dlinniy 6- СКОРЕЕ korotkiy 1 ОБЪЕКТ " kosmos " СКОРЕЕ bolshoy dlinniy ******************** ИНВЕРСНЫЙ ОБЪЕКТ " kosmos " СКОРЕЕ malenkiy korotkiy ******************** АНТИНОМИИ ОБЪЕКТА " kosmos " НЕkosmos АНТИkosmos БЕЗkosmos