TURBO PASCAL struktura programu, význam jednotlivých částí programu

9. února 2008 v 15:53 |  TURBO PASCAL
Turbo Pascal
Program začíná hlavičkou, která definuje jeho jméno. Jméno programu uvádí klíčové slovo program. Strukturu programu v Turbo Pascalu lze vyjádřit následujícím schématem:
program <jméno programu>; {hlavička programu}
{direktivy překladače }
uses <seznam jednotek>;
label
<deklarace návěští>;
const
<deklarace konstant>; {deklarační část}
type
<definice datových typů>;
var
<deklarace proměnných>;
procedure; function;
<deklarace uživatelských procedur a funkcí>;
begin
<tělo hlavního programu>; {příkazová část}
end.
Program je tedy rozdělen do 6 deklaračních částí. Všechny deklarační části však nemusí být uvedeny. Každou deklarační část uvádí příslušné klíčové slovo.
Definice jednotek
Klauzule uses v programu uvádí seznam jednotek, které má překladač prohledávat při překladu programu. Jednotlivé jednotky se v seznamu oddělují čárkami, seznam se musí ukončit středníkem. Do seznamu lze uvádět jednotky standardní i vlastní.
Příklad
uses
CRT, DOS, Moje;
Deklarace návěští, sekce label
Deklaraci návěští uvádí klíčové slovo label. Návěští definuje místo, na které se provádí skok příkazem goto. Návěští je posloupnost číslic v rozsahu 0-9999. Turbo Pascal umožňuje i používají identifikátoru ve funkci návěští.
Příklad
label 5,6,7;
begin
. . . .
goto 5;
. . . .
5:
. . . .
end.
Deklarace konstant
Klíčové slovo const uvádí deklaraci konstant v programu. Konstanty jsou prvky v programu, které v průběhu provádění programu nemění svou hodnotu (kromě typových). Konstanty mohou být číselné (integer, real), znakové (char), řetězcové (string), logické (boolean) aj.
Příklad
const
A =1; {číselná konstanta}
B =$F; {hexadecimální číslo}
LF =#10; {znaková konstanta}
RET =´ABC´; {řetězcová konstanta}
Konstanty se mohou vyjadřovat ve všech datových typech a formátech. Například číselné konstanty typu word nebo byte se mohou vyjádřit dekadicky nebo hexadecimálně. Hexadecimální vyjádření musí být uvedeno znakem $. Podobně je tomu i u znakových konstant, které se mohou vyjádřit přímým zápisem znaků ohraničeného apostrofy nebo jeho ASCII kódem uvedeným znakem #.
Deklarace proměnných
Deklarace proměnných se uvádí klíčovým slovem var. Do deklarace se zapíše seznam identifikátorů, které označují proměnné a jejich typ. K vyjádření typu lze použít klíčové slovo, které vyjadřuje některý ze standardních typů (integer, byte, word, string ...) nebo uživatelem definovaný identifikátor typu. Identifikátor proměnné se od datového typu odděluje dvojtečkou.
Příklad
var
a :integer; {celočíselná proměnná}
b,c :string; {řetězcová proměnná}
d :boolean; {logická proměnná}
Deklarace proměnné má platnost v bloku, kde byla provedena. Když byla proměnná deklarována na začátku programu, můžeme se na ní odvolávat ve všech procedurách programu. Pokud je deklarace proměnné uvedena ve vnořené proceduře nebo funkci, pak se na ní můžeme odkazovat pouze v rámci této procedury nebo funkce. Deklarace proměnné ve vnořeném bloku, která se jmenuje stejně jako proměnná v nadřazeném bloku, nezpůsobí změnu hodnoty proměnné v nadřazeném bloku.
Proměnné deklarované vně procedur a funkcí se nazývají globální a jsou uloženy v datovém segmentu programu po celou dobu běhu programu. Proměnné deklarované uvnitř procedur a funkcí se nazývají lokální a vytvářejí se v době výpočtu v zásobníkovém segmentu.
 

Buď první, kdo ohodnotí tento článek.

Komentáře

1 cialis_online cialis_online | E-mail | Web | 8. června 2014 v 18:38 | Reagovat

Hello!

2 Viaghaw Viaghaw | E-mail | Web | 26. dubna 2017 v 21:22 | Reagovat

viagra mal di testa

      <a href=http://buyviagraonlinezrx.com/>viagra online</a>

    <a href="http://buyviagraonlinezrx.com/">buy viagra</a>

    mail order viagra from india

3 Gavrilahaw Gavrilahaw | E-mail | Web | 3. května 2017 v 19:21 | Reagovat

danegers of generic cialis

      http://canadacialisnvz.com/ - calis cheap

    <a href="http://canadacialisnvz.com/">canadian cialis</a>

    day 30 cialis trial

4 Moiseshaw Moiseshaw | E-mail | Web | 7. května 2017 v 5:21 | Reagovat

payday loans online va

      <a href=http://bestpaydaynpz.com/>internet payday loans</a>

    <a href="http://bestpaydaynpz.com/">payday loan</a>

    payday loans like 247moneybox

5 Valeryhaw Valeryhaw | E-mail | Web | 20. května 2017 v 3:00 | Reagovat

cialis price in india price

      <a href=http://cialisonlinexbm.com/>cialis generic</a>

    <a href="http://cialisonlinexbm.com/">cialis online</a>

    cialis barat

6 Demidhaw Demidhaw | E-mail | Web | 28. května 2017 v 20:46 | Reagovat

buy cialis fedex shipping

      http://buygvcialisonline.com/ - order cialis

    <a href="http://buygvcialisonline.com/">cialis online</a>

    cialis in farmacia costo

7 Alexeyhaw Alexeyhaw | E-mail | Web | 2. června 2017 v 19:51 | Reagovat

costo di mercato del cialis

      http://cialis10mgonlinez.com/ - cialis online

    <a href="http://cialis10mgonlinez.com/">buy cheap cialis</a>

    buy cialis online india pill

8 Lioshaw Lioshaw | E-mail | Web | 1. srpna 2017 v 23:53 | Reagovat

i use it buy cialis in england

      http://genericialisasonline.com/ - cheap cialis

    <a href="http://genericialisasonline.com/">cheap cialis online</a>

    meilleur prix cialis canada

9 Moiseshaw Moiseshaw | E-mail | Web | 23. září 2017 v 2:16 | Reagovat

generic viagra in cabo san

      <a href=http://buycxviagra.com/>viagra online</a>

    <a href="http://buycxviagra.com/">buy viagra</a>

    viagra kaufen aus deutschland,

10 Geleshaw Geleshaw | E-mail | Web | 26. září 2017 v 2:15 | Reagovat

2 comprimes 5mg cialis

      <a href=http://cheapjicialis.com/>generic cialis</a>

    <a href="http://cheapjicialis.com/">cialis online</a>

    does cialis daily dose work

11 Osmininahaw Osmininahaw | E-mail | Web | 7. listopadu 2017 v 17:22 | Reagovat

the best site viagra attorneys

      <a href=http://viagrahsk.com/>buy viagra</a>

    <a href="http://viagrahsk.com/">buy generic viagra</a>

    female viagra alternative

12 Osmininahaw Osmininahaw | E-mail | Web | 7. listopadu 2017 v 20:16 | Reagovat

tube viagra

      <a href=http://viagrahsk.com/>buy viagra</a>

    <a href="http://viagrahsk.com/">cheap viagra</a>

    viagra alternative reviews

13 Osmininahaw Osmininahaw | E-mail | Web | 8. listopadu 2017 v 2:50 | Reagovat

only here viagra 50mg

      <a href=http://viagrahsk.com/>buy generic viagra</a>

    <a href="http://viagrahsk.com/">buy viagra</a>

    venta de viagra en internet

14 Osmininahaw Osmininahaw | E-mail | Web | 8. listopadu 2017 v 3:52 | Reagovat

viagra e vasodilatator

      <a href=http://viagrahsk.com/>buy viagra</a>

    <a href="http://viagrahsk.com/">cheap viagra</a>

    where to get viagra in bangkok

15 Osmininahaw Osmininahaw | E-mail | Web | 8. listopadu 2017 v 5:44 | Reagovat

half price viagra

      <a href=http://viagrahsk.com/>buy viagra online</a>

    <a href="http://viagrahsk.com/">buy viagra</a>

    purchase viagra from australia

16 Osmininahaw Osmininahaw | E-mail | Web | 8. listopadu 2017 v 15:33 | Reagovat

compra viagra en sevill

      <a href=http://viagrahsk.com/>buy viagra</a>

    <a href="http://viagrahsk.com/">buy viagra</a>

    viagra pesni online

17 Vovahaw Vovahaw | E-mail | Web | 9. listopadu 2017 v 19:03 | Reagovat

cialis pour homme canada

      <a href=http://cialisubz.com/>cialis online</a>

    <a href="http://cialisubz.com/">cheap cialis</a>

    free generic cialis combo pack

18 Danilahaw Danilahaw | E-mail | Web | 13. listopadu 2017 v 1:43 | Reagovat

costo del cialis in america

      http://cialisonlinefas.com/ - generic cialis online

    <a href="http://cialisonlinefas.com/">buy cialis online</a>

    cialis tadalafil 40

19 Danilahaw Danilahaw | E-mail | Web | 13. listopadu 2017 v 11:20 | Reagovat

visit our site purchase cialis

      http://cialisonlinefas.com/ - cialis online

    <a href="http://cialisonlinefas.com/">buy cialis online</a>

    cialis carte bancaire

20 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 2:54 | Reagovat

cialis 5 mg lowest price

      http://canadiancialisus.com/ - buy cialis

    <a href="http://canadiancialisus.com/">buy cialis</a>

    cialis fa male al cuore

21 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 7:37 | Reagovat

cialis pharmacokinetics

      http://canadiancialisus.com/ - generic cialis online

    <a href="http://canadiancialisus.com/">cialis canada</a>

    cialis 20 mg en peru

22 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 11:41 | Reagovat

cialis grenoble

      http://canadiancialisus.com/ - generic cialis

    <a href="http://canadiancialisus.com/">cialis online</a>

    visit our site cost cialis

23 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 14:56 | Reagovat

best cialis pills

      http://canadiancialisus.com/ - cialis cheap

    <a href="http://canadiancialisus.com/">generic cialis online</a>

    try cialis for free

24 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 16:10 | Reagovat

best price on cialis 5mg

      http://canadiancialisus.com/ - cialis canada

    <a href="http://canadiancialisus.com/">cialis online</a>

    cialis best prices

25 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 19:59 | Reagovat

cialis barato au

      http://canadiancialisus.com/ - cialis canada

    <a href="http://canadiancialisus.com/">generic cialis online</a>

    proper cialis dosage

26 Evelinahaw Evelinahaw | E-mail | Web | 14. listopadu 2017 v 23:52 | Reagovat

cialis cipla buy

      http://canadiancialisus.com/ - buy cialis

    <a href="http://canadiancialisus.com/">cialis</a>

    cialis price in nogales

27 Evelinahaw Evelinahaw | E-mail | Web | 15. listopadu 2017 v 1:56 | Reagovat

online cialis in usa

      http://canadiancialisus.com/ - canadian cialis online

    <a href="http://canadiancialisus.com/">generic cialis</a>

    cialis 20 mg or 100mg

28 Evelinahaw Evelinahaw | E-mail | Web | 15. listopadu 2017 v 10:17 | Reagovat

cialis generico a basso costo

      http://canadiancialisus.com/ - cialis canada

    <a href="http://canadiancialisus.com/">generic cialis</a>

    cialis e vista

29 Oleghaw Oleghaw | E-mail | Web | 15. listopadu 2017 v 16:45 | Reagovat

viagra over the counter cvs

      http://viagraonlinelka.com/ - cheap viagra

    <a href="http://viagraonlinelka.com/">buy viagra</a>

    generic viagra canada cheap

30 Oleghaw Oleghaw | E-mail | Web | 15. listopadu 2017 v 21:24 | Reagovat

cheapest viagra 100mg tablets

      http://viagraonlinelka.com/ - buy generic viagra

    <a href="http://viagraonlinelka.com/">purchase viagra</a>

    viagra softtabs

31 Oleghaw Oleghaw | E-mail | Web | 16. listopadu 2017 v 0:50 | Reagovat

super active viagra prices

      http://viagraonlinelka.com/ - online viagra

    <a href="http://viagraonlinelka.com/">viagra cheap</a>

    herbal viagra

32 Lyubahaw Lyubahaw | E-mail | Web | 17. listopadu 2017 v 23:56 | Reagovat

woman use viagra

      http://viagradiscountg.com/ - buy generic viagra

    <a href="http://viagradiscountg.com/">cheap viagra</a>

    prices viagra vs cialis

33 Lyubahaw Lyubahaw | E-mail | Web | 18. listopadu 2017 v 18:29 | Reagovat

viagra prices us

      http://viagradiscountg.com/ - viagra cheap

    <a href="http://viagradiscountg.com/">generic viagra online</a>

    viagra online in oklahoma

34 Wiktoriyahaw Wiktoriyahaw | E-mail | Web | 20. listopadu 2017 v 22:51 | Reagovat

click here herbal cialis

      http://buycialisjh.com/ - cialis

    <a href="http://buycialisjh.com/">cialis cheap</a>

    cialis 50 ans

35 Wiktoriyahaw Wiktoriyahaw | E-mail | Web | 21. listopadu 2017 v 5:17 | Reagovat

super cialis-verkauf

      http://buycialisjh.com/ - cialis online

    <a href="http://buycialisjh.com/">generic cialis</a>

    wow)) order cialis

Nový komentář

Přihlásit se
  Ještě nemáte vlastní web? Můžete si jej zdarma založit na Blog.cz.