Programování v praxi - 2.díl
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Programování v praxi - 2.dílProgramování v praxi - 2.díl

 

Programování v praxi - 2.díl

Google       Google       11. 3. 2007       13 838×

Dneska se podíváme na vytvoření pěkného menu a vysvětlíme si, jakým způsobem budeme šifrovat.

Reklama
Reklama

Dneska nejprve napíšeme proceduru menu, která nám vypíše úvodní obrazovku našeho programu. Tady je kód.

procedure menu;
begin
     while true do
     begin
     clrscr;
     textcolor(3);
     textbackground(white+green);
     clrscr;

     writeln("     *********   *      *    *     * * * *   *           *          *        ");
     writeln("     *           **     *    *    *       *  * *       * *         * *       ");
     writeln("     *           * *    *    *   *        *  *   *   *   *        *   *      ");
     writeln("     *****       *  *   *    *   *           *     *     *       *     *     ");
     writeln("     *****       *   *  *    *   *  *******  *           *      *********    ");
     writeln("     *           *    * *    *   *        *  *           *     *         *   ");
     writeln("     *           *     **    *   *       *   *           *    *           *  ");
     writeln("     *********   *      *    *    * * * *    *           *   *             * ");
     writeln;writeln;textcolor(white);writeln("Program enigma pro sifrovani a desifrovani zprav.");
     writeln;
     writeln;
     writeln("Vyberte moznost: (1) Sifrovat");
     writeln("                 (2) Desifrovat");
     writeln("                 (3) Premazani souboru");
     writeln("                 ---------------------");
     writeln("                 (0) Konec     ");

     read(k);

     case k of
     1:lsifra;
     2:desifra;
     3:premazani;
     0:konec;
     else:spatneheslo;
     end;
     end;
readkey;
end;

Tak a teď si to projedeme:

  • procedure menu – klasika; říkáme překladači, že chceme podprogram menu
  • while true do – nekonečná smyčka
  • clrscr – vymaže obsah obrazovky
  • textcolor(3) – nastaví barvu textu na barvu s konstantou 3
  • textbackground(white+green) – nastaví barvu pozadí na míchaninu bílé a zelené
  • Poté následuje vykreslení nápisu ENIGMA vyvedeného z hvězdiček (*) a pak už samotné menu
  • read(k) – do proměnné k (typu integer, jenž nám do ní umožňuje nahrát celé číslo), kterou musíme nadeklarovat na začátku, uložíme uživatelskou volbu
  • case k of – podle proměnné k určí, co se bude dít dál
  • readkey – stopne běh programu až do stisknutí libovolné klávesy

Tím by tedy byl hotov podprogram menu.


Nyní si ještě zlehka popíšeme, jak zhruba budou vypadat naše šifrovací a dešifrovací funkce. Po stisknutí tlačítka šifrovat se vypíše zpráva, která uživatele vyzve k zadání dvou číselných kódů. Poté se objeví obrazovka, kde už se bude přímo zadávat text, který se následně uloží do jednorozměrného pole o dostatečné velikosti (6 000 znaků). Poté tato šifrovací funkce celý text projede a každý znak převede na jeho ordinální hodnotu. Nakonec ke každé sudé ordinální hodnotě znaku přičte kód A a ke každé liché kód B. Poté zase převede všechny ordinální hodnoty zpět na znaky. Příště si napíšeme zdrojový kód pro šifrovací funkci.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

3 názory  —  3 nové  
Hlasování bylo ukončeno    
0 hlasů
Google
Autor se věnuje programování v PACALU, vyvojovém prostředí Delphi, dále se zajímá o webdesing a tvorbu internetových stránek pomocí HTML, PHP a CSS.

Nové články

Obrázek ke článku Nový IT hráč na českém trhu

Nový IT hráč na českém trhu

V roce 2015 otevřela v Praze na Pankráci v budově City Tower své kanceláře společnost EPAM Systems (NYSE:EPAM), jejíž centrála se nachází v USA. Společnost byla založená v roce 1993 a od té doby prošla velkým vývojem a stále roste.

Reklama
Reklama
Obrázek ke článku České Radiokomunikace opět hledají nejlepší nápady pro internet věcí

České Radiokomunikace opět hledají nejlepší nápady pro internet věcí

České Radiokomunikace (CRA) pořádají druhý ročník CRA IoT Hackathonů. Zájemci z řad vývojářů a fanoušků moderních technologií mohou změřit své síly a během jediného dne sestrojit co nejzajímavější funkční prototyp zařízení, které bude komunikovat prostřednictvím sítě LoRa. CRA IoT Hackathony se letos uskuteční ve dvou fázích, na jaře a na podzim, v různých městech České republiky. Jarní běh se odstartuje 31. března v Brně a 7. dubna v Praze.

Obrázek ke článku Cloud computing je využíván stále intenzivněji

Cloud computing je využíván stále intenzivněji

Využívání cloud computingu nabývá na intenzitě. Jen v letošním roce vzroste podle analytiků trh se službami veřejného cloudu o 18 %, přičemž o téměř 37 % vzrostou služby typu IaaS. Růst o více než pětinu pak čeká služby poskytování softwaru formou služby, tedy SaaS. Aktuálním trendům v oblasti využívání cloudu se bude věnovat konference Cloud computing v praxi, která se koná 23. března. 2017 v pražském Kongresovém centru Vavruška na Karlově náměstí 5.

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý