Индивидуальные задания. output Добрый день, Господа!

Вариант 1

GOAL: ways INITIAL:

Clear

release variable

e.lstr=250

output "Добрый день, Господа!"

output "Вы, путешествуя на своем лимузинчике,остановились передохнуть "

output "А когда набрались сил, то обнаружили,что лимузин не заводится"

output "Мы дадим Вам совет по устранению причин неисправностей" output "Но для этого Вы должны предоставить нам всю информацию"

output "Итак,поехали

fires=true

input fires logic with "Есть ли искра в блоке зажигания?"

DO: clear output reasons Test ways

Case 0: output "Заправьте горючим машину"; break Case 1: output "Отсоедините трубку и продуйте ее";

output "Затем, установите ее на место, попробуйте"; output "завести снова" Case 2: output "Зачистите клеммы шкуркой и попытайтесь"; output "завести машину

вновь"
Case 3: output "Если есть возможность, то замените аккумулятор.";
output "В противном случае вам придется";
output "заводить машину вручную"
Case 4: output "Отправляейтесь в автошколу"
Case 5: output "Попробуйте обратиться в автосервис"
EndTest
RULE: Rl
IF: fires

THEN: output

input petrol logic with "Поступает ли бензин в карбюратор?" REASON: Если есть искра, то нужен еще и бензин.

COMMENT: Поступает ли бензин в карбюратор.

RULE: R2

IF: not fires

THEN: output

input acommulate logic with "Окислены клемы аккумулятора?"

REASON: Если нет искры, то скорее всего окислились клеммы.

COMMENT: Окислился ли аккумулятор.

RULE: R3

IF: not petrol

THEN: output "Есть ли бензин в баке?" input ptrltank logic

REASON: Если бензин не поступает в карбюратор,то он кончился" COMMENT: Нет бензина в баке

лимузина"

RULE:R4

IF: not ptrltank

THEN: reasons="Koнчился бензин в баке" ways=0

REASON: Если нет бензина, то надо заправиться.

COMMENT: Пустой бак.

RULE:R5

IF: ptrltank

THEN: reasons="3acopилacь трубка бензонасоса" ways=1

REASON: Если бензин в баке есть,а в карбюраторе его нет, то надо прочистить трубки.

COMMENT: Засорились каналы подачи бензина RULE:R6

IF: acommulate

THEN: reasons=" Плохой контакт цепи зажигания с аккумулятором" ways=2

REASON: Если окислены контакты то их надо зачистить.

COMMENT: Плохой контакт аккумулятора с проводкой.

RULE:R7

IF: not acommulate

THEN: output "Аккумулятор выработал свой ресурс?" input lowenergy logic

REASON: Если нет искры и контакт в порядке, то скорее всего

Ваш аккумулятор пришел в негодность. COMMENT: Ресурс аккумулятора.

RULE:R8

IF: lowenergy

THEN: reasons="Baш аккумулятор стал непригодным." ways=3

REASON: Если сел аккумулятор, то его надо менять, либо заводить машину ~ручкой~.

COMMENT: Сел аккумулятор.

RULE:R9

IF: not lowenergy

THEN: output "Умеете ли вообще водить машину" input kolum logic

REASON: Если вы не умеете водить машину,то сначала научитесь.

COMMENT: Не умеешь водить.

RULE: R10

IF: not kolum

THEN: reasons="MHe жаль.Но вы не умеете водить машину. ways=4

REASON: Надо научиться

COMMENT: He умеешь водить

RULE: R12 IF: kolum THEN: output

output "Заведена ли машина "

input lowenergy logic with "He завел машину?"

output

output "Проверьте бензин"

input petrol logic with "Нет бензина?"

output

output "Проверьте клемы"

input accommulate logic with "Окислены клемы?" REASON: Может нет бензина. СОММЕNT: Поступает ли бензин.

VAR: fires

LABEL: Наличие искры в блоке зажигания

VAR: ways

FIND: reasons="Причина появления неполадок неизвестна" ways=5

LABEL: Способ устранения неполадок.

END:

В данном варианте предусмотреть изменения, учитывающие ситуации:

а) автомобиль заводится, но не едет;

б) автомобиль заводится, едет, но не туда, куда его направляет водитель.

Вариант 2

GOAL: ways

INITIAL: clear release variable

e.lstr=250 /* максимальная длина строки */

output " После окраски поверхности водными красками могут*/

output" проявиться дефекты."

output " мы постараемся дать вам совет по их устранинию и "

output " причинам появления."

output " но для этого вы должны предоставить мне всю "

output " информацию."

output " итак начнем..."

defects=true

output " появились ли дефекты на окрашенной поверхности?"

input defects logic

DO: clear output reasons output

output " Вот что вам следует сделать в данной ситуации " output Test ways

Case 0: output "Пойдите отдохните, у вас все в порядке."

Case 1: output "Попробуйте обратиться к более опытному";

output "специалисту."

Case 2: output "Очистить поверхность от слоя краски со";

output "шпаклевкой. Промыть 5%-м раствором";

output "кальцевой соды, нейтрализовать поверхность";

output "5%-м раствором соляной кислоты"; output "и вновь окрасить"

Case 3: output "Вырубить штукатурку на участке пятна,"; output "вновь оштукатурить и окрасить."

Case 4: output "Попробуйте обратиться к более опытному специалисту."

Case 5: output"";

output "Удалить старый набел, и промыть 3%-м";

output "раствором соляной кислоты и если пятна";

output "не велики, отгрунтовать меднокупоросной";

output "грунтовкой без мела, а при больших";

output "размерах щелочным или канифольным лаком."

Case 6: output "Промыть поверхность и окрасить из "

Case 7: output "Попробуйте обратиться к более опытному специалисту"

EndTest

RULE: Rl IF: defects THEN: output

input circle logic with " эти дефекты-пятна?" REASON-.если есть дефекты,то скорее всего это пятна. COMMENT: являются ли дефекты пятнами.

RULE: R2 IF: not defects THEN:

reasons="Bce сделали правильно."

ways=0 REASON: если нет дефектов то ничего делать не нужно.

comment: нетдефектов-отдыхай.

RULE: R3 IF: not circle THEN: output

input lines logic with "эти дефекты-полосы?"

REASON:eсли дефекты не пятна, то скорее всего это полосы.

comment:являются ли дефекты полосами.

RULE: R4 IF: circle THEN: output

input fatcrcl logic with "это жирные пятна?"

REASON: если дефекты-пятна,то скорее всего это жирные пятна.

соmment: являются ли пятна жирными.

RULE: R5 IF: fatcrcl THEN: output

output"окрашенная поверхность является"

output"штукатуркой? "

input sfcshtkr logic

output REASON: если пятна жирные то важно знать какая поверхность окраш. comment:на штукатурке жирные пятна.

RULE: R6 IF: not sfcshtkr THEN: output

output "окрашенная поверхность является "

output" железобетонной?"

input sfcsteel logic

REASON:eсли жирные пятна то важно знать как поверхность окраш. COMMENT: на железобетоне жирные пятна.

RULE: R7 IF: not sfcsteel THEN: output

reasons=" причина появления этих пятен мне неизвестна"

ways=l REASON:eсли жирные пятна появились на какой-то другой поверхности,то ничего

путного посоветовать вам я не могу COMMENT: жирные пятна на незарезервированной поверхности

RULE: R8

IF: sfcsteel

THEN: reasons="Ha железобетоне следы масел от смазки" ways=2

REASON: если жирные пятна на железобетоне,то эта проблема вполне разрешима.

COMMENT: способ устранения жирных пятен на железобетоне.

RULE: r9

IF: sfcshtkr

THEN: reasons="Ha штукатурке остались пятна невысыхающих масел" ways=3

REASON: если жирные пятна на штукатурке,то эта проблема вполне разрешима.

COMMENT: способ устранения жирных пятен на штукатурке.

RULE: rlO IF: not fatcrcl THEN: output

output"это желтые ржавые пятна?"

input rsvcrcl logic REASON: если дефекты не жирные пятна, то скорее всего это ржавые пятна. СОММЕNT:являются ли пятна ржавыми.

RULE:rll

IF: rsvcrcl

THEN: reasons="причина появления этих пятен мне не известна" ways=4

REASON:eсли появились какие-то другие пятна,то ничего путного посоветовать вам я не могу.

COMMENT: какие-то незарезервированные пятна на поверхности.

RULE: rl2

IF: rsvcrcl

THEN: reasons="происходит просачивание смолистых веществ че- reasons=rreasons+"pe3

штукатурку и краску"

ways=5 REASON:если жирные пятна на штукатурке, то эта проблема вполне разрешима. COMMENT: способ устранения жирных пятен на штукатурке.

RULE: rl3 IF: lines THEN:

reasons="Плoxo растушеван колер"

ways=6 REASON: если полосы на окрашенной поверхности, то эта проблема вполне разрешима. COMMENT: способ устранения полос.

RULE: rl4 IF: not lines

THEN: reasons="причина дефектов мне не известна" ways=7

REASON: если появились какие-то другие дефекты то ничего путного я вам посоветовать не могу.

COMMENT:какие-то незарезервированные дефекты на поверхности.

VAR: defects

label: наличие дефектов на окрашенной поверхности.

END:

В данном варианте необходимо предусмотреть изменения учитывающие ситуации:

а) появление пузырей на окрашенной поверхности;

б) отслаивание краски после высыхания.

Вариант 3

GOAL: d

INITIAL: clear release variable e.lstr=250

output " ДЕНЬ ДОБРЫЙ." output" Мы

постараемся дать "

output " вам совет, как из имеющихся продуктов сделать нечто " output " съедобное. Но для этого вы

должны предоставить мне " output " всю информацию."

output" И так, начнем..."

meatexst="Y"

output " Скажите,вы нашли в холодильнике мясо (Y/N)?"

input meatexst str using "a"

DO: clear

output " Вот что мне кажется приемлемым в данной ситуации." output Test d

Case 0: output "Лучше отправляйтесь в ресторан, ибо", output "без мяса нормального

обеда не получится"

Case 1: output "Лучше всего возьмите этот кусок мяса,";

output "отбейте, нашпигуйте. Затем возьмите сковородку";

output "и жарьте на медленном огне."

Case 2: output "Варите украинский борщ."

Case 3: output "Мяса очень мало, чтобы приготовить первое";

output "или второе, но может быть его хватит"; output "на мясной салат"

Case 4: output "Свалите все в одну кучу, затем мелко"; output "покрошите, если сам

повезет, то все"; output "будут довольны"

Case 5: output "Ничего не могу посоветовать"

EndTest

RULE: Rl

IF: (meatexst<> "Y" or meatexst<> "y")

THEN: output" Извините,вы вегетарианец (Y/N)?" input v str using "a"

RULE: R2

IF: (meatexst<> "Y" or meatexst<> "y") and (v<>"y" or v<>"Y")

THEN: d=0

RULE: R3

IF: v="y" or v="Y"

THEN: output

output "Ну,раз вы вегетарианец,то,наверное овощей "

output "у вас навалом (Y/N)?"

input vag str using "a"

RULE: R4

IF: meatexst="y" or meatexst="Y" THEN: output

output "Сколько грамм мяса вы имеете?"

input hm num using "nnnn"

output

output "На сколько персон задуман ваш обед?"

input hf num using "n"

RULE: R5

IF: meatexsto"Y" or meatexst<>"y''

THEN: output

output "Извините,а вы вегетарианец (Y/N)?" input v str using "a" RULE: R6 IF: hm/hf>300 THEN: d=l RULE: R7

IF: (hm/hf>80) and (hm/hf<=300) THEN: eme=true RULE: R8 IF: erne THEN: output " Мясо - это залог успеха."

output " Имеется ли в вашем распоряжении капуста (Y/N)?"

input ks str using "a"

input sv str using "a" with " свекла (Y/N)?"

input po str using "a" with " картофель (Y/N)?" RULE: R9

IF: (ks="y" or ks="Y") and (sv="y" or sv="Y") and (po="y" or po="Y") THEN: d=2 RULE: R10 IF: hm/hf<=80 THEN: eme=false RULE: Rll IF: not erne THEN: d=3 RULE: R12 IF: vag="Y" or vag="y" THEN: d=4 VAR:D FIND: d=5 LABEL: Как поступить если нужно приготовить обед.

VAR: MEATEXST

LABEL: Наличие мяса в вашем холодильнике.

VAR: EME

LABEL: Достаточно ли мяса для одного из первых блюд.

VAR:HM

LABEL: Примерный вес куска мяса.

VAR:HF

LABEL: Количество персон,приглашенных на обед.

VAR: KS

LABEL: Есть ли в доме капуста.

VAR: SV

LABEL: Есть ли в доме свекла.

VAR: PO

LABEL: Есть ли в доме картофель.

VAR: V

LABEL: Являетесь ли вы вегетарианцем.

END:

В данном варианте необходимо предусмотреть изменения, учитывающие ситуации:

а) наличие в холодильнике сыра;

б) наличие в холодильнике мяса.

Вариант 4

GOAL: whattodo

INITIAL: clear release variable e.lstr=250

output "Добрый день."

output "У вас сегодня экзамен, а вы проснулись слишком поздно..." output "Вам,

естественно,надо успеть на него, но как?" output "Мы постараемся дать вам совет, как, исходя

из сложившейся" output "ситуации, Вам следует поступить.Но для этого Вы должны" output

"представить мне всю информацию.И так, начнем..." output

lating="Y"

output "Скажите, Вы действительно опаздываете (Y/N)?"

input lating str using "a"

output "Какую оценку Вы хотите получить?"

input mar num using "n"

DO: clear

output "Вот что мне кажется приемлемым в данной ситуации." output

Test whattodo

Case 0: output "Берите такси до института. В такой";

output "ситуации деньги

значения не имеют."

Case 1: output "На очень важный экзамен не стоит слишком"; output "спешить. Вам

простят ваше опоздание. Так";

output "что спокойно поезжайте на

общественном";

output "транспорте."

Case 2: output "Все еще будет хорошо. Вам стоит взять";

output "такси на часть пути, до какого-нибудь";

output "метро или автобусной остановки"

Case 3: output "Все в порядке. Желаю вам ни пуха ни пера";

Case 4: output "Наверное, вы хорошо учитесь. Так что може-"

output "те не спешить на экзамен."

Case 5: output "Я не знаю, что вам посоветовать."

EndTest

RULE: Rl

IF: mainexam and biglate

THEN: whattodo=0

RULE: R2

IF: not mainexam

THEN: whattodo=l

RULE: R3

IF: not biglate and mainexam

THEN:

RULE: R4

IF: onlyge4

THEN: mainexam=false

RULE: R5

IF: veroyatn >= 90

THEN: mainexam=false

RULE: R6

IF: (veroyatn <90) and not onlyge4

THEN: mainexam=true

RULE: R7

IF: lating<>"Y"

THEN: whattodo=3

RULE: R8

IF: howcommon<onwalk+bymetro+bybus+l 5

THEN: biglate=true

RULE: R9

IF: howcommon >= onwalk+bymetro+bybus+15

THEN: biglate=false

VAR: whattodo

FIND: whattodo=4

LABEL: совет как действовать в данной ситуации.

VAR: mainexam

LABEL: предстоящий экзамен - важный.

VAR: biglate

LABEL: текущее опоздание - значительное.

VAR: lating

LABEL: Вы реально опаздываете.

VAR: howcommon

FIND: output

output "Сколько минут Вам добираться до института"

output "общественным транспортом?"

input howcommon num using "nnn" LABEL: время пути до института. VAR: onwalk FIND: output

output "Сколько минут Вам приходится идти пешком?"

input onwalk num using "nn" LABEL: Время вашего передвижения. VAR: bymetro FIND: output

output "Сколько минут вам приходится проводить в метро?"

input bymetro num using "nnn" LABEL: Время проезда в метрополитене. VAR: bybus FIND: output

output"Сколько времени вам приходится проводить в автобусе?"

input bybus num using "nnn" LABEL: Время проезда в автобусе,тролейбусе,трамвае. VAR: onlyge4 FIND: output

output''Ha предстоящем экзамене не ставят меньше 4?"

input onlyge4 logic LABEL: На предстоящем экзамене не ставят меньше 4. VAR: veroyatn FIND: output

output " Какова объективная вероятность получения вами" "желаемой оценки?" veroyatn num using "nn" LABEL: Объективная вероятность получения вами желаемой оценки

В данном варианте необходимо предусмотреть изменения, учитывающие ситуации:

а) свое плохое самочувствие (болезнь);

б) возможность позвонить экзаменатору в аудиторию, где проходит экзамен (предупредить).

Вариант 5

GOAL: youhouse INITIAL: clear release variable e.lstr=250

output "Добрый день."

output "Мы постараемся дать вам совет с помощью, которого"

output "вы сможете определить, хватит ли вам стройматери-"

output "алов на постройку дома."

output "Итак, начнем..."

sqrlaud=0

output "Сколько соток земли находится в вашем владении?"

input sqrlaud num using "nn"

clear

output "Вот что мне кажется приемлемым в данной ситуации."

Test youhouse

Case 0: output "Для вашего участка такая площадь" output "этажа не подходит."

Case 1: output "Вам не хватает кровельного материала" output "для того что бы накрыть свой дом." output "Вам нужно еще подкупить его, либо" output "пересмотреть проект."

Case 2: output "Вы имеете почти все необходимое" output "и если вы приложите достаточно" output "усилий, то у вас будет свой домик."

Case 3: output "Такие дома строить не надо. Не дразните" output "соседей, ведь они простые смертные." output "Поджечь могут..."

EndTest RULE: Rl IF: sqrland<10 THEN: enoughland=false

RULE: R2

IF: sqrland>=10

THEN: enoughland=true

RULE: R3

IF: enoughland

THEN: output "сколько этажей в доме будет?" input howflors num using "nn"

output "какова площадь одного этажа (кв. м.)?"

input howsqr num using "nn"

RULE: R4

IF: howsqr>sqrland*5

THEN: rightsqr=false

RULE: R5

IF: howsqr<=sqrland*5

THEN: rightsqr=true

RULE: R6

IF: not rightsqr

THEN: youhouse=0

RULE: R7

IF: howflors<=2

THEN: rightflors=true

RULE: R8

IF: howflors>2

TEEN: rightflors=false

RULE: R9

IF: rightflors and rightsqr

THEN: output

output "сколько тыс. шт. кирпича вы приготовили для "

output "строительства?"

input howbloks num using "nn"

RULE: R10

IF: howbloks<howbloks*howsqr*3

THEN: enoughbloks=false

RULE: Rl1

IF: howbloks>=howbloks*howsqr*3

THEN: enoughbloks=true

RULE: R12

IF: not enoughtbloks

THEN: enoughbloks=true

RULE: R13 IF: enoughbloks

THEN: output "Сколько кв. м. шифера или другого" output "кровельного материала вы имеете?"

input howshifer num using "nn"

RULE: R14

IF: howshifer>=howsqr* 1.2

THEN: enoughshifers=true

RULE:R15

IF: howshifers<howsqr* 1.2

THEN: enoughshifers=false

RULE: R16

IF: not enoughshifers

THEN: youhouse=l

RULE: R17

IF: enoughshifers and enoughbloks and enoughland THEN: youhouse=2

RULE:R18

IF: not rightfors

THEN: youhouse=3

VAR: SQRLAND

LABEL: площадь вашего участка

VAR: ENOUGHLAND

LABEL: достаточно ли площади вашего участка

VAR: HOWSOR

LABEL: площадь одного этажа в доме

VAR: HOWFLORS

LABEL: количество этажей в доме

VAR: RIGHTSQR

LABEL: соответствие площади этажа площади дома

VAR: RIGHTFLORS

LABEL: возможность постройки дома с такой этажностью

VAR: HOWSHIFERS

LABEL: количество кровельного материала (кв. м.)

VAR: ENOUGHSHIFERS

LABEL: достаточно ли кровельного материала

END: В данном варианте предлагается предусмотреть изменения учитывающие ситуации:

а) возможность заказать строительство дома строительной организации;

б) необходимость постройки гаража.

Вариант 6

GOAL: ways

INITIAL: clear release variable e.lstr=250

output "Паяльник неисправен,"

output "попробуем его исправить, итак"

output

temperat=true

output "паяльник недостаточно разогрелся"

input temperat logic

DO: clear output reasons output "Делать надо следущее" output ways

RULE: Rl

IF: temperat

THEN: output

output "После включения паяльник нагрелся?"

input lowtemp logic REASON: если недостаточно нагрелся до какой температуры? COMMENT:нагрелся ли паяльник хоть немного

RULE: R2

IF: not temperat

THEN: output

output "После включения паяльник перегрелся?"

input hightemp logic REASON: если перегрелся,то это межвитковое замыкание COMMENT:перегрелся ли паяльник

RULE: R3

IF: not lowtemp or hightemp

THEN: output

output "В порядке ли напряжение в сети?"

input power logic REASON: если паяльник не нагрелся вообще или перегрелся, то скорее всего

неисправна сеть COMMENT: напряжение в сети

RULE: R4

IF: lowtemp

THEN: output

output "He слышно ли потрескивания в паяльнике или соед. шнуре?"

input noice logic REASON: если паяльник недостаточно нагрелся то скорее всего разрыв в цепи питания или

нагревательного элемента COMMENT:слышен ли треск?

RULE: R5

IF: not hightemp and not temperat

THEN: reasons="Паяльник нагрелся нормально" ways="идите спать"

COMMENT: Нет дефектов

RULE: R6

IF: not power

THEN: output

reasons="Паяльник не причем"

ways="POWER ON"

REASON: Если нет напряжения, сделайте чтобы оно было COMMENT:Нет напряжения в сети

RULE: R7

IF: power and not lowtemp

THEN: output

output "В порядке ли шнур питания?"

input cabel logic

REASON: Если напряжение в порядке, то виноват шнур COMMENT:В порядке ли шнур питания

RULE: R8

IF: power and hightemp

THEN: reasons="Произошло замыкание" ways="Перемотать витки

или отдать в ремонт"

REASON: Если сетевое напряжение в порядке, то произошло межвитковое замыкание COMMENT:KopoTKoe замыкание

RULE: R9

IF: noice

THEN: cabel=false

REASON: Если слышен треск, то не в порядке шнур питания

COMMENT:Слышен треск

RULE: R10

IF: not noice

THEN: reasons="Источник питания не подходит" ways="Пoдключитe прибор к

источнику питания" REASON: COMMENT: Несоответствует источник питания

RULE: R11

IF: not cabel

THEN: reasons="'Износился шнур питания или вилка" ways="Заменить шнур

питания или вилка" COMMENT: Износился шнур питания

RULE: R12
IF: cabel

THEN: reason=" Причина неполадок мне неизвестна" ways="Обратитесь к более опытному специалисту"

VAR: temperat

LABEL: Паяльник разогрелся недостаточно

VAR: ways

FIND: reasons="Причина поломок неизвестна" ways="Обратитесь к

специалисту"

LABEL: СПОСОБ УСТРАНЕНИЯ НЕПОЛАДОК END:

В данном варианте предусмотреть изменения, учитывающие ситуации:

а) поломку жала паяльника;

б) очень длительное нагревание паяльника.

Вариант7 GOAL: computer

INITIAL: clear release varible e.lstr=250 output"Добрый день!" output"Представьте мне всю информацию" Power true output"Загорелся ли индикатор питания?" input Power logic

DO:

clear

output" Вот что я вам скажу "

output

Test computer

Case 0: output"Проверьте напряжение в сети"; output" или почините блок

питания и"; output"попробуйте еще раз." Case 1: output"'Проверьте напряжение в сети."; output"Включите дисплей и попробуйте еще

раз." Case 2: output"Вам следует вставить в дисковод системную"; output"дискету и перезагрузить

компьютер."

Case 3: output"Вам лучше вызвать мастера." Case 4: output"Проверьте содержимое файлов" output"autoexec.bat и config.sys и"

output" если там все в порядке, перезапишите ОС" EndTest

RULE: RI IF: Power THEN: output

output"Ну хоть питание в порядке, и то хорошо!"

output"Исправен и правильно ли подключен дисплей?"

input disp logic

REASON: Если в порядке питание, то в порядке ли дисплей? COMMENT: Для того что бы что-то увидеть, необходимо уст­ройство отображения информации.

RULE: R2

IF: not Power

THEN: output computer=0

REASON: Если нет питания, то необходимо его обеспечить. COMMENT: Необходимо нормальное питание.

RULE: R3

IF: not displ

THEN: output computer=l

REASON: He работает дисплей. Необходимо чтобы он работал.

COMMENT:Без работающего дисплея - не жить.

RULE: R4

IF: displ

THEN: output"Есть ли у вашего компьютера жесткий диск?" input harddisk logic

REASON: Если питание в порядке, то надо знать, подключен ли жесткий диск.

COMMENT: Подключен ли жесткий диск.

RULE: R5

IF: harddisk

THEN: output "Происходит обращение к диску (индикатор горит)?" input HDtest logic

REASON: Если установлен "винчестер", то проверим подключение.

COMMENT: Если "винт" на месте, то замечает ли его система.

RULE: R6

IF: not harddisk

THEN: output"Установлены ли на вашей машине дисководы?" input diskete logic

REASON: Если нет "винта", то дисководы на машине установлены?

COMMENT: Есть ли дисководы.

RULE: R7

IF: not HDtest

output" Установлены ли на вашей машине дисководы"
output"гибких дисков (I или более)?"

THEN: input diskete logic

REASON: Установлены ли дисководы на машине?

COMMENT: Есть ли дисководы.

RULE: R8

IF: HDtest

THEN: output"Выдается ли сообщение об ошибке чтения" output""винчестера"?"

input HDerror logic

REASON: Без ошибок ли проходит операция тестирования. COMMENT: Наличие ошибок тестирования диска.

RULE: R9

IF: HDerror

THEN: output"Установлены ли на вашей машине дисководы" output"гибких дисков (1

или более)?"

input diskete logic COMMENT: Есть ли дисководы

RULE: R10

IF: diskete

THEN: computer=2

REASON: Если "винт" не в порядке, то следует использовать гибкий диск для загрузки системы.

COMMENT: Следует использовать гибкий диск для загрузки системы.

RULE:R11

IF: not diskete

THEN: computer=3

REASON: Если не работают (отсутствуют) диск и дисководы, то не стоит пытаться

перезагрузить машину.

COMMENT: He работают диск и дисководы, следовательно, не стоит пытаться перезагрузить машину.

RULE: R12

IF: not HDerror

THEN: computer=4

REASON: Если нет ошибки чтения "винчестера", то все еще можно исправить, лишь бы

дисковод гибких дисков

был исправен. COMMENT: Нет ошибки чтения "винта".

VAR: Power

LABEL: Срабатывание световой индикации при включении компьютера.

END:

В данном варианте предлагается предусмотреть изменения, учитывающие ситуции: а) неисправность клавиатуры компьютера; в) неисправность манипулятора типа "мышь".

Вариант 8

GOAL: ways

INITAL: clear release varialle e.lstr=25O output

"Добрый день"

output "Для получения совета, необходимо" output "ответить на все вопросы."

gunsdef=true

output "При работе пистолета появились дефекты (Y/N)?" input gunsdef sr using "a"

DO: clear

output "Вот что я вам скажу!" output

Test ways

Case 0: output"У вас все в порядке."

Case 1: output"3acopeHa сетка резервуара,"; output"или недостаточный уровень краски"; output"B баке."; output"Прочистите сетку, либо добавьте"; output"краску в бак."

Case 2: output"У вас либо слабое давление на краску,"; output"либо слишком густая краска,"; output"либо неплотно прижат воздухопровод."; output"Отрегулируйте давление, либо разбавьте"; output"KpacKy растворителем, либо"; output"закрепите воздухопровод." Case 3: output"Мало воздуха или загрязнено"; output"отверстие сопла" Case 4: output"Загрязнен кончик иглы,"; output"либо сработалось сальниковое";

output" уплотнение иглы, либо недостаточная"; output"подача краски." Case 5: output"Сработалась игла сопла, либо"; output"игла не закрывает отверстие

сопла."; output"Необходимо протереть или сменить иглу." Case 6: output"Причина этих неполадок мне не известна."; output"Попробуйте обратиться

в мастерскую." EndTest

RULE: Rl

IF: gunsdef="Y" or gunsdef="y"

THEN: output "Что-то неладно со струей краски (Y/N)?" input drops str using "a"

REASON: Если есть дефекты, то скорее всего они связаны со струей краски.

COMMENT: Связаны ли дефекты со струей.

RULE: R2

IF: gunsdef<>"Y" and gunsdef<>"y"

THEN: output ways=0

REASON: Если нет дефектов, то ничего делать не нужно. COMMENT: Нет дефектов -

отдыхай.

RULE: R3

IF: notkrask="Y" or notkrask="y"

THEN: ways=l

REASON: Если совсем не поступает краска в краскопульт, то эта проблема вполне

разрешима.

COMMENT: Способ устранения неполадок, связанных с непоступлением краски в пистолет.

RULE: R4

IF: drops="Y" drops="y"

THEN: output

output "Слабый распыл струи?"

input lowfluct str using "a"

REASON: Если дефекты связаны со струей, то скорее всего это слабый распыл. COMMENT: Слабый ли распыл струи.

RULE: R5

IF: (drops="Y" or drops="y") and lowluct<>"Y" and lowfluct<>"y"

THEN: output

output" Слишком разбросанная струя, сильное"

output" туманообразование?"

input highfluct str using "a"

REASON: Если дефекты связанные со струей и струя не слабая, то скорее всего слишком

сильный распыл. COMMENT: Сильный ли распыл струи.

RULE: R6

IF: (drops="Y" or drops="y") and

(harddrops="Y" or harddrops="y") THEN: ways=2 REASON: Если струя краски подается резкими толчками, то эта проблема вполне

разрешима.

COMMENT: Способ устранения неполадок, связанных с резкими толчками струи краски в пистолете.

RULE: R7

IF: (drops="Y" or drops="y") and

(lowfluct="Y" lowfluct="y") THEN: ways=3

REASON: Если струя краски имеет слабый распыл, то это проблема вполне разрешима. COMMENT: Способ устранения неполадок, связанных со слабым распылом струи краскопульта.

RULE: R8

IF: (drops="Y" or drops="y") and

(higfluct="Y"orhifluct="у") THEN: ways=4 REASON: Если струя краски имеет сильный распыл, то эта проблема вполне разрешима.

COMMENT: Способ устранения неполадок, связанных с сильным распылом струи краскопульта.

RULE: R9

IF: not (drops="Y" or drops="y") and (badklap="Y" or badklap="y") THEN: ways=5 REASON: Если неполадки состоят в протечке краски при закрытом клапане, то эта

проблема вполне разрешима.

COMMENT: Способ устранения неполадок, связанных с протеканием краски при закрытом клапане.

VAR: gunsdef

LABLE: Наличие дефектов пистолета - краскопульта.

VAR: notkrask

FIND: output "Краска совсем не подается в пистолет (Y/N)?" input notkrask str using "a"

LABEL: Подача краски в пистолет.

VAR: harddrops

FIND: output "Наблюдаются резкие толчки и пульсация" output "струи (Y/N)?"

input harddrops str using "a" LABEL: Струя пульсирует и бывают резкие толчки.

VAR: BADLAP

FIND: output "Краска проходит при закрытом клапане (Y/N)?" input dabklap str using "a"

LABEL: Негоден клапан пистолета.

VAR: ways

FIND: ways=6

LABEL: Способ устранения неполадок.

END:

В данном варианте предлагается предусмотреть изменения, учитывающие ситуацию:

Наличие дефекта в пистолете, не связанного со струей (не нажимается кнопка приведения пистолета в действие, или краска вытекает из пистолета через какие-то щели, но не через сопло).

Вариант 9

GOAL: howrest

INITIAL: clear ulease variable e.lstr=250

output "Добрый день.";

output "Мы постараемся дать вам совет,"; output "как при вашем финансовом

положении"; output "отпуск."

finance=0

output "Какую сумму вы могли бы потратить?" input finance num

DO: clear

output "Вот что приемлено в данной ситуации:" Test howrest Case 0: output "Вы можете приобрести каждому";

output "по путевке в санаторий на побережье"; output "какой-либо реки, озера или водохранилища." Case 1: output "Вы можете приобрести каждому";

output "по путевке на побережье черного моря."

Case 2: output "Вы можете приобрести каждому по"; output "путевке на

Канарские острова"; output "или двухнедельный круиз." Case 3: output "Вам стоит подумать об отдыхе в лесу или"; output "горах, для такого

отдыха у вас"; output "средств достаточно." Case 4: output "Следует подумать либо о сокращении"; output "числа отдыхающих за

ваш счет,"; output "либо об увеличении суммы на отдых."

Case 5: output "На такую сумму можно отдохнуть"; output "только дома или на даче." Case 6: output "В таком финансовом положении вам";

output "стоит остаться дома и, возможно, разок-";

output "другой сходить в кафе "мороженое"." EndTest

RULE: Rl

IF: (finance/acount)>=5000 and (finance/acount)<9000

THEN: howrest=0

RULE: R2

IF: (finance/acount)>=9000 and (finance/acount)<90000

THEN: howrest=l

RULE: R3

IF: (finance/acount)>=90000

THEN: howrest=2

RULE: R4

IF: (finance/acount)<5000 and (finance/acount)>=3000

THEN: howrest=3

RULE: R5

IF: finance>3000

THEN: output

output "А сколько человек будут отдыхать за ваш счет?"

input acount num ising "nn"

RULE: R6

IF: (finance/acount)<3000

THEN: howrest=4

RULE: R7

IF: (finance/acount)<=3000 and finance> 1000

THEN: output "Простите за бестактный вопрос, вы" output "женаты (замужем) (Y/N)?" input wife str using "a"

RULE: R8

IF: (wife="Y") or (wife="y")

THEN: output "Вы проведете отпуск вместе? (Y/N)" input withwife str using "a"

RULE: R9

IF: (withwife="Y") or (withwife="y")

THEN: howrest="На такую сумму на двоих можно отдохнуть" howrest=howrest+''только сидя дома или на даче."

RULE: R10

IF: finance<=1000

THEN: howrest=5

RULE: Rll

IF: wife<>"Y" or wife<>"y" or withwife<>"Y" or withwife<>"y"

THEN: output "Вы хотели бы выбраться на природу? (Y/N)" input townout str using "a"

RULE: R12

IF: townout="Y" or townout="y"

THEN: output "Вам нравится отдых в лесу? (Y/N)" input forest str using "a"

RULE: R13

IF: (townout="Y" or townout="y") and forest<>"Y" and forest<>"y"

THEN: output"Вам нравится отдых в горах? (Y/N)" input mountain str using "a"

RULE: R14

IF: (townout="Y" or townout="y") and mountain<>"Y" and mountain<>"y"

THEN: howrest=6

RULE: R15

IF: forest="Y" or forestry"

THEN: howrest=7

RULE: R16

IF: mountain="Y" or mountain="y"

THEN: howrset=8

RULE: R17

IF: townout<>"y" or townout<>"Y"

THEN: howrest=9

VAR: finance

LABEL: Сумма, которую вы готовы потратить на отдых.

END:

В данном варианте предлагается предусмотреть изменения, учитывающие:

а) возможность подзаработать за некоторое время отпуска и потратить заработанное на отпуск.

б) возможность одолжить деньги на проведение отпуска.