Je to proste prí­beh, skor neaka rozprávka o Ma»ovi

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorù)

Autor: Tomi
Program: Mato.pas
Soubor exe: Mato.exe

Je to proste prí­beh, skor neaka rozprávka o Ma»ovi. Je tam vyu¾itá if(podmienka) then begin ...... Rozprávka spoèíva v prí­behu plus k tomu sú otázky a úlohy.
{ 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 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Ÿ <ENTER> 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Ÿ <ENTER> 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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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 <ENTER>');
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.