Vítám Vás po dlouhé době u dalšího pokračování článku o Pascalu. V minulosti jsem Vám psal, jak určit předchůdce čísla, následníka, kód čísla atd., ale neukázal jsem Vám, jak to do Pascalu zapsat, protože jsme ještě neznali způsoby zapisování a ukládání proměnných. To už ale po minulém článku známe, takže se do toho můžeme s radostí pustit.

Předchůdce

Funkce PŘEDCHŮDCE nám vypíše znak, který je před daným znakem (jak číslem, tak písmenem). Jestli si vzpomínáte, tak se to zapisuje jako: pred();. Z toho si tedy vytvoříme následující program:
   Nejdřívě si vytvoříme jednu proměnnou, do které uložíme číslo zadané uživatelem a druhou proměnnou, která bude pracovat právě s funkcí PŘEDCHŮDCE, tj:

                                          var
                                            a,b:integer;

Dále se pustíme do samotného programu, nejdříve vymažeme předchozí text příkazového řádku a vyzveme uživatele, aby nám zadal nějaký znak, u kterého chce zjistit svého předchůdce a znak uložíme do proměnné “a”:

                                         begin
                                         clrscr;
                                         writeln(’Zadejte nejaky znak: ‘);
                                         readln(a);
                                         end.

Dále použijeme proměnnou “b”, které přiřadíme operaci PRED, tzn:

                                         begin
                                         clrscr;
                                         writeln(’Zadejte nejaky znak: ‘);
                                         readln(a);
                                         b:=pred(a);
                                         end.

Nakonec náš výsledek vypíšeme na obrazovku uživateli a napíšeme tam ukončovací znak READLN;, asi takhle:

                                         begin
                                         clrscr;
                                         writeln(’Zadejte nejaky znak: ‘);
                                         readln(a);
                                         b:=pred(a);
                                         writeln(’Predchudcem znaku ‘,a,’ je znak ‘,b);
                                         readln;
                                         end.

Další operace a funkce

Jelikož ostatní funkce jsou úplně stejný, tak sem vypíše pouze jejich zdrojový kód bez komentáře. Při potížích mi napište na můj e-mail jindra.domanja@seznam.cz, nebo mi zanechte vzkaz v komentáři k tomuto příspěvku.

Následník

var
a,b:integer;
begin
clrscr;
writeln(’Zadejte nejaky znak: ‘);
readln(a);
b:=succ(a);
writeln(’Naslednikem znaku ‘,a,’ je znak ‘,b);
readln;
end.

Další postupy jsou stejné, takže Vám to snad ani nebudu dále psát. Příště se můžete těšit na řízení, na větvení pomocí příkazu IF.

HENRY