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

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

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

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

Google       Google       8. 3. 2007       24 554×

V mém seriálu bych vám chtěl přiblížit programování v jazyce PASCAL v praxi.

Reklama
Reklama

Tento seriál si neklade za cíl naučit vás programovat v Pascalu. Od toho tu už jeden kurz je. Já vycházím z předpokladu, že už programovat alespoň částečně umíte. A tak bych vám chtěl v tomto seriálu ukázat Pascal spíše na praktických příkladech. Tím chci říct, že bych s vámi postupem času chtěl vytvořit několik programů, které se dají v rámci možností Pascalu využít v praxi. Prvním z nich bude program na šifrování textu. Bude schopen načíst libovolný textový soubor a pomocí dvou „kódů“ jej zašifrovat, nebo naopak dešifrovat. Tento program spolu postupně celý napíšeme. Na závěr pak uvedu celý zdrojový kód.


V dnešní první části naprogramujme jednu rutinní proceduru pro ovládání programu. Nejdříve však obvyklý začátek.

Program Enigma;
uses crt;
   begin
      textcolor(white);
      clrscr;
      readkey;
   end;

Pro ty, co neví, co znamená uses crt, je to pouze příkaz, který překladači řekne, že chci používat jednotku crt, která mi dovolí používat některé funkce jako třeba clrscr, jež vymaže všechny znaky na obrazovce; textcolor(white), která změní barvu textu na bílou, nebo readkey, čímž se programu řekne, aby počkal na stisknutí libovolné klávesy a potom pokračoval v běhu programu.

Nyní proceduru press, která po zavolání vypíše text „Stiskněte libovolnou klávesu pro pokračování…“, jenž bude mít červenou barvu a bude blikat (textcolor(red+blink)). Po stisknuti libovolné klávesy bude běh programu pokračovat.

Procedure press;
begin
  textcolor(red+blink);
  writeln("Stiskněte libovolnou klávesu pro pokračování");
  textcolor(white);
  readkey;
end;

To by bylo pro dnešek všechno. Příště si vytvoříme menu, ze kterého budeme vše ovládat a pomalu se pustíme do psaní funkcí pro šifrování a dešifrování textu.

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

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 SODAT vidí budoucnost datové bezpečnosti ve strojovém učení

SODAT vidí budoucnost datové bezpečnosti ve strojovém učení

Firmy chrání svá citlivá data často nedostatečně. Podle průzkumu společnosti SODAT se v minulém roce setkalo až 80 % z nich s bezpečnostním incidentem ztráty nebo úniku dat. Jedna z pilotních firem, která testovala novou verzi řešení SODAT Protection & Analytics 2.0pro bezpečností analýzu a monitoring dat díky novince zjistila, kdo z disku smazal důležité výkresy a mohla na incident včas reagovat.

Reklama
Reklama
Obrázek ke článku Kontrolujete pracovní emaily i na dovolené? 7 tipů odborníka, jak nepřijít o data

Kontrolujete pracovní emaily i na dovolené? 7 tipů odborníka, jak nepřijít o data

Letní měsíce jsou pro většinu zaměstnanců spojené s každoroční dovolenou. Z údajů Českého statistického úřadu vyplývá, že v roce 2017 podnikli Češi přes 13 milionů delších cest (tzn. s více než čtyřmi noclehy). Přitom právě na období července, srpna a září připadá více než 7,5 milionů z nich. Nicméně tradiční představu o dovolené jako o čase, kdy má práci na starost někdo jiný, Češi boří. 

Obrázek ke článku 10 SEO mýtů, které už nemusíte v roce 2018 řešit

10 SEO mýtů, které už nemusíte v roce 2018 řešit

„Kolik má být na stránce klíčových slov?“, „Nemáš vyplněný meta tag keywords, to nebude fungovat.“, „Katalogy jsou mrtvý“. Také jste už slyšeli některé z těchto otázek? Pojďme si na ně konečně jednou provždy odpovědět.

Obrázek ke článku Trend Micro pomohlo usvědčit viníky v mezinárodním případu Scan4You

Trend Micro pomohlo usvědčit viníky v mezinárodním případu Scan4You

Společnost Trend Micro Incorporated, globální lídr v oblasti kybernetické bezpečnosti, oznámila podrobnosti o své úzké spolupráci s FBI v případu Scan4You. Trend Micro se podílelo na identifikaci osob, které byly spojeny se službou Scan4You Counter Antivirus, což vedlo k jejich odsouzení.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý