1 2 3 4

textcolor(red) – ця команда змінює колір тексту з білого на червоний. Я використовую ця команду для того щоб надати програмі дружелюбного вигляду.

gotoxy(24,1); - ця команда переміщує текст зверху екрану середину.

writeln('Vvedit bydlaska prizvushe i adresy abonenta'); - за допомогою цієї команди виводиться повідомлення щоб користувач ввів прізвище і адресу абонента

gotoxy(30,11);- ця команда переміщує текст приблизно на середину екрана.

writeln('Prizvushe:'); - команда виводить на екран слово прізвище.

gotoxy(40,11) ; - ця команда переміщує текст напису на екрані.

readln(b); - за допомогою цієї команди вводиться з клавіатури прізвище абонента.

gotoxy(30,12);- ця команда переміщує текст напису на екрані.

writeln('Adresa:'); - команда виводить на екран слово адреса.

gotoxy(40,12);- ця команда переміщує текст напису на екрані.

readln(c); - за допомогою цієї команди вводиться з клавіатури адреса абонента.

gotoxy(35,12);- за допомогою цієї команди номер телефону абонента буде виведений на середині екрану.

assign(f,'dani'); - ми відкриваємо файл який має назву у програмі f, а на диску зберігається під назвою dani.

reset(f); - ця команда відкриває файл для читання.

for i:=1 to 50 do begin – за допомогою цикл з параметром ми шукаємо у відкритому файлі потрібну інформацію.

read(f,a[i]); - за допомогою цієї команди програма ми знову читаємо всі дані у файлі f для того щоб знайти потрібну інформацію

if (a[i].pr=b)and(a[i].vyl=c) – за допомогою цього галуження ми шукаємо за введеними з клавіатури адресою і прізвищем номер телефони абонента.

then – службове слово яке використовується у галуженні і логічно означає: якщо умова справджується робити подальші команди.

begin – команда початку виконання подальших дій.

p:=1; - у цій програмі я використовую змінну р і присвоюю значення 1 для того щоб якщо умова справджується тоді виводився телефон один раз.

gotoxy(33,13); - за допомогою цієї команди номер телефону буде виведений на середину екрану.

textcolor(9+blink); - за допомогою цієї команди текст буде виводиться в синьому кольорі, а також буде мигати.

write('Telefon: ',a[i].tel:7:0) – за допомогою цієї команди номер телефону абоненту виводиться на екран.

end; - ця команда закриває виконання галуження.

if p=0 – за допомогою цього галуження якщо телефон абонента не буде знайдений програма видасть відповідне повідомлення. І це повідомлення буде написане на екрані один раз.

writeln('Abonent ne zareestrovanuy'); - ця команда виводить повідомлення що номер телефону не знайдено.

end; - ця команда закриває виконання галуження.

close(f); - за допомогою цієї команди програма закриває файл для використання.

gotoxy(28,14); - за допомогою цієї команди номер подяка користувачеві буде виведена на середині екрана.

writeln('Dekyemo za korustyvannya programouy'); - ця команда виводь повідомлення про подяку користування цією програмою.

readln;- ця команда потрібна щоб затримати результат виконання програми на екрані.

end. – команда повністю закриває програму.

4.3.Виконання програми:

Натиснувши Ctrl+F9 ми побачимо що програма запропонує ввести прізвище абонента. Малюнку які ви побачете пізніше зроблені за допомогою клавіши «Print Screen» і програми «Paint». Також малюнки зроблені без модуля graph і командами потрібними для його використання.

Якщо ми введемо прізвище і натиснемо клавішу Enter з’явитися повідомлення що потрібно ввести адресу абонента:

Ввівши адресу абонента потрібно натиснути клавішу Enter і програма почне шукати номер телефону абоненту у базі даних. Якщо номер буде знайдений програма нам покаже його:

Але може бути випадок коли абонент відсутній у базі даних тоді програма видасть повідомлення проте що абонент не зареєстрований:

Для того щоб вийти з програми потрібно натиснути клавішу Enter.

4.4.Блок схема:

5.Висновок:

Програма телефонний довідник це елементарна база даних. Ця програма може бути пристосована для реального використання, якщо замінити вхідний файл з реальними даними і відредагувати текст програми.

Ця програма дуже легка у своєму використанні і нею може користуватися людина з малими навичками роботи з комп’ютером.

На основі цієї програму я вдосконалив навички роботи у мові Turbo Pascal, вивчив нові алгоритмічні конструкції і підвищив рівень роботи з типізованими файлами.

6.Використана література:

1) Алексіїв Є.Р. Турбо Паскаль 7.0” - Москва. :НТ Пресс,2005. – 314,[6]с.

2) Шост Д.М. Основи інформатики та обчислювальної техніки. Turbo Pascal. 10-11 кл. – Тернопіль: „Навчальна книга – Богдан”, 1999. – 192 с.

3) Конспект з лекції.

7.Додатки:

7.1 Додаток №1:

Вхідний файл в текстовому форматі:

Soltus

2393836

Horodotska 173 kv 150

Ctecziv

2345677

Batalna 15 kn 60

Ivanenko

2226542

Shevchenka 88 kv 51

Pavliv

2371312

Benderu 92 kv 187

Barbanyuk

626116

Patoha 4 kv 44

Bygpim

2985488

Bogyna 2 kv 9

Shunkarenko

728645

1 2 3 4