První příkazy

Slovníček:
Překladač = program, co spouští naše dílko a v případě chyby na nás vrčí.

Příkazy se píší mezi Begin a End. a každý končí středníkem (;).

Seznam příkazů pro dnešní lekci: Readln, Write, Writeln, ClrScr, Sound, Delay, NoSound, TextColor;
Seznam jednotek: System, Crt

První příkaz, který probereme, bude Readln; Ten zastaví program a počká na stisk klávesy ENTER.

Nejdůležitějším příkazem je Write('Text'); Ten na obrazovku vypíše to, co je mezi apostrofy (chceme-li na obrazovku napsat apostrof, musíme ho v Pascalu zdvojit). Write('Apostrof je tento znak '' a píše se takto ''''');

Druhým nejdůležitějším příkazem je Writeln('Text'); Ten dělá to samé, co Write, ale pak skočí na další řádek obrazovky. Rozdíl mezi Write a Writeln nejlépe pochopíte, když si to vyzkoušíte:

Program Ahoj;
{Napíše na obrazovku ahoj a počká na stisk klávesy ENTER}
Begin
 Write('A');
 Write('hoj');
 Readln; {Abychom na obrazovce také něco zahlédli, že...}
End.

Zkuste si zde napsat Writeln místo Write a uvidíte rozdíl.

V Pascalu jsou jednotlivé příkazy děleny do menších podskupin (jednotek). V každém programu můžeme používat příkazy jednotky System (zde jsou umístěny ty nejdůležitější). Pokud však chceme používat i další příkazy, musíme to překladači nějak oznámit. K tomu slouží slovo uses. Například v jednotce Crt jsou příkazy pro práci s textem, chceme-li je používat, musíme napsat:

Program Text;
Uses Crt;
Begin
End.

Bohužel jednotka Crt nefunguje u některých překladačů na procesorech rychlejších než 200MHz (hlásí dělení nulou). Pokud je to váš případ, stáhněte si odněkud z Internetu opravenou jednotku(třeba Crtp2 - pak místo Crt pište Crtp2) či patch či novější překladač. Delphisty zklamu - ty tuhle jednotku vůbec nemají (zato mají mnohem lepší nástroje, ale ty už nepatří do Pascalu...) Užíváte-li FreePascal - uses Crt psát vůbec nemusíte, její příkazy jsou totiž již v 'hlavní sadě'.

Nejjednodušším příkazem této jednotky je ClrScr; ten smaže obrazovku.
Druhým příkazem je Sound(frekvence). Ten způsobí, že speaker začne vydávat zvuk o dané frekvenci.
Dalším příkazem je Delay(ms); Zastaví běh programu na dobu ms milisekund;
NoSound; Ukončí vydávaný zvuk. Ukažme si to na příkladu :

Program Pistala;
{Jediné, co to umí, je deset sekund pištět}
Uses Crtp2;
Begin
   Write('Budu pistet');
   Sound(440); {Frekvence komorního a}
   Delay(5000); {Pět sekund počkej}
   ClrScr;      {Smaž to odpornou hlášku}
   Delay(5000); {Počkej dalších pět sekund}
   Nosound;     {Než program ukončíme, je lepší přestat s tím odporným zvukem,
                 později už to nepůjde}
End.

Všimněte si, že pro větší přehlednost jsou příkazy posunuty o tři sloupce doleva. Doporučuji se toho držet. Taky si můžete všimnout, že komentáře mohou být i víceřádkové.
Posledním příkazem pro dnešek bude TextColor(Číslo); Změní barvu textu na barvu s daným číslem (je také součástí Crt). Čísla mohou být od jedné do šestnácti. Co které znamená, si vyzkoušejte sami. Udělejte si tabulku.

Domácí úkol: Vyzkoušejte si napsat vlastní program se všemi příkazy, které jsme až dosud probrali. Naučte se názvy příkazů zpaměti a s jejich pomocí napište pět různých programů. Pokud neumíte anglicky, tak se to naučte. Do nápovědy (=helpu) se podívejte na jednotku (=unit) Crt.