{ 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.