Інформаційно-пошукова системи путівок турагентства
Розробка інформаційно-пошукової системи путівок турагентства, що дозволяє швидко знаходити дані, створювати і відкривати файли, додавати записи у файл. Побудова блок-схем та запис лістингу програми мовою Pascal у середовищі програмування PascalABC.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 27.07.2014 |
| Размер файла | 2,6 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет харчових технологій
Кафедра інформаційних систем
Курсова робота
Основи програмування та алгоритмічні мови
на тему: «Інформаційно-пошукова системи путівок турагентства»
студента 3 курсу, групи КН 3-6
спеціальності «Автоматизовані комп'ютерні системи»
Каріка Євгеній Вікторович (прізвище)
навчальний шифр (номер залікової книжки) 132422
Київ - 2014 р.
Анотація
Курсова робота з дисципліни «Основи програмування та алгоритмічні мови» присвячена створенню «Інформаційно-пошукова системи путівок турагентства». Він містить інформацію про створення інформаційно-пошукової системи наявності путівок в турагентстві.
Для створення системи використовувалась мова програмування Pascal та середовище програмування - Pascal ABC.
Метою курсової роботи є закріплення вивченого матеріалу та навичок з основ програмування.
Інформаційно-пошукова системи путівок турагентства надає користувачу віконний інтерфейс, який містить меню для вибору потрібної дії, серед яких: створити новий файл, відкрити файл, переглянути вміст файлу, виконання спеціальних запитів для пошуку потрібної інформації, вихід із програми.
Курсова робота складається з 53 сторінок, 32 рисунків.
Ключові слова: Файл, інформаційно-пошуква система, паскаль, путівка, програма, довідка, турагенство, пошук, меню.
Annotation
Course work on the subject "Fundamentals of programming and algorithmic language" on "Information retrieval system permits travel agency" It contains information about the creation of an information retrieval system permits available in a travel agency.
To create a system used Pascal programming language and programming environment - Pascal ABC.
The aim of the course project is to consolidate your knowledge and skills of programming.
Information retrieval system permits travel agent provides a user interface window that contains the menus to select the desired action, such as: create a new file, open the file, view the contents of a file, perform special searches to find what you need, close the application.
Course project consists of 53 pages, 32 figures.
Keywords: file, information retrieval system, pascal, ticket, program, information, travel agency, search, menu.
ВСТУП
Метою створення програми інформаційно-пошукової системи путівок турагентства є практичне закріплення знань мови програмування Pascal. Дана програма створена і актуальна, очевидно, для використання її в турагентстві.
Pascal - мова програмування загального призначення. Один з найбільш відомих мов програмування, використовується для навчання програмуванню в старших класах і на перших курсах вузів, є базою для ряду інших мов.
Особливостями мови є строга типізація і наявність засобів структурного (процедурного) програмування. Паскаль був одним з перших таких мов. На думку Вірта, мова повинна сприяти дисциплінованого програмування, тому, поряд з строгою типізацією, в Pascal зведені до мінімуму можливі синтаксичні неоднозначності, а сам синтаксис автор постарався зробити інтуїтивно зрозумілим навіть при першому знайомстві з мовою.
Система Pascal ABC заснована на мові Delphi Pascal і покликана здійснити поступовий перехід від найпростіших програм до модульного, об'єктно-орієнтованого і компонентного програмування. Деякі мовні конструкції в Pascal ABC допускають, поряд з основним, спрощене використання, що дозволяє використовувати їх на ранніх етапах навчання. Тіла методів можна визначати безпосередньо усередині класів, що дозволяє створювати класи практично відразу після вивчення записів, процедур і функцій.
Ряд модулів системи програмування Pascal ABC спеціально створювався для навчальних цілей.
Компілятор Pascal ABC є компілятором переднього плану (front-end). Це означає, що він не генерує виконуваний код у вигляді *.exe-файла, а створює в результаті компіляції дерево програми в пам'яті, яке потім виконується за допомогою вбудованого інтерпретатора.
ПОСТАНОВКА ЗАДАЧІ
Створювана інформаційно-пошукова система повинна:
· виконана з використанням мови програмуванняPascal;
· забезпечувати функції введення, пошуку, фільтрації та вибору даних за запитами користувача, виведення результатів запиту на екран, збереження даних у файл;
· реалізувати інтерфейс у вигляді вікна, в якому виводиться 7 пунктів меню: „створення файла”, „відкрити файл”, „виведення усієї інформації з файла”, „довідка 1”, „довідка 2”, „довідка 3”, „вихід з програми”;
· для вибору пункту меню скористатись оператором CASE. Повернення до пунктів меню після виконання запиту реалізувати за допомогою оператора REPEAT - UNTIL. Довідки реалізувати через процедури чи функції.
Довідки для пошуку: усіх турів до певної країни заданого місяця року; переліку турів, де довших заданої кількості днів; переліку турів заданого часового діапазону та цінового обмеження.
Вхідні та вихідні дані: країна подорожі, кількість днів, дата відправлення, вид транспорту, ціна.
ОПИС АЛГОРИТМІВ І ПРОГРАМ
Алгоритм процедури inf1:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу.Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 7.
4. Вводиться країну подорожі та дату відправлення.
5. Виконується пошук відповідних даних.Якщо введені дані задовольняють умову, то отримуємо результат, інакше переходимо до пункту 8.
6. Пропонується виконати запит на пошук ще раз.Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
7. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм процедури inf2:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 7.
4. Вводиться кількість днів.
5. Виконується пошук відповідних даних. Якщо введені дані задовольняють умову, то отримуємо результат, інакше переходимо до пункту 8.
6. Пропонується виконати запит на пошук ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
7. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм процедури inf3:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 7.
4. Вводиться кількість днів та ціну.
5. Виконується пошук відповідних даних. Якщо введені дані задовольняють умову, то отримуємо результат, інакше переходимо до пункту 8.
6. Пропонується виконати запит на пошук ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
7. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм створення файлу:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Водиться дані про путівку для одного запису.
4. Пропонується продовжити запис у файл. Якщо відповідь «Так», то переходимо до пункту 3, інакше - до пункту 5.
5. Відбувається повернення назад до головного меню програми.
Алгоритм відкриття файлу:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 5.
4. Виводяться всі дані файлу на екран.
5. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 6.
6. Відбувається повернення назад до головного меню програми.
Алгоритм перегляду вмісту файлу:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 5.
4. Виводяться всі дані файлу на екран.
5. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 6.
6. Відбувається повернення назад до головного меню програми.
Алгоритм видалення запису з файлу:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 7.
4. Вводиться номер запису, який потрібно видалити.
5. Виконується перевірка існування запису в файлі. Якщо запис існує, то запис видаляється та переходимо до пункту 8, інакше - до пункту 6.
6. Пропонується виконати запит на видалення ще раз. Якщо відповідь «Так», то переходимо до пункту 4, інакше - до пункту 8.
7. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм редагування запису в файлі:
1. Вводиться відповідний пункт меню.
2. Вводиться назва файлу.
3. Виконується перевірка існування файлу. Якщо файл існує, то переходимо до пункту 4, інакше - до пункту 7.
4. Вводиться номер запису, який потрібно відредагувати.
5. Виконується перевірка існування запису в файлі. Якщо запис існує, то редагується запис та переходимо до пункту 8, інакше - до пункту 6.
6. Пропонується виконати запит на видалення ще раз. Якщо відповідь «Так», то переходимо до пункту 4, інакше - до пункту 8.
7. Пропонується ввести назву файлу ще раз. Якщо відповідь «Так», то переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм виходу із програми:
1. Вводиться відповідний пункт меню.
2. Виконується вихід.
pascal програмування пошуковий
БЛОК-СХЕМА ПРОГРАМИ
Рис. 1 Головна програма ч.1
Рис. 2 Головна програма ч.2
Рис. 3 Головна програма ч.3
Рис. 4 Головна програма ч.4
Процедура inf1:
Рис. 5 Процедура inf1 ч.
1
Рис. 6 Процедура inf1 ч.
2
Рис. 7 Процедура inf1 ч.
3
Процедура inf2:
Рис. 8 Процедура inf2 ч.1
Рис. 9 Процедура inf2 ч.
2
Рис. 10 Процедура inf2 ч.
3
Процедура inf3:
Рис. 11 Процедура inf3 ч.1
Рис. 12 Процедура inf3 ч.
2
Рис. 13 Процедура inf3 ч.
3
Процедура delete:
Рис. 14 Процедура delete ч.1
Рис. 15 Процедура delete ч.
2
Процедура edit:
Рис. 16 Процедура edit ч.1
Рис. 17 Процедура edit ч.2
Рис. 18 Процедура edit ч.3
Рис. 19 Процедура edit ч.4
Рис. 20 Процедура edit ч.5
Функція scroll:
Рис. 21 Функція scroll ч.1
Рис. 22 Функція scroll ч.2
ТЕКСТ ПРОГРАМИ
uses crt;
type travel = record
country:string[30];
days:integer;
date:string[10];
transport:string[20];
price:integer
end;
var
f:file of travel;
ticket:travel;
filename,yn,tcountry,tdate:string;
num,key:char;
next:boolean;
k,n,i,p,tdays,tprice:integer;
function scroll:boolean; //функція для прокрутки результату
begin
scroll:=false;
k:=k+1;
if k mod 1 = 0 then begin
key:=ReadKey;
if key=#0 then begin
key:=ReadKey;
if key=#72 then begin
k:=k-2;
if k<=0 then begin
k:=0;
writeln(' Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ');
writeln(' ----------------------------------------------------------------------------');
seek(f,k);
end;
end;
end;
if key=#27 then scroll:=true;
end;
end;
procedure inf1; //процедура для виведення на екран інформації довідки1, а саме усіх турів до певної країни заданого місяця року
begin
repeat
next:=false;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
writeln('Введіть країну подорожі');
readln(tcountry);
writeln('Введіть дату відправлення');
readln(tdate);
assign(f, filename);
reset(f);
p:=0;
writeln(' Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ');
writeln(' ----------------------------------------------------------------------------');
while not eof(f) do begin
read(f, ticket);
with ticket do begin
if (tcountry=country) and (tdate[1]=date[4]) and (tdate[2]=date[5]) and(tdate[6]=date[9]) and(tdate[7]=date[10]) then begin
writeln(country:8,' ','|',days:15,' ','|',date:18,' ','|',' ',transport:7,' ','|',price:5);
if scroll then break;
p:=p+1;
end;
end;
end;
close(f);
if(p = 0) then writeln('Відповідні тури відсутні');
writeln ('Виконати запит ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true;
end;
end;
until next=false;
end;
procedure inf2; //процедура ля виведення на екран інформації довідки2, а саме переліку турів, де довших заданої кількості днів
begin
repeat
next:=false;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
writeln('Введіть кількість днів');
readln(tdays);
assign(f, filename);
reset(f);
p:=0;
writeln(' Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ');
writeln(' ----------------------------------------------------------------------------');
while not eof(f) do begin
read(f, ticket);
with ticket do begin
if (days>tdays) then begin
writeln(country:8,' ','|',days:15,' ','|',date:18,' ','|',' ',transport:7,' ','|',price:5);
if scroll then break;
p:=p+1;
end;
end;
end;
close(f);
if(p = 0) then writeln('Відповідні тури відсутні');
writeln ('Виконати запит ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true;
end;
end;
until next=false;
end;
procedure inf3; //процедура для виведення на екран інформації довідки3, а саме переліку турів заданого часового діапазону та цінового обмеження
begin
repeat
next:=false;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
writeln('Введіть кількість днів');
readln(tdays);
writeln('Введіть ціну');
readln(tprice);
assign(f, filename);
reset(f);
p:=0;
writeln(' Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ');
writeln(' ----------------------------------------------------------------------------');
while not eof(f) do begin
read(f, ticket);
with ticket do begin
if (tdays<=days) and (tprice<=price) then begin
writeln(country:8,' ','|',days:15,' ','|',date:18,' ','|',' ',transport:7,' ','|',price:5);
if scroll then break;
p:=p+1;
end;
end;
end;
close(f);
if(p = 0) then writeln('Відповідні тури відсутні');
writeln ('Виконати запит ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true;
end;
end;
until next=false;
end;
procedure delete; //процедура для видалення запису із файлу
begin
repeat
next:=false;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
writeln('Введіть номер запису, який потрібно видалити');
readln(n);
assign(f, filename);
reset(f);
if (filesize(f)>=n) and (n>0) then begin
seek(f,n-1);
for i:=n-1 to filesize(f)-2 do begin
seek(f,i+1);
read(f,ticket);
seek(f,i);
write(f,ticket);
end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
end else begin
writeln('В файлі немає даного запису');
writeln ('Виконати запит ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true;
end;
end;
until next=false;
end;
procedure edit; //процедура для редагування запису файла
begin
repeat
next:=false;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
writeln('Введіть номер запису, який потрібно відредагувати');
readln(n);
assign(f, filename);
reset(f);
if (filesize(f)>=n) and (n>0) then begin
seek(f,n-1);
writeln('Редагувати назву країни?');
readln(yn);
with ticket do begin
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then begin
writeln('Введіть нову назву країни');
readln(country);
write(f, ticket);
end else
writeln('Редагувати кількість днів?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then begin
writeln('Введіть нову кількість днів');
readln(days);
write(f, ticket);
end else
writeln('Редагувати дату відправлення?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then begin
writeln('Введіть нову дату відправлення');
readln(date);
write(f, ticket);
end else
writeln('Редагувати вид транспорту?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then begin
writeln('Введіть новий вид транспорту');
readln(transport);
write(f, ticket);
end else
writeln('Редагувати ціну?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then begin
writeln('Введіть нову ціну');
readln(price);
write(f, ticket);
end;
end;
close(f);
end else begin
writeln('В файлі немає даного запису');
writeln ('Виконати запит ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true;
end;
end;
until next=false;
end;
begin
repeat
clrscr;
next:=false;
k:=0;
writeln(' Меню:');
writeln('1 - створити файл;');
writeln('2 - відкрити файл;');
writeln('3 - вивести всю інформацію з файлу;');
writeln('4 - видалити запис з файлу;');
writeln('5 - редагувати запис файлу;');
writeln('6 - довідка 1: усі тури до певної країни заданого місяця року;');
writeln('7 - довідка 2: перелік турів, де довших заданої кілкость днів;');
writeln('8 - довідка 3: перелік турів заданого часового діапазону та цінового обмеження;');
writeln('9 - вихід з програми.');
writeln;
writeln('Введіть номер пункту:');
readln(num);
case num of
'1' : //створення файлу
begin
writeln('Введіть назву для файла');
readln(filename);
if filename <> '' then begin
assign(f, filename);
rewrite(f);
next:=true;
while next do begin
with ticket do begin
write('Країна подорожі: ');
readln(country);
write('Кількість днів: ');
readln(days);
write('Дата відправлення: ');
readln(date);
write('Вид транспорту: ');
readln(transport);
write('Ціна: ');
readln(price);
end;
write(f, ticket);
writeln('Бажаєте продовжити запис у файл?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else begin
next:=false; close(f);
end;
end;
end;
end;
'2','3' : // 2 - відкрити файл; 3 - переглянути вміст файлу
begin
repeat
key:=ReadKey;
writeln('Введіть назву файлу');
readln(filename);
if filename <> '' then begin
if fileexists(filename) then begin
assign(f, filename);
reset(f);
writeln(' Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ');
writeln(' ----------------------------------------------------------------------------');
while not eof(f) do begin
read(f, ticket);
with ticket do begin
writeln(country:8,' ','|',days:15,' ','|',date:18,' ','|',' ',transport:7,' ','|',price:5);
if scroll then break;
end;
end;
close(f);
writeln();
writeln ('Повернутись назад до меню?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=false else exit;
end else begin
writeln('Такого файлу не існує! Ввести назву файлу ще раз?');
readln(yn);
if (yn = 'Так') or (yn = 'ТАК') or (yn = 'тАк') or (yn = 'таК') or (yn = 'ТАк') or (yn = 'тАК') or (yn = 'ТаК') or (yn = 'так') then next:=true else next:=false;
end;
end;
until next=false;
end;
'4' : //виконання процедури delete
begin
delete;
end;
'5' : //виконання процедури edit
begin
edit;
end;
'6' : //виконання процедури inf1
begin
inf1;
end;
'7' : //виконання процедури inf2
begin
inf2;
end;
'8' : //виконання процедури inf3
begin
inf3;
end;
'9' : //вихід з програми
exit;
end;
until num='9';
end.
РЕЗУЛЬТАТИ РОБОТИ
Рис. 23 Меню програми
Створення файлу:
Рис. 24 Створення файлу
Відкриття файлу:
Рис. 25 Відкриття файлу
Виведення всієї інформації з файлу:
Рис. 26 Виведення інформації з файлу
Видалення запису з файлу:
Рис. 27 Видалення запису з файлу
Редагування файлу:
Рис. 28 Редагування файлу
Рис. 29 Довідка 1
Рис. 30 Довідка 2
Рис. 31 Довідка 3
Рис. 32 Вихід
ІНСТРУКЦІЯ КОРИСТУВАЧА
Після запуску програми, відкривається вікно з головним меню, яке складається з таких пунктів:
1 - створити файл;
2 - відкрити файл;
3 - вивести всю інформацію з файлу;
4 - видалити запис з файлу;
5 - редагувати запис файлу;
6 - довідка 1: усі тури до певної країни заданого місяця року;
7 - довідка 2: перелік турів, де довших заданої кількості днів;
8 - довідка 3: перелік турів заданого часового діапазону та цінового обмеження:
9 - вихід з програми.
Нижче користувачеві пропонується ввести номер пункту.
Створення файлу. Для того, щоб створити новий файл необхідно ввести «1» та натиснути Enter. Після чого отримуємо повідомлення «Введіть назву для файлу», яку нижче ми і вводимо, наприклад, «путівка». Після введення назви користувачеві пропонується покрокове введення даних: вводимо країну подорожі і натискаємо Enter, після чого з'являється нове поле кількість днів. Вводимо кількість днів та натискаємо Enter. Аналогічно вводимо дату відправлення, вид транспорту та ціну. Після повного одного заповнення з'являється повідомлення «Бажаєте продовжити запис у файл?». Для продовження потрібно ввести слово «Так», при чому користувач може ввести це слово, незважаючи на верхній чи нижній регістр, тобто програма сприймає такі відповіді для продовження запису: «Так», «так», «ТАК», «тАк», «таК», «ТАк», «тАК», «ТаК». Якщо ж користувач не хоче далі продовжити запис, то відповідно потрібно ввести «Ні», після чого Ви повернетесь назад до меню.
Відкриття файлу. Вводимо «2» і натискаємоEnter. З'явиться повідомлення «Введіть назву файлу». Вводимо назву, якщо файл існує, то автоматично виведеться його вміст, після чого з'явиться повідомлення «Повернутись назад до меню?», при відповіді «Так» Ви повертаєтесь в меню, інакше - вихід з програми. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Виведення інформації з файлу. Вводимо «3» і натискаємоEnter. З'явиться повідомлення «Введіть назву файлу». Вводимо назву, якщо файл існує, то автоматично виведеться його вміст, після чого з'явиться повідомлення «Повернутись назад до меню?», при відповіді «Так» Ви повертаєтесь в меню, інакше - вихід з програми. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Видалення запису з файлу. Вводимо «4» і натискаємо Enter. З'явиться повідомлення «Введіть назву файлу». Якщо такий файл існує, то виведеться наступне повідомлення «Введіть номер запису, який потрібно видалити». Вводимо номер, якщо такий запису існує, програма видаляє його та повертається назад до головного меню. Якщо ж файл не містить такого запису по введеному номеру запису то виведеться повідомлення «В файлі немає даного запису», «Виконати запит ще раз?». Якщо відповідь «Так» вводиться номер рядка ще раз, якщо ж «Ні» то повертаєтесь до меню. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Редагування запису файлу. Вводимо «5» і натискаємо Enter. З'явиться повідомлення «Введіть назву файлу». Якщо такий файл існує, то виведеться наступне повідомлення «Введіть номер запису, який потрібно відредагувати». Вводимо номер, якщо такий запису існує, користувачу пропонується редагувати кожний з полів таблиці даного запису. Наприклад, «Редагувати назву країни?», якщо «Так», то «Введіть нову назву країни», яку користувач далі вводить і запис оновлюється, після чого програма повертається назад до головного меню. Якщо ж файл не містить такого запису по введеному номеру запису то виведеться повідомлення «В файлі немає даного запису», «Виконати запит ще раз?». Якщо відповідь «Так» вводиться номер рядка ще раз, якщо ж «Ні» то повертаєтесь до меню. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Довідка 1. Для виведення усіх турів до певної країни заданого місяця року вводимо «6» і натискаємо Enter. З'явиться повідомлення «Введіть назву файлу». Вводимо назву, існуючого файлу. Якщо файл існує, то виведеться повідомлення «Введіть країну подорожі», яку вводимо нижче і натискаємо Enter. Потім аналогічно вводимо дату відправлення та отримуємо інформацію про тури. Якщо турів по цим критеріям немає, то отримуємо повідомлення «Відповідні тури відсутні» та нижче «Виконати запит ще раз?». При введенні «Так» знову з'явиться повідомлення «Введіть назву файлу» і робимо теж саме, якщо «Ні», то повертаємося назад до меню. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Довідка 2. Для виведення усіх турів, довших заданої кількості днів вводимо «7» і натискаємо Enter. З'явиться повідомлення «Введіть назву файлу». Вводимо назву, існуючого файлу. Якщо файл існує, то виведеться повідомлення «Введіть кількість днів», вводимо нижче і натискаємо Enter. Потім отримуємо інформацію про тури. Якщо турів по цим критеріям немає, то отримуємо повідомлення «Відповідні тури відсутні» та нижче «Виконати запит ще раз?». При введенні «Так» знову з'явиться повідомлення «Введіть назву файлу» і робимо теж саме, якщо «Ні», то повертаємося назад до меню. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Довідка 3. Для виведення усіх турів заданого часового діапазону та цінового обмеження вводимо «8» і натискаємо Enter. З'явиться повідомлення «Введіть назву файлу». Вводимо назву, існуючого файлу. Якщо файл існує, то виведеться повідомлення «Введіть кількість днів», вводимо нижче і натискаємо Enter. Потім аналогічно вводимо кількість днів та отримуємо інформацію про тури. Якщо турів по цим критеріям немає, то отримуємо повідомлення «Відповідні тури відсутні» та нижче «Виконати запит ще раз?». При введенні «Так» знову з'явиться повідомлення «Введіть назву файлу» і робимо теж саме, якщо «Ні», то повертаємося назад до меню. Якщо файл не існує, то виведеться повідомлення «Такого файлу не існує! Ввести назву файлу ще раз?», при відповіді «Так» з'явиться повідомлення «Введіть назву файлу» і далі вже відомі кроки. Якщо Ви відповіли «Ні», то програма автоматично повертається назад до меню.
Вихід з програми. Для того, щоб вийти з програми потрібно ввести «9» та натиснути Enter.
ВИСНОВКИ
У даній курсовій роботі було створено інформаційно-пошукову систему путівок турагентства, мовою програмування Pascal, в середовищі програмування PascalABC.
Програму створено відповідно до поставленого завдання. Вона дозволяє швидко знаходити дані, створювати і відкривати файлі, додавати записи у файл. Програма має простий та досить зручний у користуванні інтерфейс.
Розроблення даної програми дало змогу закріпити практичні навички програмування мовою Pascal.
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1. А. Ахо, Д. Хопкрофт і др. Структури даних і алгоритми - С.Пб.: Вільямс, 2000. - 384с., іл.
2. Бєгун А.В. Технологія програмування: об'єктно-орієнтований підхід. Навчально-методичний посібник для самостійного вивчення дисципліни. Київ 2000 200с.
3. Меженний О.А. TurboPascal: навчайтесь програмувати. - С.Пб.: Діалектика, 2001. - 448с., іл.
4. Фаранов В.В. Турбо Паскаль 7.0.: Навч.посібник. - М.: Нолідж, 1997. - 616с., іл..
5. Деревенцев О.В. Пісні про Паскаль. 2013р.
6. Вікіпедія - вільна енциклопедія.
7. Стівен С. Скієна Алгоритми.
8. Джефрі Макконнел Аналіз алгоритмів.
9. PascalABC.NETКурс основ програмування.
10. А.С. Цвєтков Мова програмування PASCALСистема програмування ABCPascalНавчальний посібник 2011-2012.
11. Пошукова система - Google.
Размещено на Allbest.ru
Подобные документы
Проектування інформаційно-пошукової системи магазину спорттоварів, забезпечення можливості додавати, редагувати, вилучати дані. Виведення результатів пошуку у формі звітів на екран або друк їх. Розробка зручного інтерфейсу з використанням системи меню.
курсовая работа [5,8 M], добавлен 05.01.2014Критерії (вимоги) до створення автоматичного робочого місця оператора реєстратури. Обґрунтування вибору середовища програмування та засобів збереження даних. Алгоритм програми. Опис інтерфейсу проекту системи. Програмні модулі та керівництво користувача.
дипломная работа [1017,0 K], добавлен 31.10.2014Постановка задачi інформаційно-аналітичної системи сiльськогосподарських пiдприємств по вирощуванню сої. Комп'ютерна реалізація автоматизованої системи. Схема даних сої на підприємстві. Ескіз головної кнопкової форми. Макет форми: "Дані про сою".
курсовая работа [1,7 M], добавлен 17.04.2011Побудова інформаційно-математичної моделі задачі. Визначення структури даних, розробка інтерфейсу. Складання коду програми за допомогою мови програмування Delphi 7.0. Реалізація проекту у візуальному середовищі. Інструкція з експлуатації програми.
курсовая работа [601,3 K], добавлен 03.09.2009Аналіз навігаційних технологій у сучасних AVL системах. Структура системи і вимоги до апаратного забезпечення, розробка алгоритмів функціонування окремих програмних модулів. Вибір мови програмування і СУБД. Тестовий варіант програмного забезпечення.
дипломная работа [1,8 M], добавлен 17.12.2015Розробка програми для вирішення графічної задачі. При вирішенні задачі необхідно cтворювати програму у середовищі програмування Turbo Pascal. Розробка алгоритму функціонування програми і надання блок-схеми алгоритму. Демонстрація роботи програми.
курсовая работа [1,3 M], добавлен 23.06.2010Розробка програми у середовищі візуального програмування Borland Delphi, що демонструє роботу із двовимірним масивом різних символів. Побудова інформаційно-математичної моделі та опрацювання кожного з функціональних блоків на етапі алгоритмізації.
курсовая работа [1,7 M], добавлен 07.05.2009Відновлення вхідного сигналу, який заданий графо-аналітично за способом розкладання на гармоніки методом Фур'є. Збереження даних спектрального аналізу у типізованих дискових файлах. Побудова таблиці символьних імен та лістинг програми мовою Turbo Pascal.
курсовая работа [910,1 K], добавлен 31.10.2013Завантаження системи Turbo Pascal. Робота в середовищі Delphi у режимі консолі. Обчислення значення функції, заданої умовно. Табуляція функції і пошук екстремумів. Селективна обробка масиву. Побудова графічних зображень. Обробка двомірних масивів.
учебное пособие [867,3 K], добавлен 22.02.2010Розробка програми в візуальному середовищі С++. Визначення значення функцій в середовищі Builder мовою програмування С++. Обчислення елементів квадратної матриці згідно заданного алгоритму. Бібліотека візуальних компонентів і середовище програмування.
курсовая работа [451,5 K], добавлен 15.01.2012
