Модульдік программалау


КІРІСПЕ ................... . . . . . .
1.ҚҰРЫЛЫМДЫҚ МОДУЛЬДІК ПРОГРАММАЛАУ.. . . . . . .
Модульдер................... . . . . . 4
Модульдік программалау.. . . . . . . .
Модульдік программа формасы.. . . . . . .
Стандартты структуралық программалау.. . . . . . .
Стандартты модульдер.. . . . . . . .
Модульдің жалпы құрлымы.. . . . . . .
Модульдегі көмекші программалар.. . . . . . .
2. МОДУЛЬДІ КОМПИЛЯЦИАЛАУ МЕН ОНЫҢ ҚОЛДАНЫЛУЫ..17
Модульді компиляциалау: TPU – файлдар.. . . . .
2.2. Модульдерді іздеу. TURBO. TPL –
2.3. Синтаксистік диаграммалар.. . . .
ҚОРЫТЫНДЫ................... . . . . . 24
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР.. . . . . . . .
Кіріспе
Модуль немесе жалпы жағдайда, модульдік программалау ұғымы есептеу ісінің
Turbo Pascal жүйесінің 4–версиасынан бастап оған модуль ұғымын ендіру
Turbo Pascal – дағы модульдік құралдар, модулдік принцип жобалау
Бұл курстық жұмыстың мақсаты құрылымдық модульдік программаларды зерттеп меңгеру
Негізінен бұл жұмыста модульдік программалау және олардың формасын, стандартты
Бұл жоба негізінен кіріспеден, екі тараудан, қорытындыдан, пайдаланылған
1. Құрылымдық модульдік программалау.
1.1. Модульдер
Модульдер басты принципі ақпаратты жасыру (information hidinig) болып табылатын
Модуль синтаксисінің түрі келесідей:
Модульдерді пайдалануда олардың атын дұрыс көсету маңызды. Стандарттымодульдерді енгізгенде
Жеке модуль құрғанда бірқатар ерекшеліктерді есте сақтаған жөн:
атаулары бірдей модульдерді бірдей уақытта бірге пайдалануға болмайды;
(UNIT) атауында көрсетілген модуль идинтификаторы бастапқы (PAS) және обьектілік
егер модуль идинтификаторы 8 символдан көп болса, онда ол
Төменде модульдің әр бөлігінің мазмұны мен қызметін түсіндіретін қосымша
UNIT – Модуль идинтификаторы.
Интерфейстік бөлімі.
Interface – Бұл бөлімде берілген модуьдің басқа пайдаланушы немесе
Интерфейс бөлімінің импорттық тізімі.
Uses Бұл тізімде үтір арқылы интерфистік бөлімінің ақпараты осы
Интерфеис бөлімінің экспортты тізімі.
Const
Tupe
Var
Procedure
Function Экспорттық тізім берілген модульде анықталған, бірақ
Орындау бөлімі.
Implementation – Бұл бөоімде басқа модульдер мен программалар үшін
Орындау бөлімінің импортты тізімі.
Uses – Бұл бөлімде берілген модульдің интерфейс бөлімінің ақпаратты
Модуль үшін ішкі түсіндіру бөлімшелері.
Label
Const
Type
Var
Procedure
Function - Бұл бөлімшелерде берілген модульді орындайтын алгроитімдік
Инициалдау бөлімі.
Begin - Бұл бөлімде модульдің түзету жұмыстарын жүргізуге
End. Төмендегі келтірілген мысалда модульдер
Ескерту. Ғаламдық және жергілікті айнымалылардың дәстүрлі әсер ету аймағы
Сондықтан да, егер программаның барлық блогына оңтайлы сипаттамалар аса
Unit Globals ; {Ғаламдық сипаттамаоар модульі}
Interface
Const Len = 100;
Tupe
T vector = array [1..len] of integer;
Implementation
End.
Unit vector service;
{Ұзындығы 100 элементке дейінгі бір өлшемді массивтермен жұмыс жасайтын
interface
{Импортталушы модульдер тізімі}
Uses Globals ; {Тек Globals модульінкөрсету жеткілікті, себебі
{Экспорттаушы модульдер тізімі}
Procedure Vect Max (Vect: T Vector; N:Byte);
{Массивтің максималды элементін тауып,қарау процедурасы}
Procedure Vect Min (Vect: T Vector; N:Byte);
{массивтің минимал элементін тауып шығару}
Procedure Vect Inversr ( varVect: T Vector; N:Byte);
{Массив элементін кері ретке бұру процедурасы}
Implementation
{Модульдің жеке импортты тізімі}
Uses crt; {Қарастырыи отырған мысал үшін мұнда Crt
Procedure PrintVect (Vect: T Vector; N: Byte);
{Вектор элементтерін баспаға шығаруда орындайтын модуль ішілік процедура. Ішкі
Var i: Byte;
Begin
Writeln (‘Вектор элементері:’);
For i:=1 to N do write (Vect[i]:
Writeln;
End;
{Integer бөлімінде келтірілген процедура мен функциалар атауларын бөлімінде
Procedure Vect Max;
Var
Max : Integer;
I : Byte ;
Begin Max := Vect [1];
For i:= 2 to N
If Vect[1];
Max := Vect[1];
Clrscr ;
PrintVect (Vect, N);
Writeln (‘вектордың максимал элементі: ’,Max)
End;
Procedure Vect Min;
Var
Min : Integer;
I : Byte;
Begin Min := Vect[1];
For I := 2 to n
If Vect [1] < Min then
Min := Vect [i];
Clrscr;
PrintVect (Vect, N);
Writeln (‘вектордың минимал элементі:’. Min)
End;
Procedure Vect Inverse;
Var Temp : Integer;
I : Byte
Begin
Clrscr;
Writeln (‘өзгертуге дейінгі вектор:’);
Print Vect (Vect, N);
For I := 1 to N
Begin Temp := Vect[i];
Vect[i] := Vect [N-i+1];
Vect [N-i+1] := Temp;
End;
Writeln (‘өзгертуден кейінгі вектор:’);
PrintVect (Vect, N);
End.
Program Main; {Бас программа}
Uses Crt, Globals, Vectorservice;
Var
A: T Vector;
I, N : Byte;
Begin
Clrscr;
Writeln (‘Массив ұзындығын енгіз