у. Если файл існує, то Переходимо до пункту 4, інакше - до пункту 5.
4. Віводяться всі дані файлу на екран.
5. Пропонується ввести Назву файлу ще раз. Если відповідь «Так», то Переходимо до пункту 2, інакше - до пункту 6.
6. Відбувається повернення назад до головного меню програми.
Алгоритм відалення записів з файлу:
. Вводитися відповідній пункт меню.
. Вводитися назва файлу.
. Віконується перевірка Існування файлу. Если файл існує, то Переходимо до пункту 4, інакше - до пункту 7.
4. Вводитися номер запису, Який нужно ВИДАЛИТИ.
. Віконується перевірка Існування записів у файлі. Если Запис існує, то записи відаляється та Переходимо до пункту 8, інакше - до пункту 6.
. Пропонується віконаті запит на відалення ще раз. Если відповідь «Так», то Переходимо до пункту 4, інакше - до пункту 8.
. Пропонується ввести Назву файлу ще раз. Если відповідь «Так», то Переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм редагування записів у файлі:
. Вводитися відповідній пункт меню.
. Вводитися назва файлу.
. Віконується перевірка Існування файлу. Если файл існує, то Переходимо до пункту 4, інакше - до пункту 7.
4. Вводитися номер запису, Який нужно відредагуваті.
. Віконується перевірка Існування записів у файлі. Если Запис існує, то редагується запису Та Переходимо до пункту 8, інакше - до пункту 6.
. Пропонується віконаті запит на відалення ще раз. Если відповідь «Так», то Переходимо до пункту 4, інакше - до пункту 8.
. Пропонується ввести Назву файлу ще раз. Если відповідь «Так», то Переходимо до пункту 2, інакше - до пункту 8.
8. Відбувається повернення назад до головного меню програми.
Алгоритм виходим Із програми:
. Вводитися відповідній пункт меню.
. Віконується вихід.
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
ТЕКСТ ПРОГРАМИ
crt; travel=record: string [30] ;: integer;: string [10] ;: string [20] ;: integer;: file of travel;:travel;,yn,tcountry,tdate:string;,key:char;:boolean;,n,i,p,tdays,tprice:integer;scroll:boolean;// функція для прокрутки результату:=false;:=k + 1; k mod 1=0 then begin:=ReadKey; key=# 0 then begin:=ReadKey; key=# 72 then begin:=k - 2; k lt ;=0 then begin:=0; ( Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ); ( ----------------------------------------------------------------------------raquo;);(f,k);;;;key=#27 then scroll:=true ;;; inf1;//процедура для Виведення на екран информации довідкі1, а самє усіх турів до певної країни заданог...
