А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов


Download 0.79 Mb.
bet49/57
Sana20.12.2022
Hajmi0.79 Mb.
#1035125
1   ...   45   46   47   48   49   50   51   52   ...   57
Bog'liq
Turbo Pascal услубий кулланма янги

ТУРБО ПАСКАЛ модуллари


Режа:
1. Модуль тўғрисида умумий тушунчалар
2. Модуль яратиш.
3. Модулни ишга тайёрлаш.
4. Модулдан фойдаланиш.

1. Бир ёки бир неча процедура ва функциялардан турли дастурлар ичида фойдаланиш эхтиёжлари туғилади. Масалан, бир неча сонларнинг энг катта ёки энг кичигини топиш, бир неча сонларнинг йиғиндиси ёки кўпайтмасини топиш алгоритмлари жуда кўп масалалар ичида учрайди.


Ҳар бир масала дастури матни ичига бу алгоритмлар учун процедура ёки функция ёзиш зарурати бўлади. Битта дастур ичида кўп такрорланувчи алгоритмларни процедура ёки функция кўринишда ёзиб дастур матинини соддалаштириш мумкин бўлгани каби, бир неча турли дастурлар ичида учрайдиган бир турдаги алгоритмларни битта файлга ёзиб қўйиш ва улардан ихтиёрий дастур ичида фойдаланиш мумкин. Бундай файлларни модуллар дейилади.
Демак, модуллар процедуралардан иборат файлдир. Бу файлни ташкил этишнинг ўз тартиби бор:


unit модуль номи
interface
...................................................
процедура ва функция номлари рўйхати,
агар бор бўлса параметрлари билан бирга
...................................................


implementation
...................................................
процедура ва функциялар дастурлари
...................................................
begin
<модуль учун махсус дастур>
end.

Interface дан кейин ёзиладиган рўйхат процедура ва функцияларни яратишда уларнинг номлари қандай кўринишда ёзилса, худди айнан шу кўринишда ёзилиши шарт.


2. Модуль учун махсус дастур - бу модулга биринчи бор мурожаат этилганда асосий дастурга қайтишдан аввал бажариладиган операторлардир. Бу дастурни ёзиш шарт эмас, унда begin сўзи ҳам керак эмас, лекин охирги end ёзилиши шарт.
Мисол 1.


unit minmax;
interface
function Min(x,y:integer):integer;
function Max(x,y:integer):integer;

Download 0.79 Mb.

Do'stlaringiz bilan baham:
1   ...   45   46   47   48   49   50   51   52   ...   57




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling