Разработка модулей программы (Укр.)

Складання програм звикористанням модул в.Теоретичн в домост .Прогресивнимп дходом у програмувонн вважа ться використання модул в або блок в. Наб рпроцедур та функц й, об днаних в один блок UNIT , може комп люватисянезалежно в д головно програми. Завдяки цьому час комп ляц для великихпрограм може на багато зменшуватися, а це ма велике значення при в дладц програм, як приходиться досить часто комп лювати.

МОДУЛЬ UNIT це програмнаодиниця, текст яко в дкомп льовано незалежно. Вона включа в себе визначенняконстант, тип в даних, зм нних, процедур та функц й, доступних для використанняв програмах, як викликають.Внутр шня структура модуляприхована в д користувача.Структура модуля.В модул можна вид лити дек лькарозд л в заголовок, нтерфейсна частина, реал зац йна частина н л зац йначастина.Заголовок модуля.UNIT м я модуля нтерфейсна частина.

INTERFACE початок розд луоголошень USES модул , як використовуються LABEL оголошення доступнихглобальних м ток CONST оголошення доступнихглобальних констант TYPE оголошення доступнихглобальних тип в VAR оголошення доступнихглобальних зм нних PROCEDURE FUNCTION заголовкидоступних процедур функц й Реал зац йна частина.IMPLEMENTATION початок розд луреал зац

USES модул , як використовуютьсяпри реал зац LABEL оголошення скритихглобальних м ток CONST оголошення глобальнихконстант TYPE оголошення скритихглобальних тип в VAR оголошення скритих глобальнихзм нних PROCEDURE FUNCTION т ладоступних та скритих процедур функц й н л зац йна частина.BEGIN основний блок модуля.END. ндив дуальне завдання.

Вар ант 7.Скласти програму на мов Pascalрозв язку дано задач та виконання на ЕОМ. Процедури та функц оформити увигляд модуля.Задача 1.Модуль unit gregory interfaceuses crt var c,k array 1 5,1 4 of real i,j integer m byte functionfacktorial x integer real implementationfunctionfacktorial x integer real var i integer facktorial1 real begin facktorial1 1 if i lt 1 then facktorial 1 else begin for i 1 to x do facktorial1 facktorial1 i facktorial facktorial1 end end beginend.

Запускна програма uses gregory beginclrscr writeln Введiть елементи масива writeln for i 1 to 5 do for j 1 to 4 do begin write Елемент ,i ,j, readln c i,j end m 0 clrscr for i 1 to 5 do begin for j 1 to 4 do begin k i,j c i,j facktorial i j if k i,j lt 1 then m m 1 write k i,j 7 5, end writeln end end.Робота з файлами.Теоретичн в домост Файл це сукупн сть даниходнакового типу.

Таке визначення зб га ться з визначенням масиву, але, нав дм ну в д останнього, файл збер гають на диску, к льк сть даних у файл прийого описуванн не вказу ться, елементи файла не мають ндекс в, що ускоадню роботу з ними.Опис файлового типу ма вигляд Type lt м я типу gt File of lt типкомпонент gt Процедури функц для роботи зфайлами Assign зв язу деякий зовн шн йфайл на диску з файловою зм нною.

Reset в дкрива уже ран шестворений файл данних на диску, м я якого було перед цим пов язане процедуроюAssign.Rewrite створю новий файл в дкрива його. Якщо файл вже сну вм ст знищу ться, а сам файл в дкрива тьсязнову.Close закрива файл, якийзв язаний з файловою зм нною.Eof набува значення true, якщодосягнуто к нець файла, накше набува значення false.IOResult використову ться дляпошуку помилок, як виникають при робот з файлами. ндив дуальне завданняЗадача 1.Написати

програму контролю знаньстудент в з л тератури.Оформити файл в дпов дей та файлпитань.Задача 2.Написати програму що виводить наекран студент в, що набрали прох дний бал не нижче 8.Задача 1 program zavd1 uses crt const qfile quest.txt afile ansver.txt var f1,f2 text i,k integer name,ansv string begin clrscr assign f1,qfile assign f2,afile rewrite f2 reset f1 write Введ ть сво м я, групу readln name writeln f2,name while not eof f1 do begin readln f1,name writeln

name write Ваша в дпов дь readln name writeln f2,name readln f1,ansv if ansv name then k k 1 i i 1 end writeln f2, Всього питань writeln f2,i writeln f2, Правильних питань writeln f2,k close f1 close f2 end.РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Вм ст файлу протоколу Бриг да e02толстойпоетдаВсього питань 3Правильних питань 2Задача 2 program typefiles uses crt const kolocenok 2 type abiturient record fio string marks array 1 kolocenok

of integer end var ser,i,j,k integer abit array 1 40 of abiturient temp abiturient begin clrscr write Введiть кiлькiсть абiтурiентiв readln k for i 1 to k do begin writeln абiтурiент ,i, write im я readln temp.fio writeln Введiть оцiнки for j 1 to kolocenok doreadln temp.marks j abit i temp end clrscr for i 1 to k do begin writeln абiтурiент ,i, write im я ,abit i .fio write мае оцiнки ser 0 for j 1 to kolocenok do begin write abit i .marks j ser ser abit i .marks j end writeln if ser gt 8 then writeln

З А Ч И С Л Е Н И Й! writeln end end.РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ абiтурiент 1 im я Саша мае оцiнки 4, 5,ЗАЧИСЛЕНИЙ!абiтурiент 2 im я Петро мае оцiнки 3, 4,абiтурiент 3 im я Олег мае оцiнки 4, 2,абiтурiент 4 im я Микола мае оцiнки 2, 2,Висновок поглибив знання, вм ннята навички розробки з використанням текстових та типизованих файл в, закр пивсво знання в област запис в та типизованих файл в.