Зміст

1 Постановка задач……………………………………………………………..........................3

2 Алгоритм розробки програми………………………………………………..........................4

3 Практична реалізація:………………………………………………………...........................6

3.1 Опис структури даних та вимоги до них……………………………...........................6

3.2 Опис стандартних процедур та функцій, що використовувалися у програмі...........6

3.3 Опис процедур та функцій користувача……………………………….........................7

3.4 Опис файлів та їх призначення………………………………………...........................8

4 Інструкція для роботи з програмою……………………………………….............................9

5 Приклад тестування та результати роботи програми……………………...........................10

Висновок……………………………………………………………………….........................14

Література……………………………………………………………………...........................15

Додаток А. Лістинг основної програми……………………………………...........................16

Додаток Б. Лістинг модуля…………………………………………………............................17

1 Постановка задачі

Практичне завдання

Створити файл, що містить відомості про випускників школи. Структура запису: прізвище, ім’я, по-батькові, клас, номер атестата, середній бал по атестату, вид учбового закладу(ВУЗ, технікум/коледж, училище, далі не навчається).

Написати програму, що видає наступну інформацію:

- список випускників, що вступили до вищих навчальних закладів;

- випускників, середній бал якіх більше 4;

Вимоги до програм

Створення та обробка бази даних здійснюється шляхом вибору відповідного пункту

меню.

Основні пункти меню програми:

- створення файла записів;

- додавання інформації у файл;

- внесення змін у запис за запитом;

- видалення запису;

- виведення вмісту файла даних у вигляді таблиці;

- реалізація дій відповідно до варіанта завдання.

Обробка файла (створення, додавання, видалення, редагування і т.д.) повинна здійснюватися за допомогою процедур та функцій.

Введення даних повинно відбуватися з перевіркою на область допустимих значень.

Всі процедури та функції повинні бути розміщенні у відповідних модулях.

Файл повинен містити не менше 10 записів.

2 Алгоритм розробки програми

1. Створити два файли: основний файл з програмою та файл модуля.

2. В основному файлі зв’язати файлову змінну з файлом даних та створити меню

відповідно до заданих пунктів.

3. В файлі модуля створити тип даних, який описує структуру запису та описати необхідні змінні (f – файлова змінна , z – змінна типу запису і т.д.)

4. В файлі модуля створити процедури та функції, які реалізують задані пункти меню.

4.1. Створити процедуру створення файла записів та занесення в нього даних:

- створити та відкрити файл для запису за допомогою процедури

rewrite(f, ‘vypusk.dat’);

- ввести потрібні данні з клавіатури та записати їх у файл за допомогою

процедури read (f, z);

- закрити файл процедурою close (f).

4.2. Створити процедуру виведення даних на екран:

- відкрити файл для читання – reset (f);

- зчитати дані з файлу – read (f, z);

- вивести дані на екран;

- закрити файл процедурою close (f).

4.3. Створити процедуру додавання інформації у файл:

- відкрити файл для читання та запису – reset (f);

- встановити вказівник файла за останнім його компонентом процедурою seek

(f,filesize(f));

- записати додаткові дані аналогічно процедурі введення даних;

- закрити файл процедурою close (f).

4.4 Створити процедуру редагування запису:

- відкрити файл, що потрібно відредагувати;

- ввести номер запису для редагування;

- зчитати дані з файлу та порівняти його номер із введеним;

- встановити вказівник файла на заданий елемент seek(f,n-1);

- відредагувати поля запису та записати їх у файл;

- закрити файл процедурою close(f).

4.5. Створити процедуру видалення запису:

- відкрити файл для читання ;

- ввести номер запису, який необхідно видалити;

- зчитати дані з файлу та порівняти його номер із введеним;

- видаляємо запись;

4.6 Створити процедуру, яка проводить пошук по середньому достатку покупців:

- відкрити файл для читання;

- ввести дані, які необхідно знайти;

- зчитати дані з файлу та порівняти їх з веденими;

- вивести знайдені дані на екран;

- знайти найбільший та найменший попит;

- вивести знайдені дані на екран;

- закрити файл;

4.7 Створити процедуру яка проводить пошук за назвою товару:

- відкрити файл для читання;

- ввести дані, які необхідно знайти;

- зчитати дані з файлу та порівняти їх з веденими;

- вивести знайдені дані на екран;

- закрити файл;

5. Відкомпілювати створений модуль та виконати програму з використання створеного модуля.

3 Практична реалізація

3.1 Опис структури даних та вимоги до них

type school=record – тип даних, що містить відомості про випускників.

fam,im, otch:string- фамілія, ім’я, по-батькові.

klass:string; - номер класу.

nom_atest:string; -номер атестата.

sr_bal:real; - середній бал атестата.

u4_zaved:string; - вид учбового закладу.

f:file of school; – файлові зміні, які зв’язані з файлами, що містять відомості про випускників школи.

i,v:integer; - лічильники.

n:byte; - змінна, яка використовується для вибору учбового закладу(ВНЗ, коледж, училище або далі не навчається) .

n_z:byte; - номе шуканого запису для видалення.

s:real; - змінна, яка використовується для пошуку випускників по середньому балу.

st:string; - змінна, значення якої використовується для перевірки умови продовження введення даних. Якщо st=’d’, то продовжується введення даних.

3.2 Опис стандартних процедур та функцій, що використовувалися у програмі

Процедури і функції для роботи з екраном та клавіатурою:

procedure GoToXY(X,Y:Byte); - переводить курсор в задану позицію екрана з

координатами x(стовпчик),y(рядок).

Процедури та функції для роботи з файлами:

Procedure assign(<логічне ім’я файлу>,<фізичне ім’я файлу>); - встановлює відповідність між логічним і фізичним іменами файлу. Логічне ім’я – це ім’я зміної з розділу опису var. За цим іменем до файлу звертаються у програмі. Фізичне ім’я – це ім’я, під яким файл записаний на диску.

Procedure reset(<логічне ім’я файлу >); - Відкриття існуючого файлу. Якщо це текстовий файл, то допускається тільки читання з файлу; для типізованого файлу припустимі як читання, так і запис даних.

Procedure rewrite(<логічне ім’я файлу >); - Відкриття нового файлу. Якщо це текстовий файл, то допускається тільки запис у файл; для типізованого файлу

припустимі як читання, так і запис даних. Якщо файл F уже існує, то при спрацьовуванні

процедури Rewrite файл F попередньо вилучається.

Procedure write(<логічне ім’я файлу >,<список змінних>); - Виконується запис даних в файл.

Procedure read(<логічне ім’я файлу >,<список змінних>); - Виконується зчитування даних з файлу.

Procedure close(<логічне ім’я файлу >); - Виконується закриття файлу F. Якщо буфер виведення заповнений не повністю, то його вміст переноситься у файл F, після чого з оперативної пам’яті вилучається службова інформація про файл F.

Procedure seek(<логічне ім’я файлу >,k); - Процедура переміщує покажчик файлу на компонент із номером k.

Procedure eof(<логічне ім’я файлу >); - Функція повертає значення true, якщо досягнуто кінець файлу; у протилежному випадку вихідне значення дорівнює false.

Procedure truncate(<логічне ім’я файлу >); - Файл усікається до поточної позиції курсора. У цю позицію записується ознака кінця файлу.

Procedure filesize(<логічне ім’я файлу >); - Повертає поточний розмір типізованого файлу.

Процедури і функції модуля GRAPH:

Procedure setbkcolor(color:word); - Встановлює колір фону.

Procedure settextStyle(font, direction:word; charSize:word); Встановлює поточний шрифт, стиль та розмір тексту.

Procedure outtextxy(x,y:integer;textstring:string); - Виводить текст на, екран починаючи від точки (x,y).

Procedure closegraph – закриває графічну систему.

3.3 Опис процедури та функцій користувача

Procedure Vvod; - виконує зчитування даних з клавіатури та заносить їх у файл vypusk.bat.

Procedure Vuvod; - виводить на екран дані які записані у файлі vypusk.dat

Procedure Dobavit; - додає інформацію у файл vypusk.dat

Procedure Redakt; - виконує редагування запису із заданим номером в файлі vypusk.dat

Procedure Delete; - видаляє запис із заданим номером із файла vypusk.dat

Procedure Poisk; - виконує виведення на екран випускників школи у яких середній бал вище заданого;

Procedure Poisk1; - виконує виведення на екран випускників школи, які навчаються в ВНЗ.

3.4 Опис файлів та їх призначення

vypusk2012.pas – файл з основною програмою.

vypusk2012.exe – відкомпільований файл з основною програмою.

vypuskniki.pas – файл модуля.

vypuskniki.tpu – відкомпільований файл модуля.

vypusk.dat – файл, що містить відомості про випускників школи.

4 Інструкція для роботи з програмою

Зазначити, які ресурси необхідні для роботи програми ,що необхідно зробити для запуску програми на виконання, дати чіткі вказівки, як необхідно відповісти на запити програми.

Для запуску програми необхідно запустити файл vypusk2012.exe. Після запуску файлу з’явиться заставка програми при натисненні будь-якої клавіші з’явиться меню. В меню вибираємо необхідний пункт за допомогою введення відповідного номера і натискаємо enter.

5 Приклад тестування та результату роботи програми

Основна програма, вигляд меню:

Створення файлу записів:

Виведення даних на екран:

Додавання даних у файл:

Редагування даних у файл:

Видалення запису:

Випускники шклоли, середній бал яких вище зазначеного:

Випускники школи які навчаються в ВНЗ:

Висновок

Виконавши курсовий проект, я придбав навички роботи в середовищі програмування Turbo Pascal, ознайомився з елементами мови типи даних і графіка у Паскалі, а також створив програму.

На базі цих навичок я створив программу,відповідно до свого варіанта яка містить відомості про випускників школи.

Программа має такі процедури користувача:

Vvod – виконує зчитування данних з клавіатури;

Vyvod – виводить данні на екран;

Dobavit – добавляє інформацію;

Delete – видаляє запис із заданим номером;

Redakt – виконує редагування запису із заданим номером;

Poisk – випускників, середній бал якіх більше 4;

Poisk1 – виводить список випускників, що вступили до вищих навчальних закладів.

Підвів підсумки, що Turbo Pascal є гнучкою та алгоритмічною мовою програмування, і добре підходить як для початківців так і для досвідченого програміста. Широкий набір підпрограм та модульність дозволяє швидко та якісно створити програмний продукт.