more than 450 programs for free
English
Slovensky
esky
arisky
|
more than 450 programs for free
|
English |
Slovensky |
esky |
arisky |
|
Category: Source in Pascal (KMP) Author: Tomi Program: Mato.pas File exe: Mato.exe Je to proste prbeh, skor neaka rozprvka o Maovi. Je tam vyuit if(podmienka) then begin ...... Rozprvka spova v prbehu plus k tomu s otzky a lohy.
Views: 444x
{ 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 <ENTER> pre pokracovanie ** **'); writeln('************************************* * * **'); writeln('************************************* * **'); writeln('************************************* **'); writeln('************************************* * * **'); writeln('************************************* * * **'); writeln('************************************* **'); writeln('************************************************'); readln; clrscr; writeln('Kde bolo tam bolo il jeden chlapec menom Mao.'); 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.Maovi jednho da vzkzla mylienka'); writeln('e sa vyberie do alekho kr ovstva n js svojich rodiou.'); writeln('Piatok ,za skorho r na sa Mao vyberie na cestu. '); writeln('IALEN MARY sa dozvedela o jeho plane a prichistala '); writeln('mu rzne ot zky a lohy ktor musi spr vne vyriei.'); writeln('Ak sa mu to nepodari,tak IALEN MARY ho hod ako'); writeln('pochku pre potkany.'); writeln(''); writeln('Stla <ENTER> pre pokraovanie'); readln; clrscr; writeln(''); writeln(''); writeln(''); writeln(''); writeln(''); writeln('*************************************************'); writeln('*************************************************'); writeln('******** VEA TASTIA PRI PLNEN LOH ***********'); writeln('*************************************************'); writeln('*************************************************'); writeln(''); writeln(''); writeln('Stla <ENTER> pre pokraovanie'); readln; clrscr; writeln('Ako tak Mao ide v prvej f ze cesty pride k moiarom a na'); writeln('strome ho ak loha ktor by mal viriei spr vne'); writeln('aby prezil.Otvor pergament na ktorom je prklad'); writeln('Ak ho spravne vyriesi tak vysledok mu povie na ak kame'); writeln('v poradi ma stpa.'); writeln(''); writeln('Ak je vsledok? 20+20+20-200+162+6'); writeln('Vysledok videte 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('Vypotali ste ten priklad spr vne,Mako presk e cez tie kamene'); writeln('a na druh stranu zap chajceho moiaru.'); writeln(''); writeln('Pre pokraovanie dajte <ENTER>'); readln; clrscr; end else begin writeln('Bohuzial,nau sa pota jednoduchu matematiku.Mako spadol '); writeln('do moiara a spapali ho ervky a moiarenske kom re'); writeln('Makova pu do alekho kr ovstva sa kon.Minta smutku prosim!'); readln; clrscr; exit; end; writeln(''); writeln('Ako tak Mako preiel moiare tak ide dlhu cestu rovno a rvono cez'); writeln('vrchy kopce.Uz sa zotmelo a Mako nevie ako a pomocou oho spravi'); writeln('ohen.Pom mu !Ak nepome Mako zomrie od zimy.'); Writeln(''); writeln('Pre zobrazenie otazky dajte <ENTER>'); readln; clrscr; writeln(''); writeln('o si ma zohnat a ako spravi ohe ?'); writeln(''); writeln('a, zoenie si si slamu a zacne uchat slamu o zem ?'); writeln('b, zavola hlupeho vlka a povie mu aby mu ten ohe zaloil ?'); 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.Mako si zalo ohe a ohreje sa.'); writeln(''); writeln('Pre pokraovanie dajte <ENTER>'); readln; clrscr; end else begin writeln('Poradili ste mu zle.Mako v noci zamrzol a Mary vam posiela'); writeln('krasnu pusinku zato e ste ho nechali zomrie'); writeln('Makova pu do alekho kr ovstva sa kon.Minta 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 stlate <ENTER>'); readln; clrscr; writeln('Zvenm nezn meho sla o 3% dostaneme slo 412.Urte nezn me slo'); writeln(''); writeln('a, 300 '); writeln('b, 400 '); writeln('c, 401 '); writeln(''); readln(a); if a='b' then begin writeln(''); writeln('Vypotali ste to spravne a Mako preiel cez dieru sopky.'); writeln('a pokracuje na posledn skku'); writeln('Pre pokraovanie dajte <ENTER>'); readln; clrscr; end else begin writeln('Vypotali ste to spatne ste kaput.Mako hopsol do diery sopky '); writeln('a tam sa pekne pripiekol a a z jeho tela neostalo ni.'); readln; writeln(''); writeln('Pre pokraovanie dajte <ENTER>'); readln; exit; end; writeln(''); writeln('Ked presiel cez dieru uvidel z dialky kraovstvo kde ma najs svojich rodiou'); writeln('priiel 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 <ENTER>'); readln; clrscr; writeln(''); writeln('Ktory smer cesty poradi Makovi?'); 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('SPRAAAAAAVNE . Mako sa dostal do kraovstva tastne bez ujmy nazdravi '); writeln('a naiel aj svojich rodicou a zili az do smrti tastne a v laske.'); writeln(''); writeln('Pre ukonenie pribehu dajte <ENTER>'); readln; end else begin writeln('Nevylo ti to.Poradil si Makovi zle.Mako sa zatulal do tmaveho lesa '); writeln('a tam ...ho zjedol Medved.'); writeln('Koniec pribehu '); readln; exit; end; end. [Run] [Save] [Print] [Send e-mail] |
|
