| Назва: | Телефониий довідник (Turbo Pascal) |
| Тип: | Реферати |
| Мова: | Українська |
| Розмiр: | 302,95 KB |
| Скачувань: | 32 |
for i:=1 to 50 do begin – в цій програмі використовується цикл з параметром. За допомогою цього циклу програма запитає 50 разів прізвище абонента, 50 разів телефон абонента і 50 разів адресу абонента.
write(‘prizvushe’,i) – ця команда пише на екран слово ‘prizvushe’ і його номер у файлі. Слово ‘prizvushe’ означає, що потрібно ввести прізвище абонента.
readln(a[i].pr) – за допомогою цієї команди ми можемо ввести прізвище абонента.
write(‘tel’,i) - ця команда пише на екран слово ‘tel’ і його номер у файлі. Слово ‘tel’ означає, що потрібно ввести телефон абонента.
readln(a[i]. tel) - за допомогою цієї команди ми можемо ввести телефон абонента.
write(‘vul’,i) - ця команда пише на екран слово ‘vul’ і її номер у файлі. Слово ‘vul’ означає, що потрібно ввести адресу абонента
readln(a[i]. vul) - за допомогою цієї команди ми можемо ввести адресу абонента.
end – ця команда закриває цикл у програмі.
close(f) – за допомогою цієї команди ми закриваємо використання файлу f.
end – ця команда закриваємо програму.
3.3.Виконання програми:
Ця програма потрібна для того щоб сформувати вхідний файл даних. Запустивши програму «vhidnuy» нам потрібно ввести дані. Після вводу усіх потрібних даних програма збереже їх на жорсткому диску у типізованому файлі під назвою DANI.
Результат виконання програми можливо подивитися за допомогою малюнка:
3.4Блок cхема
4.«Телефонний довідник»
4.1Опис програми «Телефонний довідник»:
Програма «Телефонний довідник» (див. додаток № 2)- це база даних яка працює за допомогою вхідного типізованого файлу “DANI.txt”, в якому міститься інформація про абонентів. У програмі міститься цикл з параметром. щоб програма відкрила і Цикл потрібний для пошуку потрібної інформації у файлі “DANI.txt”. Параметри за якими проводиться пошук у файлі користувач вводить з клавіатури. Після цього програма за допомогою галуження if (a[i].pr=b)and(a[i].vyl=c) знаходить інформацію, порівнюючи введені прізвище і телефон абонента. Якщо введені параметри збігаються з інформацією у файлі “DANI.txt” тобі програма видасть користувачу номер телефону абонента. А якщо уведена інформація не підійде програма видасть повідомлення про те що номер не знайдено це повідомлення виводиться за допомогою іншого галуження іf p=0 then begin writeln('Abonent ne zareestrovanuy');.
Для надання дружелюбного вигляду програмі я змінив текст кольору і місце друкування його на екрані. Місце друкування тексту на екрані змінюеться по координатам х та у за допомогою команди gotoxy наприклад gotoxy(30,11); - це означає що текст буде написаний на середині екрану. Далі в програмі я змінюю координати х та у щоб користувачеві було легше працювати з програмою.
Програма провидить з користувачем діалог в якому пояснює що потрібно роботи для пошуку телефону потрібного абонента.
4.2.Команди програми:
Program Telefonnyu dovidnuk; - ця команда оголошує назву програми.
uses crt; - оголошення модуля crt дає змогу використовувати кольори тексту і затримку, а також цей модуль потрібний щоб очистити екран. Цей модуль використовується щоб надати програмі дружелюбного вигляду.
uses graph – ця команда потрібна для оголошення модуля graph. Цей модуль потрібний для додавання в програму елементів графіки. Модуль graph працює тільки в повно екранному режимі.
type - оголошення нового типу даних
dovidnuk=record - ця команда дає змогу описати записи. Записи можуть мати різні типи даних.
pr:string[30]; - це поле запису означає, що буде введене прізвище абонента у форматі string[30] і максимальна довжина прізвища 30 символів.
tel:real; - це поля запису означає номер телефону, який записується у форматі real
vyl:string[30] - поле запису означає, що буде введена адреса абонента у форматі
string[30] і максимальна адреси прізвища 30 символів.
end; - ця команда закриває оголошення записів.
file of dovidnuk – оголошення формування файлу f який має назву у програмі. Файл f має формат dovidnuk який описаний вище.
gd,gm:integer; - ці змінні потрібні для подальшого використання графіки.
a:array[1 50] of dovidnuk – програма формує масив на 50 значень і має формат даних dovidnuk.
i: integer- змінна і вводиться як лічильник циклу у форматі integer.
р: integer- змінна у форматі integer.
b,с: integer- змінні у форматі integer.
На цьому кроці закінчується опис змінних і починається програма.
begin – оголошення початку програми
gd:=detect – ця команда потрібна для переходу в графічний режим.
Initgraph(gd,gm,'D:\tp7\bgi') – команда ініціалізує графічний режим і програма переходить в нього.
cleardevice; - команда повністю очищує екран від попередньої програми і є аналогом команди clrscr, але команда cleardevice працює тільки в графічному режимі.
setbkcolor(10); - ця команда змінює колір тла екрану з чорного на зелений.
directvideo:=false; - ця команда потрібна для відключення графічного режиму і переходу в текстовий.
write(‘prizvushe’,i) – ця команда пише на екран слово ‘prizvushe’ і його номер у файлі. Слово ‘prizvushe’ означає, що потрібно ввести прізвище абонента.
readln(a[i].pr) – за допомогою цієї команди ми можемо ввести прізвище абонента.
write(‘tel’,i) - ця команда пише на екран слово ‘tel’ і його номер у файлі. Слово ‘tel’ означає, що потрібно ввести телефон абонента.
readln(a[i]. tel) - за допомогою цієї команди ми можемо ввести телефон абонента.
write(‘vul’,i) - ця команда пише на екран слово ‘vul’ і її номер у файлі. Слово ‘vul’ означає, що потрібно ввести адресу абонента
readln(a[i]. vul) - за допомогою цієї команди ми можемо ввести адресу абонента.
end – ця команда закриває цикл у програмі.
close(f) – за допомогою цієї команди ми закриваємо використання файлу f.
end – ця команда закриваємо програму.
3.3.Виконання програми:
Ця програма потрібна для того щоб сформувати вхідний файл даних. Запустивши програму «vhidnuy» нам потрібно ввести дані. Після вводу усіх потрібних даних програма збереже їх на жорсткому диску у типізованому файлі під назвою DANI.
Результат виконання програми можливо подивитися за допомогою малюнка:
3.4Блок cхема
4.«Телефонний довідник»
4.1Опис програми «Телефонний довідник»:
Програма «Телефонний довідник» (див. додаток № 2)- це база даних яка працює за допомогою вхідного типізованого файлу “DANI.txt”, в якому міститься інформація про абонентів. У програмі міститься цикл з параметром. щоб програма відкрила і Цикл потрібний для пошуку потрібної інформації у файлі “DANI.txt”. Параметри за якими проводиться пошук у файлі користувач вводить з клавіатури. Після цього програма за допомогою галуження if (a[i].pr=b)and(a[i].vyl=c) знаходить інформацію, порівнюючи введені прізвище і телефон абонента. Якщо введені параметри збігаються з інформацією у файлі “DANI.txt” тобі програма видасть користувачу номер телефону абонента. А якщо уведена інформація не підійде програма видасть повідомлення про те що номер не знайдено це повідомлення виводиться за допомогою іншого галуження іf p=0 then begin writeln('Abonent ne zareestrovanuy');.
Для надання дружелюбного вигляду програмі я змінив текст кольору і місце друкування його на екрані. Місце друкування тексту на екрані змінюеться по координатам х та у за допомогою команди gotoxy наприклад gotoxy(30,11); - це означає що текст буде написаний на середині екрану. Далі в програмі я змінюю координати х та у щоб користувачеві було легше працювати з програмою.
Програма провидить з користувачем діалог в якому пояснює що потрібно роботи для пошуку телефону потрібного абонента.
4.2.Команди програми:
Program Telefonnyu dovidnuk; - ця команда оголошує назву програми.
uses crt; - оголошення модуля crt дає змогу використовувати кольори тексту і затримку, а також цей модуль потрібний щоб очистити екран. Цей модуль використовується щоб надати програмі дружелюбного вигляду.
uses graph – ця команда потрібна для оголошення модуля graph. Цей модуль потрібний для додавання в програму елементів графіки. Модуль graph працює тільки в повно екранному режимі.
type - оголошення нового типу даних
dovidnuk=record - ця команда дає змогу описати записи. Записи можуть мати різні типи даних.
pr:string[30]; - це поле запису означає, що буде введене прізвище абонента у форматі string[30] і максимальна довжина прізвища 30 символів.
tel:real; - це поля запису означає номер телефону, який записується у форматі real
vyl:string[30] - поле запису означає, що буде введена адреса абонента у форматі
string[30] і максимальна адреси прізвища 30 символів.
end; - ця команда закриває оголошення записів.
file of dovidnuk – оголошення формування файлу f який має назву у програмі. Файл f має формат dovidnuk який описаний вище.
gd,gm:integer; - ці змінні потрібні для подальшого використання графіки.
a:array[1 50] of dovidnuk – програма формує масив на 50 значень і має формат даних dovidnuk.
i: integer- змінна і вводиться як лічильник циклу у форматі integer.
р: integer- змінна у форматі integer.
b,с: integer- змінні у форматі integer.
На цьому кроці закінчується опис змінних і починається програма.
begin – оголошення початку програми
gd:=detect – ця команда потрібна для переходу в графічний режим.
Initgraph(gd,gm,'D:\tp7\bgi') – команда ініціалізує графічний режим і програма переходить в нього.
cleardevice; - команда повністю очищує екран від попередньої програми і є аналогом команди clrscr, але команда cleardevice працює тільки в графічному режимі.
setbkcolor(10); - ця команда змінює колір тла екрану з чорного на зелений.
directvideo:=false; - ця команда потрібна для відключення графічного режиму і переходу в текстовий.
Новости загрузка новостей...