Құрылымдық модульдік программалау: Turbo Pascal модульдері мен компиляциясы

 КІРІСПЕ ................... . . . . . . 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 (‘Массив ұзындығын енгіз