Je to proste prÝşbeh, skor neaka rozprßvka o Ma╗ovi

Delphi & Pascal (Ŕeskß wiki)
P°ejÝt na: navigace, hledßnÝ
Kategˇria:

Autor: Tomi
Program: Mato.pas
S˙bor 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.