Namų darbai

Intelektikos praktika

10   (1 atsiliepimai)
Intelektikos praktika 1 puslapis
Intelektikos praktika 2 puslapis
Intelektikos praktika 3 puslapis
Intelektikos praktika 4 puslapis
Intelektikos praktika 5 puslapis
Intelektikos praktika 6 puslapis
Intelektikos praktika 7 puslapis
Intelektikos praktika 8 puslapis
Intelektikos praktika 9 puslapis
Intelektikos praktika 10 puslapis
Intelektikos praktika 11 puslapis
Intelektikos praktika 12 puslapis
Intelektikos praktika 13 puslapis
Intelektikos praktika 14 puslapis
Intelektikos praktika 15 puslapis
www.nemoku.lt
www.nemoku.lt
Aukščiau pateiktos peržiūros nuotraukos yra sumažintos kokybės. Norėdami matyti visą darbą, spustelkite peržiūrėti darbą.
Ištrauka

 Intelektikos praktikos darbų ataskaita 1. Referatas Turing, A.M. (1950). Computing machinery and intelligence. Mind Kompiuterio gebos ir žmogaus intelekto palyginimas nagrinėjamas jau seniai, buvo skiriama daug pastangų sukurti mašiną ar techninį įtaisą, galinti prilygti žmogui, jo intelektui. Nuo tų laikų požiūris į kompiuterį, jo intelektą, bandant apibūdinti jo gebėjimus ir taip parodyti panašumus ar skirtumus žmogaus atžvilgiu keitėsi, nuo optimizmo iki skepticizmo. A. Turingas pasiūlė principą, kuris įvertintu ir atsakytu į klausimą ar kopiuteris turi intelektą, pagal kurį pakanka lyginti žmogaus intelekto rezultatą ir kompiuterio gebėjimus spręsti tuos pačius uždavinius. Jeigu ekspertas nemato, nepastebi skirtumo, kas sprendė uždavinį: kompiuteris ar žmogus – teigiama, kad kompiuteris turi atitinkamą intelektą. Savo straipsnyje A.Turingas aprašo šiuos prieštaravimus: • “Neverčiamas elgesys” – kompiuteris griežtai ir nuosekliai vykdo nurodytas instrukcijas ir komandas, kai tuo tarpu žmogus gali ignoruoti elgesio taisykles, t.y. žmogus negali tapti mašina. • “Sąmonės” argumentas – teigiantis, kad kompiuteris gali mechaniškai kurti ką nors, bet negali jausti sąmoningo kūrybos malonumo, pergyventi ir kt., t.y. tai tiesiog mechaninis darbas pagal suprojektuotą programinį kodą.. • Lovelace’s (1842) prieštaravimas – jos nuomone , mašina (kompiuteris) niekada negalės “sukurti tikrai kažką naujo”, nors galbūt būtų galima siekti įprogramuoti “idėją” į kompiuterį ir galbūt kompiuteriui kažką artimo pavyktų “atlikti”. • „Teologinis“ prieštaravimas – apie žmogaus dvasios nemirtingumą. Dievas davė kiekvienam žmogui dvasios nemirtingumą, bet ne kokiam gyvūnui ar mašinai. Vadinasi, nei vienas gyvūnas ar mašina negali mąstyti. • Prieštaravimas ”Galvos slėpimas smėlyje” - žmogui sunku įsisąmoninti , kad mašinos gali mąstyti ir tai, kad Žmogus nėra viršesnis šioje srityje. • Matematinis prieštaravimas – parodo, kad kompiuteriuose galimi matematinės logikos rezultatų neapibrežtumai dėl jų pajėgumų ribotumo. • Prieštaravimas “Kompiuteris negali daryti klaidų” - prieštaravimas susijęs su situacija, kad mąstantis kompiuteris gali daryti sąmoningas klaidas, pvz., jei norėtų apgauti tyrinėtoją per Turingo testą. Kai kurie straipsnyje analizuoti prieštaravimai yra nagrinėjami, aktualus ir šiomis dienomis, išskirus (Teologinį prieštaravimą ir prieštaravimą ”Galvos slėpimas smėlyje” ). Apibendrintai matome, kad žmogaus elgesys yra sudėtingas priešingai nei kompiuterių, nes visi žmogaus procesai yra generuojami iš karto, o ne kuriami iš scenarijų bei taisyklių suprogramuotų iš anksto. Nors intelektą imituojančios sistemos pasiekė akivaizdžios pažangos, tačiau dar negreit galėsime kompiuterį pavadinti “mąstančiu”. A.Turingas prognozavo, jog apie 2000 metus kompiuteris turės 30% šansą išlaikyti 5 min. trukmės Turing’o testą, kai klausimus uždavinėja nepatyręs klausinėtojas. Manau jo prognozės buvo teisingos, nes šiuo metu kompiuterių pajėgumas ir techninės galimybės tiek pažengė pirmyn, kad leidžia imituoti namažai žmogaus mąstyseną atitinkančių procedūrų ir išrinkti atsakymą, kurį išsirinktus pats žmogaus. 2. Pratybų užduotys 2.1. Pirmosios pratybos su Jess Pirmosios pratybos su Jess, susideda iš penkių uždavinių: • Pitagoro teorema; • Trapecijos plotas; • Kvadrato plotas; • Trikampio plotas; • Rombo plotas; Buvo aprašomos formulės, kurios skaičiuotu užduotyse pateiktus plotus, bei Pitagoro teoremą. Štai keletas pavyzdžių: 1. Pitagoro teorema: (bind ?a 3) /* komandos bind pagalba ?a įgyja reikšmę lygia 3 */ (bind ?b 4) /* tos pačios komandos pagalba ?b įgyja reikšmę 4 */ (bind ?x (* ?a ?a)) /* atliekamas daugybos veiksmas (* ?a ?a), o rezultatas priskiriamas ?x. Dabar ?x įgyja reikšmę 9 */ (bind ?y (* ?b ?b)) /* atleikamas daugybos veiksmas (* ?b ?b), o rezultatas priskiriamas ?y. Dabar ?y įgyja reikšmę 16 */ (bind ?c (+ ?x ?y)) /* vykdomas sudėties veiksmas (+ ?x ?y), rezultatas priskiriamas ?c ir lygus 25 */ (sqrt ?c) /* sqrt komandos pagalba traukiama šaknis iš ?c, rezultatas butu 5 */ 2. Trapecijos plotas: (bind ?AD 4) /* ?AD priskiriama 4 */ (bind ?BC 5) /* ?BC priskiriama 5 */ (bind ?suma (+ ?AD ?BC)) /* vykdoma suma (+ ?AD ?BC), o rezultatas priskiriamas ?suma ir lygus 9 */ (bind ?BH 2) /* ?BH priskiriama 2 */ (bind ?sandauga (* ?suma ?BH)) /* daugybos veiksmas (* ?suma ?BH), o rezultatas priskiriamas ?sandauga ir lygus 18 */ (bind ?S (/ ?sandauga 2)) /* atliekama dalyba (/ ?sandauga 2), o rezultatas tampa ?S ir lygus 9 */ ?S /* parašius konsolėje ?S, Jess darbo lange rašomas rezultatas 9, kuris yra apskaičiuotas trapecijos plotas */ 2.2 Funkcijos Jess‘e Buvo pateikti du uždaviniai : • Parašyti funkciją, kuri skaičiuotu sferos plotą; • Parašyti funkciją, kuri skaičiuotu atstumą tarp dviejų taškų; Taip pat perašyti šias funkcijas taip, kad funkcijai reikalingi duomenys butu įvedami iš konsolės. Štai keletas pavyzdžių: 1. Sferos plotas: (deffunction Sfera /* deffunction pagalba aprašoma funkcija Sfera */ (?r) /* funkcijos argumentas yra ?r, spindulys */ (* 4 3.14 (* ?r ?r)) /* atliekami matematiniai veiksmai */ ) /* funcijos pabaiga */ (Sfera 5) /* iškviečiama funkcija Sfera, kurios argumentas yra 5 t.y. vietoje ?r įstatoma reikšmė 5 ir atliekami matematiniai veiksmai nurodyti trečioja eilutėje. tlikus veiksmus rezultatas išvedamas Jess darbo lange */ 2. Atstumas tarp dviejų taškų: (deffunction Atstumas /* aprašoma funkcija Atstumas */ ( ?x1 ?x2 ?y1 ?y2) /* pateikiami argumentai */ (bind ?x (- ?x2 ?x1)) /* atliekami aritmetiniai veiksmai, o rezultatas priskiriamas ?x */ (bind ?y (- ?y2 ?y1)) /* atliekami aritmetiniai veiksmai, o rezultatas priskiriamas ?y */ (sqrt(+ (* ?x ?x) (* ?y ?y))) /* sudauginami (* ?x ?x), tada (* ?y ?y), o jų rezultatas sudedamas (+ (* ?x ?x) (* ?y ?y)) ir sqrt pagalba traukiama šaknis */ (sqrt(+ (* ?x ?x) (* ?y ?y))) ) /* funkcijos pabaiga */ (Atstumas 1 2 3 4) /* iškviečiama funkcija, argumentai įgyja nurodytas reikšmes ir toliau atliekami matematiniai veiksmai, o rezultatas išvedamas Jess darbo lange */ 1.1. Sferos plotas iš konsolės: (deffunction Sfera /* aprašoma funkcija Sfera */ () (printout t "Iveskite r reiksmia: "crlf) /* Jess programos lange išvedamas užrašas tarp kabučių */ (bind ?r (read)) /* vyksta nuskaitymas iš klaviatūros */ (bind ?S (* 4 3.14 (* ?r ?r))) /* vykdomi matematiniai veiksmai, o rezultatas priskiriamas ?S */ (printout t "Sferos plotas =" (return ?S) crlf) /* Jess programos lange išvedamas užrašas tarp kabučių ir return pagalba išspausdinama ?S reikšmė */ ) /* funkcijos pabaiga */ (Sfera) /* iškviečiama funkcija Sfera */ 2.1. Atstumas tarp dviejų taškų iš konsolės: (deffunction Atstumas /* aprašoma funkcija Atstumas */ () (printout t "Iveskite x1 reiksmia:" crlf) /* išvedamas užrašas */ (bind ?x1 (read)) /* nuskaitymas iš klaviatūros */ (printout t "Iveskite x2 reiksmia:" crlf) /* išvedamas užrašas */ (bind ?x2 (read)) /* nuskaitymas iš klaviatūros */ (printout t "Iveskite y1 reiksmia:" crlf) /* išvedamas užrašas */ (bind ?y1 (read)) /* nuskaitymas iš klaviatūros */ (printout t "Iveskite y2 reiksmia:" crlf) /* išvedamas užrašas */ (bind ?y2 (read)) /* nuskaitymas iš klaviatūros */ (bind ?x (- ?x2 ?x1)) /* atliekami matematiniai veiksmai */ (bind ?y (- ?y2 ?y1)) /* atliekami matematiniai veiksmai */ (bind ?s (sqrt(+ (* ?x ?x) (* ?y ?y)))) /* sudauginami (* ?x ?x), tada (* ?y ?y), o jų rezultatas sudedamas (+ (* ?x ?x) (* ?y ?y)) ir sqrt pagalba traukiama šaknis (sqrt(+ (* ?x ?x) (* ?y ?y))), o rezultatas priskirimas ?s */ (printout t "Atstumas =" (return ?s) crlf) /* išvedamas užrašas ir šalia rezultas ?s */ ) /* funkcijos pabaiga */ (Atstumas) /* iškviečiama funkcija Atstumas */ 2.3. Faktai ir taisyklės Šiame etape buvo pateiktos dvi užduotys: • Papildyti programą studentai.clp naujais faktais, bei taisyklėmis; • Sukurti sistemą, kuri skaičiuoti skritulio plotą, bei palygintu ar tai didelis, ar tai mažas plotas; 1. Programos studentai.clp kodo fragmentai: (deftemplate studentas "Informacija apie studenta" /* kuriamas faktų rinkinys (lentelė), pavadinimu "Informacija apie studenta" */ (slot vardas) /* atributas vardas */ (slot pavarde) /* atributas pavardė */ (slot geriausias_dalykas) /* atributas geriausias_dalykas */ (slot vidurkis) /* atributas vidurkis */ ) /* lentelės pabaiga */ (assert (studentas (vardas "Onute") (pavarde "Petraite") (geriausias_dalykas Matematika) (vidurkis 9.6))) /* assert komandos pagalba į lentelę studentas surašomi faktai */ (deffunction patarimas (?v ?p ?s) /* aprašoma funkcija patarimas */ (printout t ?v " " ?p " gali studijuoti " ?s crlf) /* printout t pagalba bus išspausdintas vardas, pavardė, bei po " gali studijuoti " dalykas */ ) /* funkcijos pabaiga */ (defrule matematika /* aprašoma taisyklė matematika */ (studentas (vardas ?v) (pavarde ?p) (vidurkis ?vid&: (>= ?vid 8.5)) (geriausias_dalykas Matematika)) /* faktai bėga per taisykles ir radus tinkamą taisyklę išvedamas rezultatas, nurodytas po rodyklės */ => (patarimas ?v ?p "matematika") /* kreipiamasi i funkciją patarimas, kuri atlieka išvedimą į Jess langą, ?v = vardas, ?p = pavardė, ?s priskiriama matematika */ ) /* taisyklės pabaiga */ (run) /* Jess dabo lange išvedami rezultatai */ 1.1. Programa studentai.clp papildoma naujais faktais, bei taisyklėmis 1.1.1 Faktai (assert (studentas (vardas "Egidijus") (pavarde "Zalys") (geriausias_dalykas Piesimas) (vidurkis 8.5))) (assert (studentas (vardas "Mantas") (pavarde "Jankauskas") (geriausias_dalykas Chemija) (vidurkis 9.1))) 1.1.2. Taisyklės (defrule tapyba (studentas (vardas ?v) (pavarde ?p) (vidurkis ?vid&: (>= ?vid 8.5)) (geriausias_dalykas Piesimas)) => (patarimas ?v ?p "tapyba") ) (defrule chemija (studentas (vardas ?v) (pavarde ?p) (vidurkis ?vid&: (>= ?vid 9.0)) (geriausias_dalykas Chemija)) => (patarimas ?v ?p "chemija") ) 2. Sistema skaičiuojanti skritulio plotą, bei palyginanti ar tai didelis, ar tai mažas plotas (clear) (defglobal ?*p* = 3.14) /* aprašomas globalus kintamasis ?*p*, kuris įgyja reikšmę 3.14 */ (deffunction Sk_plot (?r) (* ?r ?r ?*p*)) /* funkcija Sk_plot skaičiuoja skritulio plotą ir turi vieną nežinomąjį ?r t.y. spindulys */ (deftemplate Skritulys "Parametrai" /* kuriama faktų lentelė */ (slot spindulys) /* atributas spindulys */ (slot area (default 0)) /* atributas area */ (slot isBig (default "")) /* atributas isBig */ (slot Skaiciuoti (default TRUE)) /* atributas Skaičiuoti su pradine reikšme TRUE */ ) /* faktu lentelės pabaiga */ (deffacts SkritulioFaktai "Faktai" /* pateikiami faktai */ (Skritulys (spindulys 1) (area (Sk_plot 1))(isBig Maza) (Skaiciuoti FALSE)) (Skritulys (spindulys 6) (area (Sk_plot 6))(isBig Didele) (Skaiciuoti FALSE)) (Skritulys (spindulys 4) (area (Sk_plot 4))(isBig Didele) (Skaiciuoti FALSE)) ) /* faktu pateikimo pabaiga */ (reset) (defrule Plotas /* taisyklė Plotas, kuri skaičiuoja skritulio plotą */ ?m ( modify ?m (area (Sk_plot ?r))) /* kreipiamasi i funkciją Sk_plot įstatydama pirmą reikšmę 3 ir gauta atsakymą priskiria area */ ) /* taisyklės pabaiga */ (defrule Maza /* aprašoma taisyklė Maza, ji tikrina ar skritulio plotas mažas */ ?m ( modify ?m (isBig Maza)) ) /* taisyklės pabaiga */ (defrule Didele /* aprašoma taisyklė Didele, ji tikrina ar skritulio plotas didelis */ ?m ?plotas 30)) (isBig ?b)) /* jeigu plotas >30, tada skritulys didelis */ => ( modify ?m (isBig Didele)) ) /* taisyklės pabaiga */ (printout t "-----------------------------------------------------" crlf) /* vyksta išvedimas į Jess darbo langą, išvedami simboliai nurodyti tarp kabučių */ (printout t "---Sistema ivertinanti skritulio plota------" crlf) (printout t "-------plotas 30 didele skritulys-----------" crlf) (printout t "-----------------------------------------------------" crlf) (printout t "Spindulys Plotas Pozymis"crlf) (printout t "-----------------------------------------------------" crlf) (defrule Spausdinti /* aprašoma taisyklė Spausdinti */ ?m (printout t ?r" " ?a " " ?b crlf) /* išvedimas į Jess darbo langa ?r igyja reikšmias nurodytas pradniuose fakatuose, ?a apskaičiuotas plotas po funkcijos Sk_plot, ?b rezultatas patikrintas dviejų taisyklių */ ) /* taisyklės pabaiga */ (assert (Skritulys (spindulys 2) )) /* papildomi faktai */ (assert (Skritulys (spindulys 3) )) /* papildomi faktai */ (run) /* Jess dabo lange išvedami rezultatai */ 2.4. Tiesioginis išvedimas Virtualioje aplinkoje buvo pateikta ekspermentinė sistema „Vasara“ su savo faktais ir taisyklėmis. Mūsų užduotis buvo visa tai realizuoti Jess programoje, naudojant tiesioginio išvedimo metodą. Realizuota ekspermentinė sistema „Vasara“: (clear) (deftemplate vasara /* kuriama faktų lentelė */ (slot Saule ) (slot Temp (type integer) (default 0)) (slot Bangos (type integer) (default 0)) (slot Maudytis (default Ne)) (slot Pasiulymas (default Ne)) (slot Bangavimas ) (slot Yvikis (default True)) ) /* faktų lentėles pabaiga */ (deffacts Oras "Oro salygos" (vasara) ) (reset) (defrule Debesuota ;aparšoma taisyklė Debesuota ?m (modify ?m (Maudytis Ne) (Pasiulymas Nevaziuoti) ) /* savo ruoštu modify ?m tese paiešką tarp taisyklių, kol randa atitikmenį. Šiuo atveju tai bus taisyklė Namie, kuri savyje turi printout t komandą ir atspausdiną norimą rezultatą */ ) /* taisyklės pabaiga */ (defrule Salta ?m (modify ?m (Maudytis Ne) (Pasiulymas Nevaziuoti) ) ) (defrule Saule_Temp_Gera ?m = ?T 18)) (Pasiulymas Ne)) => (modify ?m (Maudytis Taip) (Pasiulymas Taip) (Bangavimas Ne)) ) (defrule Bangavima ?m (modify ?m (Maudytis Ne) (Pasiulymas Bangavimas)(Bangavimas Taip)) ) (defrule Vaziuojame ?m (printout t " -Viskas gerai - vaziuojam prie juros!!!!-" crlf) (printout t "***************************************************" crlf) ) (defrule Pavojus ?m (printout t " -Pavojinga - maudytis negalima!!!!-" crlf) (printout t "***************************************************" crlf) ) (defrule Namie ?m (printout t " -Prastas oras - liekame namuose!!!!-" crlf) (printout t "***************************************************" crlf) ) (defrule iv_isv /* tai apklausos taisyklė, kurios pagalba faktu lentelė užpildoma duomenimis įvedamais iš klaviatūros */ ?m (modify ?m (Yvikis False)) (printout t "*****************************************************" crlf) (printout t "* -Ekspermentines sistemos ' Vasara ' apklausa- *" crlf) (printout t "*****************************************************" crlf) (printout t "Ar sviecia saule (taip/ne)?: ") /* išvedamas užrašas tarp kabučių */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Saule ?x)) /* nuskaitytas argumentas priskirimas faktui saule */ (printout t "Kokia lauko temperatura? : ") /* išvedamas užrašas tarp kabučių */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Temp ?x)) /* nuskaitytas argumentas priskirimas faktui Temp */ (printout t "Koks bangavimas?: ") /* išvedamas užrašas tarp kabučių */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Bangos ?x)) /* nuskaitytas argumentas priskirimas faktui Bangos */ (printout t "*****************************************************" crlf) (printout t "* -Ekspermentines sistemos ' Vasara ' pasiulymas- *" crlf ) ) (run) 2.5. Atbulinis išvedimas (clear) (deftemplate vasara /* kuriama faktų lentelė */ (slot Saule ) /* atributas Saule */ (slot Temp ) /* atributas Temp */ (slot Bangos ) /* atributas Bangos */ ) /* faktų lentelės pabaiga */ (deffacts Oras "Oro salygos" /* aprašomi pradiniai faktai */ (vasara (Saule Taip) /* užpildomas faktų lentelės atributas */ (Temp 18) /* užpildomas faktų lentelės atributas */ (Bangos 2) /* užpildomas faktų lentelės atributas */ ) ) /* faktų aprašymo pabaiga */ (reset) (do-backward-chaining vasara) /* vykdomas atbulinis išvedimas, tai išvedimas kada faktai bėga nuo apačios į viršų, ieškodami sau tinkamos taisyklės */ (defrule Pirmyn /* aprašoma taisyklė Pirmyn */ ?x (printout t "****************************************************" crlf) (printout t "**Oras ir bangavimas tinkamas - vaziuojam prie juros**" crlf) (printout t "****************************************************" crlf) ) (defrule Pavojus /* aprašoma taisyklė Pavojus. Pavojus, tai pagrindinė taisyklė, nuo šios taisyklės pradedami tikrinti faktai atbulinio išvedimo principu, jeigu nerandama tinkamo fakto tada taisyklė Pavojus vykdo nurodymus po savo rodyklės */ ?m (printout t "**************************************************" crlf) (printout t "***Oras netinkamas - nevaziuojame prie juros***" crlf) (printout t "**************************************************" crlf) ) (run) 3. Savarankiškas darbas Savarankiško darbo tikslas: • Sukurti ekspertinę sistemą (ES), naudojant sistemą Jess; Mano ES sistema vadinasi „Atostogos“. Tai žmogaus pagalbininkas renkantis atostogas užsienyje. ES sistemoje „Atostogos“ naudojau tiesioginį išvedimo būdas. (clear) (deftemplate atostogos /* kuriama faktų lentelė */ (slot Tikslas) /* atributas Tikslas */ (slot Salis) /* atributas Salis */ (slot Vaikai (type integer) (default 0)) /* atributas Vaikas */ (slot Didelis (type integer) (default 0)) /* atributas Didelis */ (slot Pasiulymas (default Ne)) /* atributas Pasiulymas */ (slot Kaina (type integer) (default 0)) /* atributas Kaina */ (slot Miegu (type integer) (default 1)) /* atributas Miegu */ (slot Yvikis (default True)) /* atributas Yvikis */ ) (deffacts Kelione "Keliones salygos"/* pradiniai faktai bus gaunami iš defrule iv_isv apklausos */ (atostogos) ) (reset) /* aprašomos Italijos taisykles, vienos taisyklės pavyzdys */ (defrule pirma /* aprašoma taisyklė pirma */ ?m (modify ?m (Pasiulymas 1) ) /* savo ruoštu modify ?m tese paiešką tarp taisyklių kol randa atitikmenį. Šiuo atveju tai bus taisyklė pirm1, kuri savyje turi printout t komandą ir atspausdiną norimą rezultatą */ ) (defrule pirm1 ?m (printout t " -Italijos miestas NEAPOLIS- "crlf) (printout t*****************************************************" crlf) ) /* Tokiu pat principu veikia ir visos kitos Italijos, Prancūzijos ir Ispanijos taisyklės */ (defrule iv_isv /* aprašoma taisyklė iv_isv, šios taisyklės pagalba užpildomi faktai */ ?m (modify ?m (Yvikis False)) (printout t "****************************************************" crlf) (printout t "**** -Ekspermentines sistemos ' Atostogos ' apklausa- ****" crlf) (printout t "** Ispejame, kad atostogos vyksta viena savaite t.y 7 dienas **" crlf) (printout t "** - Aciu, kad naudojates sia sistema!!!! - **" crlf ) (printout t "****************************************************" crlf) (printout t "Keliones tikslas(poilsis/pazintis)?: ") /* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Tikslas ?x)) /* nuskaitytas argumentas priskirimas faktui Tikslas */ (printout t "Salis y kuria norite vykti? (Italija/Prancuzija/Ispanaija)?: ") /* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Salis ?x)) /* nuskaitytas argumentas priskirimas faktui Salis */ (printout t "Kiek vaiku keliaus kartu?: ")/* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Vaikai ?x)) /* nuskaitytas argumentas priskirimas faktui Vaikai */ (printout t "Suaugusiu skaicius kelioneje?: ")/* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Didelis ?x)) /* nuskaitytas argumentas priskirimas faktui Didelis */ (printout t "Keliones kaina?: ")/* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Kaina ?x)) /* nuskaitytas argumentas priskirimas faktui Kaina */ (printout t "Viesbucio kuriame apsistosite zvaigzduciu skaicius?(nuo 1 iki 5): ")/* išvedimas į Jess */ (bind ?x (read)) /* vyksta nuskaitymas iš klaviatūros */ (modify ?m (Miegu ?x)) /* nuskaitytas argumentas priskirimas faktui Miegu */ (printout t "****************************************************" crlf) (printout t "* -Ekspermentines sistemos ' Atostogos ' pasiulymas- *" crlf ) ) (run)

Daugiau informacijos...

Šį darbą sudaro 3069 žodžiai, tikrai rasi tai, ko ieškai!

★ Klientai rekomenduoja


Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!

Detali informacija
Darbo tipas
Lygis
Universitetinis
Failo tipas
Word failas (.doc)
Apimtis
15 psl., (3069 ž.)
Darbo duomenys
  • Informacinių technologijų namų darbas
  • 15 psl., (3069 ž.)
  • Word failas 131 KB
  • Lygis: Universitetinis
www.nemoku.lt Atsisiųsti šį namų darbą
Privalumai
Pakeitimo garantija Darbo pakeitimo garantija

Atsisiuntei rašto darbą ir neradai jame reikalingos informacijos? Pakeisime jį kitu nemokamai.

Sutaupyk 25% pirkdamas daugiau Gauk 25% nuolaidą

Pirkdamas daugiau nei vieną darbą, nuo sekančių darbų gausi 25% nuolaidą.

Greitas aptarnavimas Greitas aptarnavimas

Išsirink norimus rašto darbus ir gauk juos akimirksniu po sėkmingo apmokėjimo!

Atsiliepimai
www.nemoku.lt
Dainius Studentas
Naudojuosi nuo pirmo kurso ir visad randu tai, ko reikia. O ypač smagu, kad įdėjęs darbą gaunu bet kurį nemokamai. Geras puslapis.
www.nemoku.lt
Aurimas Studentas
Puiki svetainė, refleksija pilnai pateisino visus lūkesčius.
www.nemoku.lt
Greta Moksleivė
Pirkau rašto darbą, viskas gerai.
www.nemoku.lt
Skaistė Studentė
Užmačiau šią svetainę kursiokės kompiuteryje. :D Ką galiu pasakyti, iš kitur ir nebesisiunčiu, kai čia yra viskas ko reikia.
Palaukite! Šį darbą galite atsisiųsti visiškai NEMOKAMAI! Įkelkite bet kokį savo turimą mokslo darbą ir už kiekvieną įkeltą darbą būsite apdovanoti - gausite dovanų kodus, skirtus nemokamai parsisiųsti jums reikalingus rašto darbus.
Vilkti dokumentus čia:

.doc, .docx, .pdf, .ppt, .pptx, .odt