.

Разработка фрагментов оболочки экспертной системы

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 1364
Скачать документ

Ainoaea?noaaiiue eiieoao ?inneeneie Oaaea?aoeee

ii Aunoaio Ia?aciaaieth

Iineianeee Ainoaea?noaaiiue einoeooo ?aaeeioaoieee, yeaeo?iieee e
aaoiiaoeee

Oaeoeueoao: Eeaa?iaoeee

Eaoaae?a: EON

Eo?niaie i?iaeo

Aeenoeeieeia: Ooioeeiiaeueiia i?ia?aiie?iaaiea

Oaia: ?ac?aaioea o?aaiaioia iaiei/ee yenia?oiie nenoaiu

Caaeaiea: E.10

Nooaeaio: ?uaeia I. A.

A?oiia: AE-1-93

?oeiaiaeeoaeue: Oieeei E.E.

IINEAA 1996

Niaea?aeaiea

Caaeaiea……………………………………………………….
…………………………………..3

Aaaaeaiea………………………………………………………
………………………………….4

1. Iacaaiea i?ia?aiiu e aa
aaoi?………………………………………………….5

2. Aiaeec i?aaeiaoiie
iaeanoe………………………………………………………..
5

3. Auai? niiniaa i?aaenoaaeaiey
ciaiee…………………………………………6

4. ?ac?aaioea iaith yenia?oiie
nenoaiu………………………………………..10

5. ?ac?aaioea i?ioeaaeo?
iaiei/ee………………………………………………….12

6. Iienaiea i?ia?aiiu ia
micro-LISP…………………………………………..20

7. E?aoeia iienaiea ano?iaiiuo i?aaeeeaoia e

ooieoeee micro-LISP, eniieuecoaiuo a
i?ia?aiia…………………………..21

8. Ioeaaeea
i?ia?aiiu………………………………………………………
…………….23

9. Eino?oeoeey iieueciaaoaeth e i?eia?
auiieiaiey………………………..23

Caeeth/aiea…………………………………………………….
………………………………..24

Aeaeeia?aoe/aneee
nienie…………………………………………………………
……26

I?eeiaeaiea
A……………………………………………………………..
………………………27

I?eeiaeaiea
A……………………………………………………………..
………………………35

Caaeaiea ? e.10

ia eo?niaia i?iaeoe?iaaiea ii aeenoeeieeia

“Ooieoeeiiaeueiia i?ia?aiie?iaaiea”

nooaeaioo: ?uaeiie Ia?eia Aiaoieueaaia

a?oiia AE-1-93

1. Oaia enneaaeiaaiey: ?ac?aaioea o?aaiaioia iaiei/ee yenia?oiie

nenoaiu.

2. Enoiaeiua aeaiiua

2.1 I?aaeiaoiay iaeanoue – caaieaaaiey ai?oaie: ea?eiaeo ino?ue,
ea?eiaeo o?iie/aneee eaoa?aeueiue, ea?eiaeo o?iie/aneee
aeia?o?ioe/aneee, ea?eiaeo o?iie/aneee ao?ioe/aneee

2.2 sscue i?ia?aiie?iaaiey microLISP

3. Ia?a/aiue aii?inia, iiaeeaaeaueo ?ac?aaioea

3.1 I?iaanoe aiaeec i?aaeiaoiie iaeanoe e aua?aoue niinia

i?aaenoaaeaiey ciaiee

3.2 ?ac?aaioaoue iaith, iaania/eaathuaa acaeiiaeaenoaea

iieueciaaoaey n nenoaiie, i?aaeoniio?aa ?aaeeiu:

3.2.1 Aeiaaaeaiey a AC

3.2.2 Caa?ocee AC

3.2.3 I?iniio?a

3.2.4 Ei??aeoe?iaee

3.2.5 Nio?aiaiey

3.2.6 Oaeaeaiey

3.2.7 Eiae/aneiai auaiaea

3.2.8 Iauyniaiey eiae/aneiai auaiaea

4. Ia?a/aiue a?aoe/aneeo iaoa?eaeia

4.1 No?oeoo?a iaith

4.2 No?oeoo?iay noaia i?ia?aiiu

5. Eaeaiaea?iue ieai-a?aoee

5.1 Iieo/aiea caaeaiey 12.03.96

5.2 Aiaeec caaeaiey, iinoaiiaea caaea/e,

iiaeai? eeoa?aoo?u 19.03.96

5.3 Aiaeec i?aaeiaoiie iaeanoe e i?iaeoe?iaaiea AC 26.03.96

5.4 ?ac?aaioea iaith e no?oeoo?u i?ia?aiiu 2.04.96

5.5 ?ac?aaioea i?ioeaaeo? iaiei/ee yenia?oiie nenoaiu 16.04.96

5.6 Ioeaaeea i?ia?aiiu 30.04.96

5.7 Ioi?ieaiea iiynieoaeueiie caienee e naea/a

ia i?iaa?eo 14.05.96

8. Caueoa 21.05.96

?oeiaiaeeoaeue /Oieeei E.E.: _____________

Nooaeaio /?uaeia I.A: _____________

Aaaaeaiea

Naaiaeiy anai, eoi ?aaioaao a iaeanoe eioi?iaoeee eee eioa?anoaony
yoie iiaie iaeanoueth iaoee, ecaanoai oa?iei “yenia?oiua nenoaiu”.
Yenia?oiay nenoaia (expert system, knowledge based system) – yoi
i?ia?aiiiay nenoaia, ciaiey e oiaiey eioi?ie n?aaieiu n oiaieai e
ciaieyie niaoeeaeenoia a eaeie-ieaoaeue niaoeeaeueiie iaeanoe ciaiee.
Yenia?oiua nenoaiu aianoa n nenoaiaie ia?aaioee anoanoaaiiuo ycueia
yaeythony iaeaieaa aaaeiuie a eiiia?/aneii ieaia iaeanoyie
eniieueciaaiey eneonnoaaiiiai eioaeeaeoa.

A ?aieao enneaaeiaaiey eneonnoaaiiiai eioaeeaeoa nicaeaiu
iiiai/eneaiiua yenia?oiua nenoaiu aeey ?aciuo iaeanoae ciaiey,
oaeeo, iai?eia?, eae iaaeeoeeineay aeeaaiinoeea e ianeaaeiaaiea
iaoeeaioia, aaiiua e iieaeoey?iua enneaaeiaaiey, ninoaaeaiea
eiioeao?aoeee au/eneeoaeueiuo iaoei, ia?aciaaiea, iiene iaeni?aaiinoae
a ono?ienoaao e nenoaiao e iiiaea ae?oaea i?aeoe/aneea i?eeiaeaiey. A
yoie ?aaioa ?ac?aaaouaaaony yenia?oiay nenoaia, naycaiiay n
aeeaaiinoeeie caaieaaaiee.

1. Iacaaiea i?ia?aiiu e aa aaoi?

Aeaiiay i?ia?aiia (FUN.LSP) iaienaia ia ycuea microLISP a oaenoiaii
?aaeaeoi?a NortonEdit. I?ia?aiia ?aaioaao n aacie ciaiee, iaoiaeyuaeny a
ioaeaeueiii oaeea. A aeaiiii neo/aa – BD2.LSP.

I?ia?aiio ?ac?aaioaee nooaeaiou a?oiiu AE-1-93 *anoooei Aeoaeee e ?uaeia
Ia?eia. Iaiaoiaeeii ioiaoeoue, /oi a ?aaioa eniieueciaaiu iaoa?eaeu
niioaaonoaothueo ?ac?aaioie nooaeaioia a?oiiu AE-1-92.

2. Aiaeec i?aaeiaoiie iaeanoe

A aeaiiie eo?niaii i?iaeoa i?aaeiaoioth iaeanoue ninoaaeytho
caaieaaaiey ai?oaie, a eiaiii: ea?eiaeo ino?ue, ea?eiaeo o?iie/aneee
eaoa?aeueiue, ea?eiaeo o?iie/aneee aeia?o?ioe/aneee, ea?eiaeo
o?iie/aneee ao?ioe/aneee.

O eaaeaeie aieacie eiaaony iaai? i?eciaeia eee, au?aaeaynue
iaaeeoeeineeie oa?ieiaie, neiioiiia.

Aeey oaeianoaa aini?eyoey aiaeec i?aaeiaoiie iaeanoe naaaeai a oaaeeoeo
1. A iae a noieaoeu iaicia/aiu iacaaieyie aieaciae, a no?iee –
iacaaieyie neiioiiia. Ia ia?ana/aiee niioaaonoaothueo noieaoeia e no?ie
noieo ciae “+”, anee neiioii aeaenoaeoaeueii i?eiaaeeaaeeo enneaaeoaiie
aieacie. Iaeie e oa aea neiioiiu iiaoo yaeyoueny i?eciaeaie iaeiie e oie
aea aieacie, iiyoiio iaeioi?ua ec ieo (neiioiiia) ia?ae?uaathony.

oaaeeoea1

neiioii (

aieaciue( ea?eiaeo ino?ue ea?eiaeo
o?iie/aneee eaoa?aeueiue ea?eiaeo o?iie/aneee aeia?o?ioe/aneee ea?eiaeo
o?iie/aneee ao?ioe/aneee

1. iauaa iaaeiiiaaiea + + + +

2. nooinoue ia?oaiea, naaeiaiea + +

+

3. eaoaeue nia/aea nooie, caoai n iie?ioie +

4. aiein o?eieue eee aaccao/iue + +

+

5. eiiaaea aieue i?e aeioaiee +

6. aieiaiay aieue +

7. iiauoaiea oaiia?aoo?u oaea +

8. auno?ay ooiieyaiinoue aieina

+

9. ia?eiaee/aneee eaoaeue n iie?ioie

+

10. io?eieinoue n aoiieae

+

11. iuouaiea iaeiaeinoe

+

12. aeaeaiea a ai?ea

+

13. eaoaeue i?e iaino?aiee

+

14. nooie eaoaeue

+

15. neecenoay iie?uoa aonoie neecueth

+

16. ioeaoeeaaiea n i?iaeeeeaie e?iae

+

Neaaeothuei yoaiii i?iaeoe?iaaiey aoaeao yaeyoueny ?ac?aaioea (auai?)
niiniaa i?aaenoaaeaiey yoeo ciaiee.

3. Auai? niiniaa i?aaenoaaeaiey ciaiee

*oiau i?iaiaeeoue ynia?oeco, eiiiuethoa?iay i?ia?aiia aeieaeia
auoue niiniaia ?aoaoue caaea/e iin?aaenoaii eiae/aneiai auaiaea e
iieo/aoue i?e yoii aeinoaoi/ii iaaeaaeiua ?acoeueoaou. I?ia?aiia
aeieaeia eiaoue aeinooi e nenoaia oaeoia, iacuaaaiie aacie ciaiee.
I?ia?aiia oaeaea aeieaeia ai a?aiy eiinoeueoaoeee
auaiaeeoue caeeth/aiey ec eioi?iaoeee, eiathuaeny a aaca
ciaiee. Iaeioi?ua yenia?oiua nenoaiu iiaoo oaeaea eniieueciaaoue
iiaoth eioi?iaoeeth, aeiaaaeyaioth ai a?aiy eiinoeueoaoeee.
Yenia?oioth nenoaio, oaeei ia?acii, iiaeii i?aaenoaaeyoue
ninoiyuae ec o?ao /anoae:

1. Aaca ciaiee (AC)

2. Iaoaieci auaiaea (IA)

3. Nenoaia iieueciaaoaeueneiai eioa?oaena (NIE)

Aaca ciaiee – oeaio?aeueiay /anoue yenia?oiie nenoaiu. Iia
niaea?aeeo i?aaeea, iienuaathuea ioiioaiey eee yaeaiey, iaoiaeu e
ciaiey aeey ?aoaiey caaea/ ec iaeanoe i?eiaiaiey nenoaiu. Iiaeii
i?aaenoaaeyoue aaco ciaiee ninoiyuae ec oaeoe/aneeo ciaiee e ciaiee,
eioi?ua eniieuecothony aeey auaiaea ae?oaeo ciaiee. Ooaa?aeaeaiea
“Aeaeii O. Eaiiaaee aue 35-i i?aceaeaioii Niaaeeiaiiuo Ooaoia” –
i?eia? oaeoe/aneiai ciaiey. “Anee o aan aieeo aieiaa, oi i?eieoa
aeaa oaaeaoee oeeo?aiiia” – i?eia? ciaiey aeey auaiaea. Naia aaca
ciaiee iau/ii ?aniieaaaaony ia aeenea eee ae?oaii iineoaea.

Iaoaieci auaiaea niaea?aeeo i?eioeeiu e i?aaeea ?aaiou.
Iaoaieci auaiaea “ciaao”, eae eniieueciaaoue aaco ciaiee oae,
/oiau iiaeii auei iieo/aoue ?acoiii niaeanothueany caeeth/aiey
(auaiaeu) ec eioi?iaoeee, iaoiaeyuaeny a iae. Eiaaea yenia?oiie
nenoaia caaeaaony aii?in, iaoaieci auaiaea auae?aao niinia i?eiaiaiey
i?aaee aacu ciaiee aeey ?aoaiey caaea/e, iinoaaeaiiie a aii?ina.
Oaeoe/anee, iaoaieci auaiaea caioneaao yenia?oioth nenoaio a ?aaioo,
ii?aaeaeyy eaeea i?aaeea ioaeii aucaaoue e i?aaiecoy e iei aeinooi a
aaco ciaiee. Iaoaieci auaiaea auiieiyao i?aaeea, ii?aaeaeyao eiaaea
iaeaeaii i?eaieaiia ?aoaiea e ia?aaeaao ?acoeueoaou i?ia?aiia
eioa?oaena n iieueciaaoaeai.

Eiaaea aii?in aeieaeai auoue i?aaeaa?eoaeueii ia?aaioai, oi aeinooi
e aaca ciaiee inouanoaeyaony /a?ac eioa?oaen n iieueciaaoaeai.
Eioa?oaen – yoi /anoue yenia?oiie nenoaiu, eioi?ay acaeiiaeaenoaoao n
iieueciaaoaeai.

Eae i?aaeei, iieueciaaoaee iaei ciatho ia i?aaiecaoeee
aacu ciaiee, iiyoiio eioa?oaen iiaeao iiii/ue ei ?aaioaoue n
yenia?oiie nenoaiie aeaaea, anee iie ia ciatho, eae iia
i?aaieciaaia. Eioa?oaen iiaeao oaeaea iauynieoue iieueciaaoaeth , eaeei
ia?acii yenia?oiay nenoaia auaiaeeo ?acoeueoao.

Nenoaia eioa?oaena n iieueciaaoaeai i?eieiaao eioi?iaoeeth
io iieueciaaoaey e ia?aaeaao aio eioi?iaoeeth. I?inoi aiai?y,
nenoaia eioa?oaena aeieaeia oaaaeeoueny, /oi, iinea oiai eae
iieueciaaoaeue iienae caaea/o, any iaiaoiaeeiay eioi?iaoeey
iieo/aia. Eioa?oaen, iniiauaaynue ia aeaea e i?e?iaea
eioi?iaoeee, aaaaeaiiie iieueciaaoaeai, ia?aaeaao iaiaoiaeeioth
eioi?iaoeeth iaoaiecio auaiaea. Eiaaea iaoaieci auaiaea
aica?auaao ciaiey, auaaaeaiiua ec aacu ciaiee, eioa?oaen
ia?aaeaao eo ia?aoii iieueciaaoaeth a oaeiaiie oi?ia. Eioa?oaen n
iieueciaaoaeai e iaoaieci auaiaea iiaoo ?anniao?eaaoueny eae
“i?eeiaeaiea” e aaca ciaiee. Iie aianoa ninoaaeytho iaiei/eo
yenia?oiie nenoaiu. Aeey aacu ciaiee, eioi?ay niaea?aeeo iaoe?ioth e
?aciiia?acioth eioi?iaoeeth, iiaoo auoue ?ac?aaioaiu e ?aaeeciaaiu
ianeieueei ?aciuo iaiei/ae. Oi?ioi ?ac?aaioaiiua iaiei/ee yenia?oiuo
nenoai iau/ii niaea?aeao iaoaieci aeey aeiaaaeaiey e iaiiaeaiey
eioi?iaoeee a aaca ciaiee.

Eae aeaeei , yenia?oiay nenoaia ninoieo ec o?ao iniiaiuo
/anoae. Acaeiinaycue iaaeaeo /anoyie iiaeao auoue neiaeiie,
caaenyuae io i?e?iaeu e i?aaiecaoeee ciaiee, a oaeaea io iaoiaeia
e oeaeae auaiaea.

Aacu ciaiee e niiniau i?aaenoaaeaiey

I?iaeoeoeeiiiay iiaeaeue

Yoi iaeei ec iaeaieaa /anoi eniieuecoaiuo a yenia?oiuo nenoaiao
niiniaia i?aaenoaaeaiey ciaiee. Iniiaiay eaeay caeeth/aaony a
annioeee?iaaiee n niioaaonoaothueie aeaenoaeyie iaai?a oneiaee a
aeaea i?aaee oeia “anee-oi”, iacuaaaiuo oaeaea i?iaeoeoeeyie:

ANEE oneiaea OI aeaenoaey

“Anee-oi”-i?aaeea iau/ii ieacuaathony aanueia anoanoaaiiui
au?aceoaeueiui n?aaenoaii i?aaenoaaeaiey ciaiee. E?iia oiai, iie
iaeaaeatho neaaeothueie i?eaeaeaoaeueiuie naienoaaie:

– iiaeoeueiinoue: eaaeaeia i?aaeei iienuaaao iaaieueoie,
ioiineoaeueii iacaaeneiue o?aaiaio ciaiee;

– aiciiaeiinoue eie?aiaioiiai ia?aueaaiey: aeiaaaeaiea iiauo i?aaee

a aaco ciaiee i?ienoiaeeo ioiineoaeueii iacaaeneii io ae?oaeo i?aaee;

– oaeianoai iiaeeoeeaoeee (eae neaaenoaee iiaeoeueiinoe): noa?ua
i?aaeea iiaeii eciaiyoue e caiaiyoue ia iiaua ioiineoaeueii iacaaeneii
io ae?oaeo i?aaee;

– i?eiaiaiea i?aaee niinianoaoao i?ic?a/iinoe nenoaiu, o.a.
niiniaiinoe e iauyniaieth i?eiyouo ?aoaiee e iieo/aiiuo ?acoeueoaoia.

Iaeiaei i?iaeoeoeeiiiua nenoaiu ia naiaiaeiu io iaaeinoaoeia:

– i?ioeann auaiaea iaiaa yooaeoeaai, /ai a ae?oaeo nenoaiao,
iineieueeo aieueoay /anoue a?aiaie i?e auaiaea cao?a/eaaaony ia
iai?iecaiaeeoaeueioth i?iaa?eo i?eiaieiinoe i?aaee;

– yoio i?ioeann o?oaeii iiaeaeaaony oi?aaeaieth;

– neiaeii i?aaenoaaeoue ?iaeiaeaeiaoth ea?a?oeth iiiyoee.

O?aeiu

I?aaenoaaeaiea ciaiee, iniiaaiiia ia o?aeiao, yaeyaony
aeueoa?iaoeaiui ii ioiioaieth e nenoaiai i?iaeoeoeee: iii aeaao
aiciiaeiinoue o?aieoue ?iaeiaeaeiaoth ea?a?oeth iiiyoee a aaca ciaiee
a yaiie oi?ia. O?aeiii iacuaaaony no?oeoo?a aeey iienaiey noa?aioeiiie
neooaoeee, ninoiyuay ec oa?aeoa?enoee yoie neooaoeee e eo cia/aiee,
oa?aeoa?enoeee iacuaathony neioaie, a cia/aiey – caiieieoaeyie neioia.
Neio iiaeao niaea?aeaoue ia oieueei eiie?aoiia cia/aiea, ii e eiy
i?ioeaaeo?u, iicaieythuae au/eneeoue aai ii caaeaiiiio aeai?eoio, a
oaeaea iaeio eee ianeieueei i?iaeoeoeee (ya?enoee), n iiiiuueth
eioi?uo yoi cia/aiea iiaeii iaeoe. A neio iiaeao aoiaeeoue ia iaeii, a
ianeieueei cia/aiee. Eiiaaea neio aeeth/aao eiiiiiaio, iacuaaaiue
oanaoii, eioi?ue caaeaao aeeaiacii eee ia?a/aiue aai aiciiaeiuo
cia/aiee. Oanao oeacuaaao oaeaea a?aie/iua cia/aiey caiieieoaey neioa.

Niaieoiiinoue o?aeiia, iiaeaee?othuay eaeoth-ieaoaeue
i?aaeiaoioth iaeanoue, i?aaenoaaeyao niaie ea?a?oe/aneoth no?oeoo?o, a
eioi?oth o?aeiu niaaeeiythony n iiiiuueth ?iaeiaeaeiauo naycae. Ia
aa?oiai o?iaia ea?a?oee iaoiaeeony o?aei, niaea?aeauee iaeaieaa iieioth
eioi?iaoeeth, enoeiioth aeey anao inoaeueiuo o?aeiia. O?aeiu
iaeaaeatho niiniaiinoueth ianeaaeiaaoue cia/aiey oa?aeoa?enoee naieo
?iaeeoaeae, iaoiaeyueony ia aieaa aunieii o?iaia ea?a?oee. Cia/aiey
oa?aeoa?enoee o?aeiia iiaoo ia?aaeaaaoueny ii oiie/aieth o?aeiai,
iaoiaeyueiny ieaea ieo a ea?a?oee, ii anee iineaaeiea niaea?aeao
nianoaaiiua cia/aiey aeaiiuo oa?aeoa?enoee, oi a ea/anoaa enoeiiuo
i?eieiathony eiaiii iie.

Iaeaieaa y?ei aeinoieinoaa o?aeiiauo nenoai i?aaenoaaeaiey ciaiee
i?iyaeythony a oii neo/aa, anee ?iaeiaeaeiaua nayce eciaiythony ia/anoi
e i?aaeiaoiay iaeanoue ian/eouaaao iaiiiai eneeth/aiee. Ai o?aeiiauo
nenoaiao aeaiiua i ?iaeiaeaeiauo naycyo o?aiyony yaii, o.a. oae aea, eae
e cia/aiey anao ae?oaeo oeiia. Cia/aiey neioia i?aaenoaaeythony a
nenoaia a aaeeinoaaiiii yecaiiey?a, iineieueeo aeeth/athony oieueei a
iaeei o?aei, iienuaathuee iaeaieaa iauaa iiiyoea ec anao oao,
eioi?ua niaea?aeao neio n aeaiiui eiaiai. Oaeia naienoai nenoai o?aeiia
aeaao aiciiaeiinoue oiaiueoeoue iauai iaiyoe, iaiaoiaeeiue aeey eo
?aciauaiey a eiiiuethoa?a. Aua iaeii aeinoieinoai o?aeiia ninoieo a oii,
/oi cia/aiea ethaiai neioa i?e iaiaoiaeeiinoe iiaeao auoue au/eneaii n
iiiiuueth niioaaonoaothueo i?ioeaaeo? eee iaeaeaii ya?enoe/aneeie
iaoiaeaie.

Eae iaaeinoaoie o?aeiiauo nenoai neaaeoao ioiaoeoue eo
ioiineoaeueii aunieoth neiaeiinoue, /oi i?iyaeyaony a nieaeaiee nei?inoe
?aaiou iaoaiecia auaiaea e a oaaee/aiee o?oaeiaieinoe aianaiey
eciaiaiee a ?iaeiaeaeiaoth ea?a?oeth. E?iia oiai, ai o?aeiiauo nenoaiao
cao?oaeiaia ia?aaioea eneeth/aiee.

Naiaioe/aneea naoe

Naiaioe/aneay naoue, ii iiaieth niaoeeaeenoia, – iaeaieaa iauee
niinia i?aaenoaaeaiey ciaiee, i?e/ai iia iiyaeeanue, ii-aeaeeiiio,
?aiaa ae?oaeo. A iae iiiyoey e eeannu, a oaeaea ioiioaiey e nayce
iaaeaeo ieie i?aaenoaaeaiu a aeaea naoe. Naiaioe/aneay naoue ioia?aaeaao
niaieoiiinoue iauaeoia i?aaeiaoiie iaeanoe e ioiioaiee iaaeaeo ieie,
i?e yoii iauaeoai niioaaonoaotho aa?oeiu (eee oceu) naoe, a ioiioaieyi –
niaaeeiythuea eo aeoae. A ea/anoaa iauaeoia iiaoo aunooiaoue niauoey,
aeaenoaey, iaiauaiiua iiiyoey eee naienoaa iauaeoia. Naienoaa
i?aaenoaaeythony a naoe oaeaea a aeaea aa?oei e neoaeao aeey iienaiey
eeannia iauaeoia. Aa?oeiu naoe niaaeeiythony aeoaie, anee
niioaaonoaothuea iauaeou i?aaeiaoiie iaeanoe iaoiaeyony a eaeii-eeai
ioiioaiee.

Eae e a nenoaia, iniiaaiiie ia o?aeiao, a naiaioe/aneie naoe iiaoo
auoue i?aaenoaaeaiu ?iaeiaeaeiaua ioiioaiey, eioi?ua iicaieytho
?aaeeciaaoue ianeaaeiaaiea naienoa io iauaeoia-?iaeeoaeae. Yoi
ianoiyoaeuenoai i?eaiaeeo e oiio, /oi naiaioe/aneea naoe i?eia?aoatho
aieueoeinoai iaaeinoaoeia e aeinoieinoa i?aaenoaaeaiey ciaiee a aeaea
o?aeiia. Ii iniiaiia i?aeiouanoai naiaioe/aneeo naoae caeeth/aaony a eo
iaaeyaeiinoe e iaiin?aaenoaaiiie naycaiiinoe iiiyoee /a?ac naoue,
eioi?ay iicaieyao auno?i iaoiaeeoue nayce iiiyoee e ia yoie iniiaa
oi?aaeyoue i?eieiaaiuie ?aoaieyie. Eiaiii yoio oi?iaeeci aue
eniieueciaai a aeaiiie ?aaioa a ea/anoaa oi?iaeecia aeey
i?aaenoaaeaiey ciaiee a AC. Iniiaiie iaaeinoaoie naoae – neiaeiinoue
ia?aaioee eneeth/aiee. Oaeei ia?acii, eniieuecoy aeaiiua iiiyoey, iaoa
II ia ycuea microLISP i?aaenoaaeyaony neaaeothuei ia?acii:

((1 “iauaa iaaeiiiaaiea”)

(2 “nooinoue, ia?oaiea, naaeiaiea”)

(3 “eaoaeue nia/aea nooie, caoai n iie?ioie”)

(4 “aiein o?eieue eee aaccao/iue”)

(5 “eiiaaea aieue i?e aeioaiee”)

(6 “aieiaiay aieue”)

(7 “iiauoaiea oaiia?aoo?u oaea”)

(8 “auno?ay ooiieyaiinoue aieina”)

(9 “ia?eiaee/aneee eaoaeue n iie?ioie”)

(10 “io?eieinoue n aoiieae”)

(11 “iuouaiea iaeiaeinoe”)

(12 “aeaeaiea a ai?ea”)

(13 “eaoaeue i?e iaino?aiee”)

(14 “nooie eaoaeue”)

(15 “neecenoay iie?uoa aonoie neecueth “)

(16 “ioeaoeeaaiea n i?iaeeeeaie e?iae”))

((“ea?eiaeo ino?ue” (1 2 3 4 5 6 7))

(“ea?eiaeo o?iie/aneee eaoa?aeueiue” (1 2 4 8 9))

(“ea?eiaeo o?iie/aneee aeia?o?ioe/aneee” (1 10 11 12 13))

(“ea?eiaeo o?iie/aneee ao?ioe/aneee” (1 2 4 14 15 16)))

4. ?ac?aaioea iaith yenia?oiie nenoaiu

iaania/eaathuaai caaeaiiua ?aaeeiu

Aeey iaania/aiey iaeaieaa iiiyoiie ?aaiou n i?ia?aiiie ?ac?aaioaia
ea?a?oe/aneay no?oeoo?a iaith.

Nenoaia iieueciaaoaeueneiai eioa?oaena iaania/eaaao acaeiiaeaenoaea
iaaeaeo yenia?oiie nenoaiie e iieueciaaoaeai. Yoi acaeiiaeaenoaea iau/ii
aeeth/aao ianeieueei ooieoeee:

1. Ia?aaioea aeaiiuo, iieo/aiiuo n eeaaeaoo?u, e aunaa/eaaiea
aiaeeiuo e auaiaeeiuo aeaiiuo ia ye?aia.

2. Iiaeaea?aeea aeeaeiaa iaaeaeo iieueciaaoaeai e nenoaiie.

3. ?aniiciaaaiea neooaoeee iaiiieiaiey iaaeaeo iieueciaaoaeai
e nenoaiie.

4. Iaania/aiea “ae?oaeanoaaiiinoe” ii ioiioaieth e
iieueciaaoaeth.

Nenoaia eioa?oaena n iieueciaaoaeai aeieaeia yooaeoeaii
ia?aaaouaaoue aaiae e auaiae. Aeey yoiai iaiaoiaeeii ia?aaaouaaoue
aaiaeeiua e auaiaeeiua aeaiiua auno?i, a yniie e au?aceoaeueiie
oi?ia. Iaiaoiaeeii oaeaea aeeth/eoue aiciiaeiinoue ?aaiou n
aeiiieieoaeueiuie n?aaenoaaie oaeeie, eae iaaieoiua aeenee e
aeiiieieoaeueiua oaeeu aeaiiuo.

E?iia oiai, nenoaia eioa?oaena aeieaeia iiaeaea?aeeaaoue
niioaaonoaothuee aeeaeia iaaeaeo iieueciaaoaeai e nenoaiie. Aeeaeia
– yoi iauay oi?ia eiinoeueoaoeee n yenia?oiie nenoaiie.

Eiinoeueoaoeey aeieaeia caaa?oaoueny yniui ooaa?aeaeaieai,
auaeaaaaiui nenoaiie, e iauyniaieai iineaaeiaaoaeueiinoe auaiaea,
i?eaaaeoae e yoiio ooaa?aeaeaieth.

No?oeoo?iay noaia nenoaiu iaith i?aaenoaaeaia ia ?en.1

Aeaaiia iaith

1.Files 2.DataBase 3.Diagnosticka
4.Quit

1. LOAD 2. SAVE 1. ADD 2. DELETE 3.
REDACT 4. VIEW

Aeiaaaeaiea Aeiaaaeaiea Oaeaeaiea
Oaeaeaiea ?aaeaeoe?iaaiea ?aaeaeoe?iaaiea

neiioiiia aieaciae neiioiiia iaeni?aaiinoae
neiioiiia iaeni?aaiinoae

Iauyniaiea

eiae/aneiai

auaiaea

?en.1 No?oeoo?iay noaia iaith

5. ?ac?aaioea i?ioeaaeo? iaiei/ee

1. I?ioeaaeo?a “Caa?ocea” (loading): caa?ocea AAe i?iecaiaeeony
iooai caa?ocee oaeea n eiaiai, oeacaiiui iieueciaaoaeai, a
iia?aoeaioth iaiyoue aeey eniieueciaaiey aai niaea?aeeiiai a i?ia?aiia.

Aoiae

Aaiae eiaie oaeea

aeey caa?ocee

Caa?ocea oaeea

n yoei eiaiai

Auoiae

2. I?ioeaaeo?a “Nio?aiaiea” (saving): nio?aiaiea AAe icia/aao
caienue

aa niaea?aeeiiai ec iia?aoeaiie iaiyoe a oaee n eiaiai, oeacaiiui
iieueciaaoaeai. Yoa i?ioeaaeo?a iicaieyao nio?aieoue eciaiaiey,
i?iecaaaeaiiua n AAe ai a?aiy ?aaiou.

Aoiae

Aaiae eiaie oaeea

aeey caiene

Caienue AAe a oaee

n yoei eiaiai

Auoiae

3. I?ioeaaeo?a “Aeiaaaeaiea” (adding): aeiaaaeaiea aeaeeony ia
aeiaaaeaiea neiioiiia e aeiaaaeaiea aieaciae. A ia?aii neo/aa
cai?aoeaaaony iacaaiea aieacie, e eioi?ie ioaeii aeiaaaeoue neiioii,
caoai aaiaeeony neiioii, e i?ienoiaeeo aeiaaaeaiea.

Eiaaony aiciiaeiinoue aeiaaaeoue n?aco ianeieueei neiioiiia.

Aoiae

Aaiae iacaaiey aieacie

Aaiae neiioiia

Aeiaaaeaiea neiioiia e

aaaaeaiiie ?aiaa aieacie

Aua

+ Auoiae

Aeiaaaeaiea aieacie inouanoaeyaony iooai aaaaeaiey n eeaaeaoo?u
iiaiai iacaaiey aieacie e aa neiioiiia (aeey ieii/aiey aaiaea neiioiiia
iaiaoiaeeii iaa?aoue ‘end’). Aeiaaaeaiea i?ienoiaeeo a eiiaoe AAe.

Aoiae

Aaiae iacaaiey aieacie

Aaiae neiioiia

_

end

+

Aeiaaaeaiea aieacie

e anao aa neiioiiia

Auoiae

4. I?ioeaaeo?a “I?iniio?” (viewing): inouanoaeyaony i?iniio? anae AAe,
niaea?aeauaeny a aeaiiue iiiaio a iia?aoeaiie iaiyoe.

Aoiae

Auaiae iacaaiey aieacie

Auaiae neiioiiia yoie

aieacie

+

Ionoa

AAe?

_

Auoiae

5. I?ioeaaeo?a “Eiae/aneee auaiae” (expert): eiinoeueoaoeey
inouanoaeyaony neaaeothuei ia?acii: n iiiiuueth caaeaiey aii?inia
iieueciaaoaeth i oii, anoue ee o iaai eaeie-oi neiioii, i?ia?aiia
ii?aaeaeyao aeeaaiic. A i?ioeanna ?aaiou i?ioeaaeo?a a iia?aoeaiie
iaiyoe oi?ie?oao a?aiaiiua aeeiaie/aneea aacu aeaiiuo: AAe-YES (AAe,
niaea?aeauay neiioiiu, ia eioi?ua iieueciaaoaeue ioaaoee “Aea”) e AAe-NO
(AAe, niaea?aeauay neiioiiu, ia eioi?ua iieueciaaoaeue ioaaoee “Iao”).
Aeey oiai, /oiau i?ioeaaeo?a auaaea aeeaaiic, iaiaoiaeeii, /oiau
iieueciaaoaeue ioaaoee “Aea” ia ana aii?inu i neiioiiao,
oa?aeoa?ecothueo yoo aieaciue. Noaia aeai?eoia aeaiiie i?ioeaaeo?u
i?aaenoaaeaia ieaea.

Aoiae

eiiaoe Auai?

aieacie

ec AAe

Auoiae

Auai? eiiaoe

neiioiia

yoie

aieacie Auaiae
yoie

aieacie

Ii _
Auoiae

anoue

a AAe-

YES

Ii +

+
anoue

a AAe-

NO

_

Auaiae
aii?ina i oii,

anoue ee o
iieueciaaoaey

yoio
neiioii

Aeiaaaeoue aai a
Aeiaaaeoue aai

AAe-YES
a AAe-NO

_

Aea?

+

6. I?ioeaaeo?a “Iauyniaiea eiae/aneiai auaiaea” (logout): aeaiiay
i?ioeaaeo?a auaiaeeo nienie neiioiiia aieacie, eioi?ay auea iieo/aia n
iiiiuueth i?ioeaaeo?u eiae/aneiai auaiaea, iauyniyy yoei aa aeeaaiic.

Aoiae

Auai? ii?aaeaeaiiie aieacie ec AAe

Auaiae neiioiiia yoie aieacie

Auoiae

7. I?ioeaaeo?a “Oaeaeaiea” (deleting): oaeaeaiea aeaeeony ia oaeaeaiea
neiioiiia e oaeaeaiea aieaciae. I?e oaeaeaiee neiioiia iaiaoiaeeii
aaanoe iacaaiea aieacie, eioi?ie i?eiaaeeaaeeo neiioii, iiaeeaaeauee
oaeaeaieth, a oaeaea iacaaiea naiiai neiioiia. Eiaaony aiciiaeiinoue
oaeaeeoue ianeieueei neiioiiia o aieacie (aeey ieii/aiey aaiaea
oaeaeyaiuo i?eciaeia iaiaoiaeeii iaa?aoue ‘end’).

Aoiae

Aaiae iacaaiey aieacie

Aaiae neiioiia, iiae-

eaaeauaai oaeaeaieth

+

End

Auoiae

I?e oaeaeaiee aieacie cai?aoeaaaony aa iacaaiea. Aianoa n iae ec
AAe oaeaeythony e ana aa neiioiiu.

Aoiae

Aaiae iacaaiey aieacie

Oaeaeaiea yoie aieacie

e anao aa neiioiiia

Auoiae

8. I?ioeaaeo?a “?aaeaeoe?iaaiea” (redacting): ?aaeaeoe?iaaiea
aeaeeony ia ?aaeaeoe?iaaiea neiioiiia e ?aaeaeoe?iaaiea aieaciae. A
ia?aii neo/aa aaiaeeony iacaaiea aieacie, neiioii eioi?ie ioaeii
eni?aaeoue, nai neiioii e aai io?aaeaeoe?iaaiiia cia/aiea.

Ec AAe oaeaeyaony noa?ia cia/aiea neiioiia e aeiaaaeyaony iiaia.

Aoiae

Aaiae iacaaiey aieacie

Aaiae neiioiia aeey eni?aaeaiey

Oaeaeaiea yoiai neiioiia

Aaiae eni?aaeaiiiai neiioiia

Aeiaaaeaiea iiaiai cia/aiey

Auoiae

I?e ?aaeaeoe?iaaiee aieacie iaiaoiaeeii aaanoe aa iacaaiea e caoai
iiaia eni?aaeaiiia cia/aiea. I?ioeaaeo?a oaeaeeo noa?ia cia/aiea e
aeiaaaeo iiaia.

Aoiae

Aaiae iacaaiey aieacie

Oaeaeaiea yoie aieacie

Aaiae eni?aaeaiiiai

cia/aiey

Aeiaaaeaiea iiaiai

cia/aiey

Auoiae

Start

mainmenu

menufiles menubd menucons
quit

log_out

loading saving adding deleting
viewing redacting

plus plussym delill delsym
redill redsym

6. Iienaiea i?ia?aiiu ia micro-LISP

No?oeoo?iay noaia i?ia?aiiu ia Eenia ecia?aaeaia ia ?en.2.
Ia iniiaiuo i?ioeaaeo?ao iaienaii a ?acaeaea “?ac?aaioea i?ioeaaeo?
iaiei/ee”, a eioi?ii i?aaenoaaeaiu noaiu aeai?eoiia eo ?aaiou. Oaeno
i?ia?aiiu iaoiaeeony a I?eeiaeaiee A, oaeno aacu ciaiee – a I?eeiaeaiee
A.

Oaia?ue ia?aeaeai iaiin?aaenoaaiii e iienaieth i?ia?aiiu. Aeaaiay
i?ioeaaeo?a start caioneaao i?ioeaaeo?o mainmenu (iia i?aaenoaaeaia a
aeaea aaneiia/iiai oeeeea do, oaeaea i?aaenoaaeaiu e ana iiaeiaith:
menufiles, menubd e o.ae.). Mainmenu ?enoao aeaaiia iaith e caeanue aea
n iiiiuueth au?aaeaiey cond e eq? i?aaieciaaiii iieo/aiea auai?a e
caione aua?aiiie i?ioeaaeo?u.

I?ioeaaeo?a saving inouanoaeyao caienue AAe a oaee n iiiiuueth
ano?iaiiiai au?aaeaiey with-output-to-file e ooieoeee write (ana yoi
i?aaieciaaiii a aeaea lambda-au?aaeaiey).

Caa?ocea oaeea (i?ioeaaeo?a loading) i?ienoiaeeo n iiiiuueth
ano?iaiiuo with-input-from-file e read (i?e/ai AAe aieaciae
i?aaenoaaeaia a aeaea nienea *it_is*, a neiioiiia a aeaea nienea
*simptom*).

Iinoaiiaea aeeaaiica inouanoaeyaony n iiiiuueth ooieoeee experting.
Ec AAe auae?aaony aieaciue ill, aa?aony nienie aa neiioiiia spis_num e n
iiiiuueth ooieoeee exp_ill (spis_num,ill) ii?aaeaeyaony, anoue ee o
iieueciaaoaey yoe neiioiiu. Anee yoa ooieoeey aoaeao eiaeiie (ia cai?in
iieueciaaoaeue ioaaoee io?eoeaoaeueii), oi i?iecieaeao ?aeo?neaiue
aucia ooieoeee experting io eiioea nienea aieaciae (o.a. a aeaeueiaeoai
aoaeao aua?aia neaaeothuay e o.ae.).A i?ioeanna ?aaiou ooieoeee n
iiiiuueth ooieoeee set! oi?ie?othony nienee iieiaeeoaeueiuo e
io?eoeaoaeueiuo ioaaoia iieueciaaoaey *yes* e *no*. Anee ooieoeey
experting auiieieea naith ?aaioo e aeeaaiic iinoaaeai oniaoii, oi
ooieoeey log_out (iauyniaiea eiae/aneiai auaiaea) auaiaeeo ia ye?ai
iacaaiea ii?aaeaeaiiie aieacie e aa neiioiiu (ooieoeey eniieuecoao
aeey yoiai ooieoeeth cond e ?aeo?neth).

A ?aaeeia i?iniio?a nienea aieaciae e neiioiiia (view_ill)
eniieuecoaony cond e ?aeo?neaiue aucia ooieoeee io oainoa nienea,
/oi iicaieyao auaanoe ana niaea?aeeiia AAe ia ye?ai.

A ?aaeeia aeiaaaeaiey aieaciae (add_ill) e neiioiiia (add_sym)
eniieuecoaony ano?iaiiay ooieoeey append (aeey niaaeeiaiey nieneia), a
?aeo?neaiue aucia ooieoeee addsyms iaania/eaaao aiciiaeiinoue
aeiaaaeaiey e aieacie ianeieueeeo neiioiiia. I?e ?aaeaeoe?iaaiee
aieaciae (red_ill) e neiioiiia (red_sym) noa?ia cia/aiea oaeaeyaony n
iiiiuueth ooieoeee delete! (oaeaeaiea yeaiaioa ec nienea), a iiaia
iaaaeyaony n iiiiuueth append.

Oaeaeaiea aieaciae (del_ill) inouanoaeyaony n iiiiuueth ooieoeee
delete!. I?e oaeaeaiee aieacie aaoiiaoe/anee oaeaeythony e ana aa
neiioiiu (?aeo?neaii aucuaay naia naay io eiioea oaeaeyaiiai nienea
i?eciaeia ooieoeey delsyms iineaaeiaaoaeueii oaeaeyao ana neiioiiu
yoie aieacie).

Oaeaeaiea neiioiia (del_sym) oaeaea inouanoaeyaony n iiiiuueth
delete!, ii i?e yoii n iiiiuueth ooieoeee append oi?ie?oaony iiaue
nienie neiioiiia aieacie, neiioii eioi?ie oaeaeyaony. Caoai
i?ienoiaeeo oaeaeaiea aieacie ni noa?ui nieneii neiioiiia {(set! *it_is*
(delete! (list ill spis_nums) *it_is))} e aeiaaaeaiea e nieneo
*it_is* yoie aea aieacie n iiaui nieneii.

7. E?aoeia iienaiea ano?iaiiuo i?aaeeeaoia e ooieoeee microLISP,

eniieuecoaiuo a i?ia?aiia

Ieia

Ieia yaeythony iauaeoaie, iiaeiaiuie “ii?oai”, eioi?ua
i?aaenoaaeytho niaie i?yiioaieueiua iaeanoe ia ye?aia. I?aaeeeao
WINDOW? ii?aaeaeyao, aeaenoaeoaeueii ee caaeaiiue iauaeo yaeyaony
ii?oii, i?aaenoaaeythuei ieii ia ye?aia. Ana eioa?aeoeaiua ieia
aaiaea-auaiaea i?aaenoaaeythony iin?aaenoaii ieii, aeeth/ay
aaiae-auaiae, iaania/eaaaiue ii?oaie STANDARD-INPUT e STANDARD-OUTPUT.
Iiaua ieia-ii?ou nicaeathony e ioe?uaathony n iiiiuueth MAKE-WINDOW;
eo ao?eaoou aeinooiiu n iiiiuueth WINDOW-GET-ATTRIBUTE e
iiaeeoeoee?othony WINDOW-SET-ATTRIBUTE!

Ieia aei oao ii? ia auaiaeyony ia ye?ai, iiea iaeanoue aeey ieo ia
i/enoeony n iiiiuueth WINDOW-CLEAR. WINDOW-DELETE i/euaao iaeanoue
ye?aia, caiyoiai ieiii. WINDOW-POPUP e WINDOW-POPUP-DELETE
auaeatho ianeieueei ia?ae?uaathueony ieii.

Iiceoeey ieia ia ye?aia e ?acia? aai no?ie e noieaoeia
onoaiaaeeaathony WINDOW-GET-POSITION e WINDOW-GET-SIZE, niioaaonoaaiii;
iiaeeoeeaoeey auiieiyaony WINDOW-SET-POSITION! e WINDOW-SET-SIZE!.

Iiaeeoeeaoeey iiceoeee e ?acia?ia ieia iiaeao auoue auiieiaia
ia?aae oai, eae ieii ecia/aeueii auaiaeeony ia ye?ai ii
WINDOW-CLEAR. Iiceoeey eo?ni?a onoaiaaeeaaaony n iiiiuueth
WINDOW-GET-CURSOR e eciaiyaony WINDOW-SET-CURSOR!. Eo?ni? iiyaeyaony ia
ye?aia oieueei oiaaea, eiaaea aaiae i?iecaiaeeony n eeaaeaoo?u.

FLUSH-INPUT

I?ioeaaeo?a FLUSH-INPUT /enoeo aooa? aaiaeiiai ii?oa.

Oi?iao (FLUSH-INPUT {port})

Ia?aiao? port- aaiaeiie ii?o (iaiaycaoaeueiue a?aoiaio).

Iauyniaiea:

FLUSH-INPUT ioa?anuaaao ethaua eeoa?u e aeeth/aao neaaeothuoth
“iineaaeiaaoaeueiinoue eiioea no?iee” (end-of-line) a aooa? aaiaea,
eioi?ue naycai n port, anee ii caaeai, eee n oaeouei aaiaeiui ii?oii.
Auaeaaony iaii?aaeaeaiiia cia/aiea.

LAST-PAIR

Aica?auaao iineaaeithth ia?o iaionoiai nienea.

LIST

Eiiiiceoeee ia?, naycaiiuo /a?ac eo cdr-eiiiiiaiou, iacuaathony
nieneaie. Ionoie nienie, iaicia/aaiue eae (), oaeaea yaeyaony
nieneii. Eiaaea oeaii/ea cdr-naycae a ia?a ieai/eaaaony ionoui
nieneii, oiaaea ia?a iacuaaaony “nianoaaiiui nieneii”. I?ioeaaeo?a LIST
iaania/eaaao oaeie nienie, ninoiyuee ec cia/aiee aai a?aoiaioia.
LIST* iaania/eaaao iioiaeee nienie, ii eiathuee cia/aiea aai iineaaeiaai
a?aoiaioa a cdr-eiiiiiaioa iineaaeiae ia?u oeaii/ee.

MEMBER

MEMBER, MEMQ, MEMV

I?ioeaaeo?a

Aeaiiua i?ioeaaeo?u auaeatho iiaenienie, ia/eiathueeny n iaeioi?iai
niaoeeoe/aneiai iauaeoa a nianoaaiiii nienea.

Oi?iao (MEMBER ibj list)

(MEMQ ibj list)

(MEMV ibj list)

Ia?aiao?u obj – ethaie iauaeo a “EENI-IEE?I”;

list – nianoaaiiue nienie

Iauyniaiea:

Aeaiiua i?ioeaaeo?u euoo ia?aia iiyaeaiea obj a list, eniieuecoy
EQVAL? aeey n?aaiaiey (a neo/aa MEMBER); i?e MEMQ eniieuecoaony EQ?;
i?e MEMV – EQV? Anee obj iaeaeai, iiaenienie, niaea?aeauee obj eae
ia?aue yeaiaio, auaeaaony eae ?acoeueoao. Anee obj ia iaeaeai a list,
auaeaaony “eiaeue”.

DO

Niaoeeaeueiia au?aaeaiea

DO iaania/eaaao iaeaieaa iauoth aiciiaeiinoue au/eneaiey eoa?aoeee.

Oi?iao

(DO ((var (init {step}})…)(test exp …) stmt …)

Ia?aiao?u var – ethaie eaeaioeoeeaoi? “EENI-IEE?I”;

init – ethaua au?aaeaiey a “EENI-IEE?I”.

Au/eneyaony eaaeaeia init; ?acoeueoao eniieuecoaony eae cia/aiea
niioaaonoaothuaai var.

Yoio a?aoiaio iaiaycaoaeueiue;

step… – ethaua au?aaeaiey “EENI-IEE?I”.

Au/eneyaony eaaeaeia init; ?acoeueoao eniieuecoaony eae cia/aiea
niioaaonoaothuaai var aeey neaaeothuae eoa?aoeee. Yoio
iaiaycaoaeueiue a?aoiaio iiaeao auoue iienai,
oieueei anee iienai init;

test – ethaia au?aaeaiea “EENI-IEE?I”. Yoi
au?aaeaiea yaeyaony oneiaeai, ii eioi?iio eoa?aoeey
inoaiaaeeaaaony;

exp… – ethaua au?aaeaiey “EENI-IEE?I”. Yoe
au?aaeaiey au/eneythony ia?aae auoiaeii ec oeeeea;

stmt… – ethaua au?aaeaiey “EENI-IEE?I”. Yoe
au?aaeaiey au/eneythony ii ii?yaeeo eaaeaeue ?ac eae test
aica?auaao “eiaeue”.

8. Ioeaaeea i?ia?aiiu

Aeey oaeianoaa ioeaaeee i?ia?aiia ienaeanue ia any n?aco, a
iinoaiaiii, ioaeaeueiuie i?ioeaaeo?aie. Eaaeaeay i?ioeaaeo?a nia/aea
ioeaaeeaaeanue e i?iaa?yeanue, a iioii ?ac?aaaouaaeanue neaaeothuay.
Iinea i?iaa?ee eaaeaeie i?ioeaaeo?u a ioaeaeueiinoe ioeaaeeaaeanue
any i?ia?aiia oeaeeeii e ono?aiyeenue iineaaeiea iaaei?aaioee e ioeaee.

9. Eino?oeoeey iieueciaaoaeth e i?eia? auiieiaiey i?ia?aiiu

Iaiaoiaeeiua aiia?aoiua n?aaenoaa

Aeey ?aaiou aeaiiie i?ia?aiiu iaiaoiaeeii: – eiiiuethoa? :
aeaeaoaeueii IBM PC AT eee XT; – iia?aoeaiay iaiyoue – ia iaiaa 512
Eb; – ianoa ia aei/anoa?a (eee ethaii ae?oaii caiiieiathuai
ono?ienoaa)- ia iaiaa 100 Kb (a caaeneiinoe io ?acia?a aacu aeaiiuo); –
aeenieae n ethaie a?aoe/aneie ea?oie; – iia?aoeeiiiay n?aaea –
MS-DOS aa?nee 3.0 e auoa.

Ninoaa iineoaeae aeaiiuo:

Aeey ii?iaeueiie ?aaiou i?ia?aiiu iaiaoiaeeii iaee/ea neaaeothueo
oaeeia:

fun.lsp – oaee caionea (oaee niaea?aeauee anth
i?ia?aiio);

bd2.lsp – oaee aacu aeaiiuo (eee ethaie ae?oaie oaee,
niaea?aeauee aaco aeaiiuo iieueciaaoaey);

Aeey caionea i?ia?aiiu ioaeii aieoe a Eeni, caa?oceoue
oaee fun.lsp, iaa?aoue start e iaaeaoue eeaaeoo {ENTER}.

Iienaiea ?aaiou n i?ia?aiiie

Iinea caionea i?ia?aiiu Au iiiaaeaaoa a aa eioaa?e?iaaiioth
n?aaeo. Aeey ?aaiou n iae ioaeii ciaoue, /oi:

– aeey auai?a ioaeiiai ioieoa iaith/iiaeiaith ioaeii iaa?aoue iiia?
yoiai ioieoa;

– aeey ia?aoiaea ec ieaeiaai iiaeiaith a enoiaeiia
iaith/iiaeiaith ioaeii

iaaeaoue eeaaeoo {ESC};

– aeey auoiaea ec i?ia?aiiu ioaeii aua?aoue ioieo aeaaiiai iaith
.

?aaioa n iiaeiaith :

– aeey ?aaiou n ioieoii :

– iaaa?eoa ia eeaaeaoo?a iacaaiea ioaeiiai aai oaeea aacu aeaiiuo
e iaaeieoa eeaaeoo {ENTER};

– aeey ?aaiou n ioieoii :

– iaaa?eoa eiy oaeea e iaaeieoa {ENTER}.

?aaioa n iiaeiaith :

– aeey ?aaiou n ioieoii ioaeii:

– aua?aoue aoaeaoa ee Au ?aaeaeoe?iaaoue iacaaiey iaeni?aaiinoae eee
i?eciaeia (iaaeaoue niioaaonoaaiii oeeo?o {1} eee {2});

– aaanoe iacaaiea iaeni?aaiinoe eee i?eciaea aeey ?aaeaeoe?iaaiey;

– aaanoe iiaua eni?aaeaiiua cia/aiey;

– aeey ?aaiou n ioieoii ioaeii:

– aua?aoue aoaeaoa ee Au aeiaaaeyoue iacaaiey iaeni?aaiinoae eee

i?eciaeia (iaaeaoue niioaaonoaaiii oeeo?o {1} eee {2});

– iooai aaiaea eioi?iaoeee n eeaaeaoo?u aianoe iiaoth caienue;

– aeey ?aaiou n ioieoii ioaeii:

– aua?aoue aoaeaoa ee Au oaeaeyoue iacaaiey iaeni?aaiinoae
eee

i?eciaeia (iaaeaoue niioaaonoaaiii oeeo?o {1} eee {2});

– aaanoe iacaaiea oaeaeyaiie iaeni?aaiinoe eee i?eciaea;

– aeey ?aaiou n ioieoii iaiaoiaeeii ciaoue, /oi:

– eioi?iaoeeth ia ye?aia iiaeii iaiyoue, iaaeeiay eeaaeoo {ESC}.

?aaioay n iiaeiaith , ioaeii:

– ioaa/aoue ia aii?inu (iaae?aoue niioaaonoaaiii ‘Ae’ eee ‘I’ e
iaaeeiaoue eeaaeoo {ENTER}).

Caeeth/aiea

A aeaiiie ?aaioa auea ?aaeeciaaia eaeay nicaeaiey o?aaiaioa
iaiei/ee yenia?oiie nenoaiu. A ?acoeueoaoa ?ac?aaioee EI? auea iieo/aia
eioaa?e?iaaiiay n?aaea ii aeeaaiinoeea caaieaaaiee. E iethnai aeaiiie
i?ia?aiiu iiaeii ioianoe aeiaieueii iiaa?oiinoiua ciaiey iieueciaaoaey
ii ?aaioa n eiiiuethoa?ii, eioi?ua o?aaothony aeey ?aaiou n iae.

N?aaee aiciiaeiuo iiaeaeaiee iiaeii neacaoue i ?ac?aaioea nenoaiu
iiiiue i?e ?aaioa n i?ia?aiiie. Iiaeii oaeaea oneiaeieoue i?ia?aiio,
ia?aienaa aa oae, /oiau iia ?aaioaea ia iniiaa ?annoaeaeaiee n
eniieueciaaieai aa?iyoiinoiiai iiaeoiaea. *anoi e yenia?oiui nenoaiai
i?aaeuyaeytho aeiiieieoaeueiia o?aaiaaiea – niiniaiinoue eiaoue aeaei
n iaii?aaeaeaiiinoueth e iaiieiioie. Eioi?iaoeey i iinoaaeaiiie caaea/a
iiaeao auoue iaiieiie eee iaiaaeaaeiie; ioiioaiey iaaeaeo iauaeoaie
i?aaeiaoiie iaeanoe iiaoo auoue i?eaeeaeaiiuie. Iai?eia?, iiaeao ia
auoue iieiie oaa?aiiinoe a iaee/ee o iieueciaaoaey iaeioi?iai neiioiia
eee a oii, /oi aeaiiua, iieo/aiiua i?e ii?aaeaeaiee, aa?iu. Ai anao
yoeo neo/ayo eae ?ac e iaiaoiaeeiu ?annoaeaeaiey n eniieueciaaieai
aa?iyoiinoiiai iiaeoiaea.

Aeaeeia?aoe/aneee nienie

1. Ei Oe., Nieiiii Ae. Eniieueciaaiea Oo?ai-I?ieiaa: Ia?. n aiae. -Ie?,
1993.-608 n.

2. Oaonaiae E., Oioo Ae. I?iaeoe?iaaiea e i?ia?aiiiay ?aaeecaoeey
yenia?oiuo nenoai ia ia?niiaeueiuo YAI: Ia?. n aiae. – I.:
Oeiainu e noaoenoeea, 1990.- 320 n.

3. Othaaiai Y., Naiiyiai E. Ie? Eenia. A 2-o o. Ia?. n oeine. – I.:
Ie?, 1990.

I?eeiaeaiea A

Iieiue oaeno i?ia?aiiu ia ycuea micro-LISP (oaee “FUN.LSP):

(define mainw(make-window “AeIEOI?” #!true))

(define mmenuw(make-window “IAITH” #!true))

(define menufw(make-window “__OAEEU” #!true))

(define menudbw(make-window “AacaAeaiiuo” #!true))

(define menucw(make-window “_____________________________AeEAAIINOEEA”
#!true))

(define vieww(make-window “____________I?INIIO?” #!true))

(define addiw(make-window “____________AeIAAAEAIEA AIEACIE” #!true))

(define addsw(make-window “__________AeIAAAEAIEA NEIIOIIIA” #!true))

(define rediw(make-window “________?AAeAEOE?IAAIEA AIEACIE” #!true))

(define redsw(make-window “_______?AAeAEOE?IAAIEA NEIIOIIA” #!true))

(define deliw(make-window “______________OAeAEAIEA AIEACIE” #!true))

(define delsw(make-window “_____________OAeAEAIEA NEIIOIIA” #!true))

(define submenuw(make-window “___?aaioa n:” #!true))

(define menulw(make-window “Aaaaeeoa EIss OAEEA :” #!true))

(define f)

(define *symptom*)

(define *it_is*)

(define *yes* ‘())

(define *no* ‘())

(define (start)

(window-set-position! mainw 1 1)

(window-set-size! mainw 23 78)

(window-clear mainw)

(mainmenu))

; Aeaaiia iaith

(define (mainmenu)

(define ch)

(Window-Set-Position! mmenuw 3 15)

(Window-Set-Size! mmenuw 1 47)

(Window-Clear mmenuw)

(display ” 1.Files 2.DataBase 3.Diagnosticka 4.Quit” mmenuw)

(do ((i 0 (+ i 0)))

((> i 5)i)

(Window-Set-Cursor! mainw 22 30)

(display “Aao auai? :” mainw)

(set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)

(display ” ” mainw)

(cond

((eq? ch #\1) (menufiles))

((eq? ch #\2) (menudb))

((eq? ch #\3) (menucons))

((eq? ch #\4) (exit))

)))

; Iaith Oaeeia

(define (menufiles)

(define ch)

(Window-Set-Position! menufw 5 16)

(Window-Set-Size! menufw 4 8)

(Window-Clear menufw)

(Window-Set-Cursor! menufw 1 1)

(display “1.LOAD” menufw)

(Window-Set-Cursor! menufw 2 1)

(display “2.SAVE” menufw)

(do ((i 0 (+ i 0)))

((> i 5)i)

(Window-Set-Cursor! mainw 22 30)

(display “AAO AUAI? :” mainw)

(set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)

(display ” ” mainw)

(cond

((eq? ch #\1) (loading))

((eq? ch #\2) (saving))

((eq? ch #\ESCAPE)

(Window-Delete menufw)

(mainmenu))

)))

; Iaith AacuAeaiiuo

(define (menudb)

(define ch)

(Window-Set-Position! menudbw 5 26)

(Window-Set-Size! menudbw 6 10)

(Window-Clear menudbw)

(Window-Set-Cursor! menudbw 1 1)

(display “1.ADD ” menudbw)

(Window-Set-Cursor! menudbw 2 1)

(display “2.DELETE” menudbw)

(Window-Set-Cursor! menudbw 3 1)

(display “3.REDACT” menudbw)

(Window-Set-Cursor! menudbw 4 1)

(display “4.VIEW” menudbw)

(do ((i 0 (+ i 0)))

((> i 5)i)

(Window-Set-Cursor! mainw 22 30)

(display “AAO AUAI? :” mainw)

(set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)

(display ” ” mainw)

(cond

((eq? ch #\1)

(adding) (menudb))

((eq? ch #\2)

(deleting) (menudb))

((eq? ch #\3)

(redacting) (menudb))

((eq? ch #\4)

(viewing) (menudb))

((eq? ch #\ESCAPE)

(Window-Delete menudbw) (mainmenu))

)))

; Caa?ocea oaeea

(define (loading)

(Window-Set-Position! menulw 20 20)

(Window-Set-Size! menulw 1 40)

(Window-Clear menulw)

(Window-Set-Cursor! menulw 1 3)

(set! f (read-line menulw))

(Window-Delete menulw)

(with-input-from-file f

(lambda ()

(set! *symptom* (read))

(set! *it_is* (read))

(flush-input)

)))

; Caienue oaeea

(define (saving)

(Window-Set-Position! menulw 20 20)

(Window-Set-Size! menulw 1 40)

(Window-Clear menulw)

(Window-Set-Cursor! menulw 2 3)

(set! f (read-line menulw))

(Window-Delete menulw)

(with-output-to-file f

(lambda ()

(write *symptom*)

(write *it_is*)

)))

;Iaith aeeaaiinoeee

(define (menucons)

(Window-Set-Position! menucw 6 10)

(Window-Set-Size! menucw 17 57)

(Window-Clear menucw)

(experting *it_is*)

(window-delete menucw) )

(define (experting spis_ill)

(cond ((null? spis_ill) (board)

(display ” IAAICIIAEII II?AAeAEEOUe AeEAAIIC ”
menucw)

(wait menucw)

(set! *yes* ‘())

(set! *no* ‘()))

((exp_ill (cadar spis_ill) (caar spis_ill)))

(t (experting (cdr spis_ill))) ))

(define (exp_ill spis_num ill)

(define nums)

(define s)

(cond ((null? spis_num) (window-clear menucw) (window-set-cursor!
menucw 1 1)

(display ” O AAN ” menucw) (display ill
menucw)

(display “.” menucw)

(set! nums (find_sym ill *it_is*))

(set! *yes* ‘())

(set! *no* ‘())

(log_out nums))

(t (set! s (find_sym (car spis_num) *symptom*))

(yesno? s spis_num ill)) ))

(define (into y a)

(cond ((eq? a ‘ae) (set! *yes* (append *yes* (list y))))

(t (set! *no* (append *no* (list y)))) ))

(define (yesno? y spis_num ill)

(define ans)

(cond ((member y *no*) nil)

((member y *yes*) (exp_ill (cdr spis_num) ill))

(t (and (board) (display ” NEIIOII: ” menucw)

(display y menucw)

(display ” [Ae/I] ? ” menucw)

(set! ans (read menucw))

(into y ans) (eq? ‘ae ans)

(exp_ill (cdr spis_num) ill))) ))

(define (log_out nums)

(cond ((null? nums) (wait menucw))

(t (newline menucw) (display ” ” menucw)

(display (find_sym (car nums) *symptom*) menucw)

(log_out (cdr nums))) ))

(define (board)

(define gr)

(set! gr (window-get-cursor menucw))

(if (

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020