Материал: Отчет

Перемикання в графічний режим звичайно супроводжується обробкою можливих помилок ініціалізації. Ці помилки можуть бути пов'язані з відсутністю графічного драйвера або неправильних значень параметрів. При наявності помилки процедура ІnіtGraph виробляє відповідний, відмінний від нуля, результат - код помилки. Цей код можна одержати за допомогою функції GraphResuіt.

Щоб зображення не залежало від дозволу, потрібно использувать функції GetMax і GetMax, що повертають найбільший номер пиксела по горизонталі й по вертикалі відповідно. Графічні координати правого нижнього кута екрана рівні (GetMax, GetMax). Процедура SetBkColor установлює колір тла, а процедура SetColor - колір графічного об'єкта. Процедура Lіne(xl, yl, х2. в2) виводить відрізок прямої, що задає початковою крапкою (x1, y1) і кінцевою крапкою (х2,y2). Окружність виводиться процедурою Cіrcle(x, в, r),параметрами якої є графічні координати центра х и в, а також радіус r (у пикселах).

Прямокутник будується процедурою Rectangle(xl. yl, х2, в2), перші два параметри якої задають графічні координати верхнього лівого кута прямокутника, а останні два параметри - координати нижнього правого кута. Процедура Bar(xl, yl, х2, в2) також призначена для висновку прямокутника й відрізняється від процедури Rectangle тим, що в цьому випадку внутрішня частина прямокутника зафарбовується заздалегідь певним чином. У випадку процедури Rectangle для заповнення внутрішньої області фігури доводиться використати додатковий виклик процедури модуля Graph. Колір заповнення може бути заданий за допомогою процедури SetColor(Color). Аргументом цієї процедури є константа або змінна типу Word, що є кодом кольору. Цей код може приймати значення з інтервалу 0. .15. У Турбо Паскале є 12 стилів заповнення, а вибрати кожної з них можна за допомогою процедури SetFіll Style (Style, Color). Перший параметр цієї процедури задає стиль заповнення, а другий - колір. У числі припустимих стилів зафарбування - суцільна, штрихова й т.д.

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

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

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

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

3. В файлі модуля створити тип даних, який описує структуру запису та описати

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

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

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

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

rewrite (f, ‘robota.dat’);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

• Описати допоміжний файл.

• Відкрити основний файл для читання.

• Ввести номер запису, який потрібно видалити.

• Порівняти його з номерами записів, якщо номер не збігається, то перекопіювати в допоміжний файл, в іншому випадку - проігнорувати.

• Закрити файли.

• Видалити існуючий основний файл процедурою erase(f);

• Перейменувати допоміжний файл у файл з назвою основного.

5.У файлі модуля Poshyk реалізувати роботу процедур вказаних у власному завданні.

5.1 Створити процедуру, що виводе список випускників, працевлаштованих на підприємстві Х, та їх кількість;

• Відкрити файл для читання.

• Ввести назву підприємства, щоб дізнатися кількість праве лаштованих випускників.

• Закрити файл.

5.2 Створити процедуру, що виводе список підприємств у порядку зростання кількості працевлаштованих на них випускників;

• Відкрити файл для читання.

• Обрати вивід даних.

• Закрити файл.

5.3 Створити процедуру виводу спискy не працевлаштованих випускників із зазначенням місця роботи, що пропонувалося, і середньому балу диплома.

• Відкрити файл для читання.

• Обрати вивід даних.

• Закрити файл

6.В файлі модуля graphika реалізувати процедури виведення графічної заставки.

6.1Організувати вивід на екран вступної заставки.

• Ініціалізувати графічний режим.

• Продемонструвати заставку.

- Повернутися в текстовий режим.

6.2 Вивід на екран завершальної заставки.

- Ініціалізувати графічний режим.

- Продемонструвати заставку-вихід.

- Закрити графічний режим.

7.Відкомпілювати створені модулі та використати їх в основній програмі.

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

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

type vupysknik=record– тип запису, який містить відомості відомості про працевлаштування випускників по підприємствам.;

fam:string; - прізвище випускника;

nomer_d:1..999999;- номер диплому;

ser_bal:real; - середній бал випускника;

pidpr:string; - місце роботи, що пропонується (підприємство).

ozn:string; - ознака прийняття на роботу на даному підприємстві (ТАК/НІ).

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

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

c:char; - змінна для procedure oznaka;

n:integer; – номер шуканого запису.

n_pidpr: string;– назва шуканого підприємства.

z:vupysknik;- змінна, що використовується для зчитування та запису даних з(в) файлу записів;

2. 5.2 Опис стандартних процедур і функцій.

Процедури для роботи з виведенням тексту:

Clrscr; - процедура очищення екрану.

GotoXY(<координата по Х>;<координата по Y>); - процедура переміщення курсору на вказану позицію.

Write(Т); – процедура виведення тексту на екран, де Т може бути рядком або змінною.

Read(змінна); - процедура зчитування введених даних.

Writeln(T); - процедура виведення тексту з перенесенням вказівника на наступний рядок.

Readln(змінна); - зчитування даних з перенесенням вказівника на наступний рядок.

Textcolor(color); - процедура встановлення кольору тексту.

Textbackground(color); - процедура встановлення кольору фону за текстом.

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

Assign (файлова змінна, рядок)- процедура, що встановлює зв’язок між файловою змінною та фізичним файлом.

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

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

Write (файлова змінна, список змінних)- процедура виконання запису даних в файл.

Read (файлова змінна, список змінних)- процедура, що виконує зчитування даних з файлу.

Close (файлова змінна)- процедура закриття файлу.

Rename (файлова змінна, рядок)- процедура перейменування файлу.

Erase (файлова змінна)- процедура видалення файлу.

Seek (файлова змінна, номер позиції)- процедура зміни позиції вказівника у файлі.

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

FileSize (файлова змінна)- функція повертає поточний розмір типізованого файлу.

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

InitGraph (Driver; Mode; path); - процедура ініціалізації графічного режиму.

Setbkcolor(color); - процедура встановлення кольору фону.

Setcolor(color); - процедура встановлення кольору малювання.

Settextstyle(накреслення,положення,розмір); - процедура встановлення налаштувань для тексту в графічному режимі.

Outtextxy(X,Y,text); - процедура виведення тексту, починаючи зі вказаних координат.

Line(X1,Y1,X2,Y2); - процедура малювання лінії.

CloseGraph; - процедура закриття графічного режиму.

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

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

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

procedure Vvod; - процедура створення файлу записів, зчитування даних введених з клавіатури та запис їх у файл f.dat.

procedure Vyvod; - процедура, що виводить на екран список

студентів, зчитаний з файлу f.dat.

procedure Dobavit; - процедура додавання нового студента до існуючого списку у файлі f.dat.

procedure Redakt; - процедура внесення змін у запис, що знаходиться

у файлі f.dat.

procedure Delete; - процедура видалення запису з файлу а.dat.

procedure ramka; - процедура рамкы;

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

procedure poisk1; - процедура виведення списка випускників, працевлаштованих на підприємстві Х, та їх кількість

procedure poisk2; - процедура виведення списка не працевлаштованих випускників із зазначенням місця роботи, що пропонувалося, і середньому балу диплома.

procedure zastavka; - процедура для выведення початкової заставки;

procedure konec; - процедура для выведення кіцевої заставки;

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

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

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

MODUL.pas – файл з модулем, який організовує загальну роботу з файлом (створення, виведення, внесення змін)

MODUL.tpu – відкомпільований файл, що організовує загальну роботу з файлом

POSHYK.pas – файл з модулем, що організовує роботу за власним завданням

POSHYKtpu – відкомпільований файл модуля з власним завданням

GRAPHIKS.pas – файл з модулем, що виводить графічну заставку

GRAPHIKS.tpu – відкомпільований файл з модулем, що виводить графічну заставку

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

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

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

Інструкція по кожному з пунктів меню:

1)’Ввод записей’:будьте уважними, адже після натискання Enter існуючий файл стане порожнім і його потрібно буде заповнювати знову. При заповненні файлу, перед введенням даних кожного наступного випускника у вас буде запитуватися про продовження дій. Якщо ви бажаєте продовжити, то маєте натиснути саме клавішу “Д”, або ‘’Н’’ - для повернення в меню, а вже введені результати збережуться.

2) ’Вывод записей’:вам відкриється список випускників де буде вказано: прізвище, номер диплому, середній бал, місце роботи, що пропонується (підприємство), ознака прийняття на роботу на даному підприємстві (ТАК/НІ). Для повернення в меню натисніть будь-яку клавішу.

3) ’Добавить запись’:вам буде необхідно заповнити форму, аналогічну до тієї, що заповнюється при створенні списку. Для додавання декількох студентів вам буде задаватися питання про продовження, яке діє за тим же принципом, що і при створенні файлу.

4) ’Редактировать запись’:дозволяє вносити зміни у вже існуючий список. Вам буде необхідно з виведеного списку обрати випускника за номером, натиснути Enter, та заповнити форму, аналогічну до тієї, що надається при створенні файлу, але із новими даними обраного випускника.

5) ’Удалить запись’:дозволяє видали дані про студента. З виведеного списку вам необхідно обрати і ввести з клавіатури номер студента, дані якого потрібно видалити та натиснути Enter , після чого запис буде знищено.

6) ’Список трудоустроенных’:Для того щоб визначити список випускників, працевлаштованих на підприємстві Х, та їх кількість , скористайтеся пунктом Вам буде потрібно ввести вид підприємство, за яким відбудеться пошук випускників що є працевлаштованими.