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

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

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

n,s,diag,doctor:string – інформація про хворого(ім’я, прізвище,діагноз, прізвище лікаря).

Day:1..30 – день відвідувань.

Month:1..12 – місяць відвідування.

Year:2000..2012 – рік відвідування.

f,f1:file of lik; файлові змінні, які зв’язані з файлами, що містять

відомості про хворих.

I,q,k,x:integer; – лічильники та номера хворих.

St:string – рядкова змінна для підтвердження подальшої роботи.

Fam, docfam:string – змінна шуканого хворого та лікаря.

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

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

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

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

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

procedure assign (<логічне ім’я файлу>, <фізичне ім’я файлу>); –

встановлює відповідність між логічним і фізичним іменами файлу. Логічне ім’я –

це ім’я змінної з розділу опису var. За цим іменем до файлу звертаються у

програмі. Фізичне ім’я – це ім’я, під яким файл записаний на диску.

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

procedure Vvod; – виконує зчитування даних з клавіатури та заносить їх у файл

f.dat.

procedure Vyvod; – виводить на екран дані, які записані у файлі f.dat.

procedure Dobavit; – додає інформацію у файл f.dat.

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

файла f.dat.

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

номером в файлі f.dat.

procedure Poisk1,Poisk2; – виконує виведення на екран шуканого хворого та кількість хворих у лікаря.

procedure open1; - виводить на екран графічне забраження з

привітанням.

рrocedure close; - виводить на екран графічне зображення з

прощальним текстом.

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

GotoXY(<координата по Х>;<координата по Y>); -

процедура переміщення курсору на вказану позицію.

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

рядком або змінною.

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

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

вказівника на наступний рядок.

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

наступний рядок.

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

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

фону за текстом.

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

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; - процедура закриття графічного режиму.