{ MATO.PAS } { } { Je to proste pribeh skor neaka rozpravka o Matovi. } { Je tam vyuzite if(podmienka) then begin ...... } { Rozpravka spociva v pribehu plus k tomu su otazky a ulohy. } { } { Author: Tomi } { Date : 2.12.2009 http://www.trsek.com } program pribeh; uses crt; var a:string; x:integer; begin writeln('************************************************'); writeln('************ Vitajte v pribehu******************'); writeln('**************** s n zvom **********************'); writeln('************************************************'); writeln('************************************************'); writeln('** **'); writeln('** * * **'); writeln('** ** **'); writeln('** ** ** * * * * * * * * **'); writeln('** * * * * * * * * * **'); writeln('** * * * * * * * * * **'); writeln('** * *** * * * * * * * * **'); writeln('** * * * * * * * **'); writeln('** * * * * * ***** **'); writeln('** **'); writeln('************************************************'); writeln('*** Stlac pre pokracovanie ** **'); writeln('************************************* * * **'); writeln('************************************* * **'); writeln('************************************* **'); writeln('************************************* * * **'); writeln('************************************* * * **'); writeln('************************************* **'); writeln('************************************************'); readln; clrscr; writeln('Kde bolo tam bolo žil jeden chlapec menom Maťo.'); writeln('Od narodenia žil s m so zvieratkami v lese a neust le'); writeln('čelil n strah m starej ženy ktor bola zn ma v celom lese'); writeln('pod menom ŠIALENÁ MARY- ktor vedela čarovať.Maťovi jedného dňa vzkľzla myšlienka'); writeln('že sa vyberie do ďalekého kr ľovstva n jsť svojich rodičou.'); writeln('Piatok ,za skorého r na sa Maťo vyberie na cestu. '); writeln('ŠIALENÁ MARY sa dozvedela o jeho plane a prichistala '); writeln('mu rôzne ot zky a úlohy ktoré musi spr vne vyriešiť.'); writeln('Ak sa mu to nepodari,tak ŠIALENÁ MARY ho hodí ako'); writeln('pochúťku pre potkany.'); writeln(''); writeln('Stlač pre pokračovanie'); readln; clrscr; writeln(''); writeln(''); writeln(''); writeln(''); writeln(''); writeln('*************************************************'); writeln('*************************************************'); writeln('******** VEĽA ŠTASTIA PRI PLNENÍ ÚLOH ***********'); writeln('*************************************************'); writeln('*************************************************'); writeln(''); writeln(''); writeln('Stlač pre pokračovanie'); readln; clrscr; writeln('Ako tak Maťo ide v prvej f ze cesty pride k močiarom a na'); writeln('strome ho čak úloha ktorú by mal viriešiť spr vne'); writeln('aby prezil.Otvorí pergament na ktorom je príklad'); writeln('Ak ho spravne vyriesi tak vysledok mu povie na aký kameň'); writeln('v poradi ma stúpať.'); writeln(''); writeln('Aký je výsledok? 20+20+20-200+162+6'); writeln('Vysledok videľte 4 a vysledok je ? '); writeln(''); writeln('a,2 b,3'); writeln('b,4 c,0 '); writeln(''); readln(a); if a='a' then begin writeln(''); writeln('Vypočítali ste ten priklad spr vne,Maťko presk če cez tie kamene'); writeln('až na druhú stranu zap chajúceho močiaru.'); writeln(''); writeln('Pre pokračovanie dajte '); readln; clrscr; end else begin writeln('Bohuzial,nauč sa počítať jednoduchu matematiku.Maťko spadol '); writeln('do močiara a spapali ho červíky a močiarenske kom re'); writeln('Maťkova puť do ďalekého kr ľovstva sa končí.Minúta smutku prosim!'); readln; clrscr; exit; end; writeln(''); writeln('Ako tak Maťko prešiel močiare tak ide dlhu cestu rovno a rvono cez'); writeln('vrchy kopce.Uz sa zotmelo a Maťko nevie ako a pomocou čoho spraviť'); writeln('ohen.Pomôž mu !Ak nepomôžeš Maťko zomrie od zimy.'); Writeln(''); writeln('Pre zobrazenie otazky dajte '); readln; clrscr; writeln(''); writeln('Čo si ma zohnat a ako spraviť oheň ?'); writeln(''); writeln('a, zoženie si si slamu a zacne šuchat slamu o zem ?'); writeln('b, zavola hlupeho vlka a povie mu aby mu ten oheň založil ?'); writeln('c, Zozenie si suchu travu,2x suchý konar,položí slamu na zem'); writeln(' a nad slamou zacne o seba triet konare? '); writeln(''); readln(a); if a='c' then begin writeln(''); writeln('poradili ste mu spr vne.Maťko si založí oheň a ohreje sa.'); writeln(''); writeln('Pre pokračovanie dajte '); readln; clrscr; end else begin writeln('Poradili ste mu zle.Maťko v noci zamrzol a Mary vam posiela'); writeln('krasnu pusinku zato že ste ho nechali zomrieť'); writeln('Maťkova puť do ďalekého kr ľovstva sa končí.Minúta smutku prosim!'); readln; exit; end; writeln(''); writeln('V dalsej faze jeho cety ide cez sopku.Totiz je to jedina cesta.'); writeln('vide na vrchol sopky a vidi cez jej dieru poukladané 3 dosky a na zemy '); writeln('vidí pergament ako v prvej ulohe.ak sa mu podari vyriesit nasledujucu '); writeln('ulohu tak zisti ktora doska je dost pevna aby ho udrzala '); writeln(''); writeln('ak chcete zobrazit otazku stlačte '); readln; clrscr; writeln('Zväčšením nezn meho čísla o 3% dostaneme číslo 412.Určte nezn me číslo'); writeln(''); writeln('a, 300 '); writeln('b, 400 '); writeln('c, 401 '); writeln(''); readln(a); if a='b' then begin writeln(''); writeln('Vypočítali ste to spravne a Maťko prešiel cez dieru sopky.'); writeln('a pokracuje na poslednú skúšku'); writeln('Pre pokračovanie dajte '); readln; clrscr; end else begin writeln('Vypočítali ste to spatne ste kaput.Maťko hopsol do diery sopky '); writeln('a tam sa pekne pripiekol a a z jeho tela neostalo nič.'); readln; writeln(''); writeln('Pre pokračovanie dajte '); readln; exit; end; writeln(''); writeln('Ked presiel cez dieru uvidel z dialky kraľovstvo kde ma najsť svojich rodičou'); writeln('prišiel k razcestí k ceste ktora viedla 2 smermy.Nevie sa rozhodnut'); writeln('ktorou cestou ma ist tak mu porad.'); writeln(''); writeln('Pre zobrazenie otazky dajte '); readln; clrscr; writeln(''); writeln('Ktory smer cesty poradiš Maťkovi?'); writeln(''); writeln('a, vpravo ?'); writeln('b, vlavo ?'); readln(a); if a='b' then begin clrscr; writeln(''); writeln(''); writeln('***************************************************************************'); writeln('********* *************'); writeln('********* * * * * * * * * * * ****************'); writeln('********* * * * * * * * * * ******************'); writeln('********* * * * * * * * *********************'); writeln('********* * * * * ** * * * * *********************'); writeln('********* * * * * * * ******************'); writeln('********* * * * * * * * * ****************'); writeln('********* * * * * * * * * * *************'); writeln('********* *************'); writeln('***************************************************************************'); writeln(''); writeln(''); writeln('SPRAAAAAAÁÁÁÁÁÁVNE . Maťko sa dostal do kraľovstva štastne bez ujmy nazdravi '); writeln('a našiel aj svojich rodicou a zili az do smrti štastne a v laske.'); writeln(''); writeln('Pre ukončenie pribehu dajte '); readln; end else begin writeln('Nevyšlo ti to.Poradil si Maťkovi zle.Maťko sa zatulal do tmaveho lesa '); writeln('a tam ...ho zjedol Medved.'); writeln('Koniec pribehu '); readln; exit; end; end.