Vítám Vás u dalšího pokračování pravidelného povídání o programovacím jazyku Pascal. Doteď jsem Vám zde uváděl jen samou teorii, ale dnes si konečně něco naprogramujeme. Budete konečně ta dlouho slibovaná něco jako kalkulačka.Protože už známe proměnné i datové typy a operace nad jednotlivými datovými typy, tak dneska si ukážeme, jak všechno použít. To se však ještě musíme naučit psát.

Psaní

   V Pascal ED je v záložce písmo, která se objeví ihned po spuštění, nabídka WRITE, TEXTCOLOR, READLN, GOTOXY a CLRSCR. Příkaz clrscr (clear screen) nám v příkazovém řádku vymaže předchozí text. Umisťuje se zpravidla na začátek celého programu, hned jako první příkaz pod BEGINem. GOTOXY (go to x/y=jdi na x/y) slouží, abychom si sami určili, odkud začneme psát, s tím, že první vždy uvedeme počet pixelů podél osy X a jako druhý údaj bude odsazení od kraje podle osy Y. Pokud to neuvedeme, automaticky začneme v levém horní rohu. WRITE slouží k psaní textů. Všechen text se píše do apostrofů, například write(’Ahoj, jsem redaktor.’); by nám vypsalo text “Ahoj, jsem redaktor”.Pokud bychom zapsali WRITELN(’Ahoj, jsem redaktor’);, tak by se text uméstil o řádku níže. Pro barvu písma si vybereme příkaz TEXTCOLOR(’0-14′);, kde barvy doplňujeme podle čísel 0-14, kde barvu odpovídající číslu máme napsanou v NASTAVENÍ=>BARVY. Příkazem READLN uložíme proměnnou.

Počtář (minikalkulačka)

   Aby bylo vše jasné, ukážeme si první příklad a první program:
   Nejdříve si musíme uvědomit, co všechno bude náš program dělat. Bude čísla sčítat, odečítat, dělit, násobit, tj. 4 operací, což se rovná 4 proměnným například a,b,c,d,e,f, všechny datového typu real, protože nevíme, jaká čísla zadáme. Budeme ovšem znát dvě čísla, která si uložíme do nějakých proměnných, vznikne tedy 6 proměnných:

                                            a,b,c,d,e,f:real;

   Nyní vymažeme nynejší obsah příkazového řádku pomocí clrscr a vyzveme uživatele, aby nám zadal první číslo a to uložíme do proměnné “a”:

                                            clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);

   Teď vyzveme uživatele k zadání druhého čísla uloženého do proměnné “b”:

                                            clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);
                                            writeln(’Zadejte druhe cislo: ‘);
                                            readln(b);

   A protože známe již operace nad číselnými výrazy, můžeme pokračovat. POZOR!!! = JE ZNAMÉNKO POROVNÁVAJÍCÍ, := JE ZNAMÉNKO, KTERÉ NĚČEMU PŘIŘAZUJE NĚJAKOU HODNOTU

                                             clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);
                                            writeln(’Zadejte druhe cislo: ‘);
                                            readln(b);
                                            c:=a+b; (*”c” je výsledek sčítání*)
                                            d:=a-b; (*”d” je výsledek odčítání*)
                                            e:=a*b; (*”e” je výsledek násobení*)
                                            f:=a/b; (*”f” je výsledek dělení*)

   Nyní máme již provedeny příklady, ale ještě je máme pouze v paměti, ne na obrazovce. Napíšeme to tedy zvlášť jako:

                                            clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);
                                            writeln(’Zadejte druhe cislo: ‘);
                                            readln(b);
                                            c:=a+b; (*”c” je výsledek sčítání*)
                                            d:=a-b; (*”d” je výsledek odčítání*)
                                            e:=a*b; (*”e” je výsledek násobení*)
                                            f:=a/b; (*”f” je výsledek dělení*)
                                            writeln(’Vysledek scitani je’,c:6:2,);

   Jak jste si jistě všimli, tak hodnoty proměnných se vypisují za ukončeným apostrofem oddělené čárkou. Je tam také 6:2 což říká, že chceme vypsat 6 míst před a 2 místa za desetinnou čárkou. Počet můžeme libovolně měnit.

                                            clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);
                                            writeln(’Zadejte druhe cislo: ‘);
                                            readln(b);
                                            c:=a+b; (*”c” je výsledek sčítání*)
                                            d:=a-b; (*”d” je výsledek odčítání*)
                                            e:=a*b; (*”e” je výsledek násobení*)
                                            f:=a/b; (*”f” je výsledek dělení*)
                                            writeln(’Vysledek scitani je ‘,c:6:2);
                                            writeln(’Vysledek odcitani je ‘,d:6:2);
                                            writeln(’Vysledek nasobeni je ‘,e:6:2);
                                            writeln(’Vysledek deleni je ‘,f:6:2);

   Tak to jest vše. Na konec však ještě musíme umístit koncový READLN, tzn.:

                                            clrscr;
                                            writeln(’Zadejte prvni cislo: ‘);
                                            readln(a);
                                            writeln(’Zadejte druhe cislo: ‘);
                                            readln(b);
                                            writeln(’Vysledek scitani je ‘,c:6:2);
                                            writeln(’Vysledek odcitani je ‘,d:6:2);
                                            writeln(’Vysledek nasobeni je ‘,e:6:2);
                                            writeln(’Vysledek deleni je ‘,f:6:2);
                                            readln;

HENRY