Файл: Курсовая.doc

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

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

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

- випускників, середній бал якіх більше 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: