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

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

type zap=record – тип запису, що містить відомості пацієнтів лікарні.

pri: string[20]; – прізвище.

gorod :string[20];– місто

stat :char; – стать.

vik: byte; – вік.

diagnoz :string; – діагноз.

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

i:integer; – лічильник.

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

n_diagn:string;– введений діагноз.

v_vik: byte; - шуканий вік.

z:zap;– змінна, що використовується для зчитування з файлу записів запису, що містить відомості про пацієнтів лікарні.

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

k:real; – кількість пацієнтів клініки з діагнозом Х, вік яких не перевищує Х.

z_nvik:zap; – запис з інформацією про введений вік пацієнта.

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

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

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

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