n= так ) or (yn= ТаК ) or ( yn= так ) then begin ( Введіть нову Кількість днів ); (days); (f, ticket); else ( Редагуваті дату відправлення? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or ( yn= ТаК ) or (yn= так ) then begin ( Введіть нову дату відправлення ); (date); (f, ticket); else ( Редагуваті вид транспорту? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or ( yn= так ) or (yn= ТаК ) or (yn= так ) then begin ( Введіть новий вид транспорту ); (transport); (f, ticket); else ( laquo ; Редагуваті Ціну? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn = ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then begin ( Введіть нову Ціну ); (price); (f , ticket) ;;; (f); else begin ( У файлі немає даного записів ); ( Віконаті запит ще раз? ); (yn); (yn= Так ) or (yn = ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false ;; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? Raquo;); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true ;;; next=false ;;;: =false;:=0; ( Меню: ); ( 1 - создать файл; ); ( 2 - Відкрити файл; ); ( 3 - вивести всю інформацію з файлу ; ); ( 4 - ВИДАЛИТИ Запис з файлу; ); ( 5 - редагуваті запису файлів; ); ( 6 - довідка 1: усі тури до певної країни заданого місяця року; raquo ;); ( 7 - довідка 2: ПЕРЕЛІК турів, де довшіх заданої кілкость днів; ); ( 8 - довідка 3: ПЕРЕЛІК турів заданого годинного діапазону та цінового обмеження; ); ( 9 -вихід з програми. ) ;; ( Введіть номер пункту: ); (num); num of
1 ://Создания файлу ( Введіть Назву для файлу ); (filename); filename lt; gt; then begin (f, filename); (f);:=true; next do beginticket do begin ( Країна подорожі: ); (country); ( Кількість днів: ); (days); ( Дата відправлення: ); (date); ( Вид транспорту: ); (transport); ( Ціна: ); (price) ;; (f, ticket); ( Бажаєте продовжіті запису У файл? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true else begin:=false; close (f) ;;;;;
2 , 3 ://2 - Відкрити файл; 3 - переглянутися вміст файлу:=ReadKey; ( Введіть Назву файлу ); (filename); filename lt; gt; then beginfileexists (filename) then begin (f, filename); (f); ( Країна подорожі | Кількість днів | Дата відправлення | Вид транспорту | Ціна ); ( ---------------------------------------------------------------------------- ); not eof (f) do begin (f, ticket); ticket do begin (country: 8, , | raquo ;, days: 15, , | , date: 18, , | , , transport: 7, , | raquo ;, price: 5); scroll then break ;;; (f); (); ( Повернутись назад до меню? ); (yn); (yn= Так ) or (yn= ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or ( yn= так ) then next:=false else exit; else begin ( Такого файлу не існує! Ввести Назву файлу ще раз? ); (yn); (yn= Так ) or (yn = ТАК ) or (yn= так ) or (yn= так ) or (yn= ТАк ) or (yn= так ) or (yn= ТаК ) or (yn= так ) then next:=true else next:=false ;;;
until next=false ;;
4 ://Виконан процедури delete ;;
5 ://Виконан процедури edit ;;
6 ://Виконан процедури inf1 ;;
7 ://Виконан процедури inf2 ;;
8 ://Виконан процедури inf3 ;;
9 ://Вихід з програми ;; num= 9 raquo ;;.
РЕЗУЛЬТАТИ РОБОТИ
Рис. 23 Меню програми
Створення файлу:
Рис. 24 Створення файлу
Відкриття файлу:
Рис. 25 Відкриття файлу
Виведення всієї информации з файлу:
Рис. 26 Виведення информации з файлу
Відалення записів з файлу:
Рис. 27 Відалення записів з файлу
Редагування файлу:
Рис. 28 Редагування файлу
Рис. 29 Довідка 1
Рис. 30 Довідка 2
Рис. 31 Довідка 3
Рис. 32 Вихід
інструкція користувача
После запуску програми, відкрівається вікно з Головня меню, Пожалуйста складається з таких пунктів:
- создать файл;
- Відкрити файл;
- вивести всю інформацію з файлу;
- ВИДАЛИТИ Запис з файлу;
- редагуваті запису файлів; <...
