ильних відповідей: );
readln (tempCH); tempCH gt; Element.NumberQuestions then
begin ( Правильних відповідей не може бути більше ніж питань! );
end:=false; .NumberAnswer:=tempCH ;; ;
writeln ( Введіть дату проходження тесту: );
flag:=true; flag do
write ( Введіть рік (рррр/рр) 2001-2100: );
readln (tempCH); tempCH of
.. 100: .Time.Year:=2000 + tempCH;:=false ;;
.. 2100: .Time.Year:=tempCH;:=false ;; writeln ( Введені невірні дані !!! ) ;;;:=true; flag do
begin ( Введіть місяць сеансу (мм): );
readln (tempCH); tempCH of
.. 12: .Time.Month:=tempCH;:=false ;; ( Введені невірні дані !!! ) ;;;;:=true; flag do:=Element.Time.Month;
write ( Введіть день сеансу (дд): );
readln (tempCH); tempCH of
.. 31: .Time.Day:=tempCH;:=false; tempInt of
: begin ((Element.Time.Year mod 4) lt; gt; 0) and (tempCH=29) then
begin ( Тільки в високосний рік в лютому 29 днів! );
flag:=true ;; tempCH gt;=30 then ( У лютому немає , tempCH, числа! );:=true ;;;
, 6,9,11: if tempCH=31 then
begin ( У зазначеному місяці немає 31 числа !!! );
flag:=true ;;;;
else ( Введені невірні дані !!! );
end ;;;:=true; flag do ( Введіть годину сеансу (чч): ); (tempCH); (tempCH gt;=0) and (tempCH lt;=23) then.Time.Hour:=tempCH;:=false; ( laquo ; Введені невірні дані !!! ) ;;;:=true; flag do
begin ( Введіть хвилини сеансу (мм): );
readln (tempCH); (tempCH gt;=0) and (tempCH lt;=59) then.Time.Minutes:=tempCH;:=false; ( Введені невірні дані !!! ) ;;; ( Дані збережені! ); (2000);
clrscr ;;
Процедура DeletElement видалення запису:
procedure DeletElement (var Q: Queue; NumberElement: integer); NumberElement lt; gt; Q.Head ^ .Number then:=Q.Head ^ .Number; (Q, TempBody); (Q, TempBody, false); :=true; (Q.Head ^ .Number lt; gt; NumberElement) and Flag do Q.Head ^ .Number=TempInt then:=false; (Q, TempBody); (Q, TempBody, false) ;;; flag then (Q, TempBody); Q.Head ^ .Number lt; gt; TempInt do (Q, TempBody); (Q, TempBody, True) ;;
writeln ( ???????? ???????? ??????? ?? ??????. ); (2000) ;; (Q, TempBody); Q.Head lt; gt; nil then (Q, TempBody) ;. Number:=1; (Q, TempBody, False); Q.Head ^ .Number lt; gt; 1 do (Q, TempBody); (Q, TempBody, True);
end ;;;;
4.ТЕСТІРОВАНІЕ ПРОГРАМИ
Головне вікно програми:
Рис. 1 - Головне вікно програми
На екрані відображається меню програми. Користувач може працювати з програмою.
Створення нового файлу:
Рис. 2 - Створення нового файлу
Можна відкрити вже створену базу даних з файлу:
Рис. 2 - Відкриття наявного файлу
Введення даних про студента
Рис. 3 - Додавання нового елемента в базу даних
Сортування даних
Рис. 4 - Сортування даних простими вставками
Пошук даних в базі
Рис. 5 - Пошук по базі даних по всіх полях
Висновок записів
Рис. 6 - Виведення даних на екран
Рис. 7 - як це виглядає на екрані
На Рис. 7 після виведених даних ми бачимо 3 функції:
Висновок інших записів
Видалення певного елемента
Висновок в головне меню програми
Сортування відомості
Рис. 8 - Сортування даних перед занесенням до відомість
У пункті можна вибрати сортування по П.І.Б студента або сортування за назвою предмета.
Завершення програми
Рис. 9 - завершення програми
Завершення програми здійснюється шляхом вибору 9 пунк в головному меню програми.
ВИСНОВОК
У рамках даної курсової роботи було вирішено...
