Міносвіти Росії
Федеральне державне бюджетне освітня установа
вищої професійної освіти
«Пензенська державна технологічна академія»
(ПГТА)
Кафедра «Прикладна інформатика»
Контрольна робота
з дисципліни «Інформатика та програмування»
Виконав: студент гр.
Перевірив: Долгушева Л.М.
Пенза 2013
Звіт про виконання лабораторної роботи
РОЗРОБКА PASCAL-ПРОГРАМ З ІНТЕРФЕЙСОМ
ТИПУ «МЕНЮ»
Мета роботи: Освоєння методів проектування Pascal-програм з інтерфейсом типу «меню».
Завдання на лабораторну роботу: Розробити програму, що забезпечує роботу користувача в діалоговому режимі з можливістю вибору функцій за допомогою однорівневого меню заданого типу.
Блок - схема програми:
Опис програми:
. Виводить повідомлення про призначення програми.
. Введення даних відбувається в режимі діалогу.
. Всі функції програми реалізовані в модулі UNIT.
. Головний модуль програми використовує процедури з модулів типу UNIT.
. Виводить запити на введення початкових даних.
. Виробляє контроль вихідних даних і корекцію помилково введених значень змінних.
. Виводить результати на екран.
Закінчена програма буде мати вигляд:
unit m_unit; _rec=^ my_record; _record=record: Integer;: string;: real;: real;: m_rec ;; menu; {Процедура виведення меню} init_s; {Процедура виробляє при старті заповнення початкових параметрів}
procedure new_s; {Процедура додавання співробітника в список}
procedure view_s; {Процедура перегляду списку співробітників}
procedure del_s; {Процедура видалення співробітника зі списку}
procedure clear_s; {Процедура очищає список}
Head: m_rec; {Покажчик на початок списку}
implementation
uses crt, graph;
procedure init_s; {Процедура виробляє при старті заповнення початкових параметрів}
begin
Head:=NIL; {Список спочатку порожній}
end; menu;: Char; _s; (11); (1) ;; ( Додати Перегляд Видалити ESC-Выходraquo;);(12);(1,1);(laquo;Дraquo;);(10,1);(laquo;Пraquo;);(19,1);(laquo;Уraquo;);(1,2);(11);:=ReadKey;(ch=#27) then exit; ch of
Д : new_s;
П : view_s;
У : del_s;
д : new_s;
п : view_s;
у : del_s;
l : new_s;
g : view_s;
e : del_s;
L : new_s;
G : view_s;
E : del_s ;; ch=# 27 ;;
{***************************************** ******************}
procedure new_s; {Процедура додавання відвідувача в список}
var, ends: m_rec ;; (10); {зел колір} Head=Nil then (head); ^. next:=NIL;:=head;:=Head; (tmp ^ .Next lt; gt; NIL) do:=tmp ^ .Next ;;:=tmp; (tmp); ^. next:=tmp; ^. Next:=NIL;
end;
{Заповнимо поля структури}
{Num: Integer;: string;: string;: real;: real;} ( Номер кімнати ); (tmp ^ .Num); ( фио ); (tmp ^ .FIO);
write ( Кількість діб: );
readln (tmp ^ .OKL); ( Ціна доби ); (tmp ^ .Prc);
{Для Автотест}
{tmp ^ .Num:=1; ^. FIO:= asdasd raquo ;; ^. OKL:=123; ^. Prc:=1;} (14); ( Додана запис ); (10);
{Шапка}(laquo;|----|---------------------------|-------|-----|--------|raquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo; N ); (10); ( || ); textcolor (13); write ( ПІБ співробітника raquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Сутокraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Ценаraquo;);(10);(laquo;||raquo;);textcolor(13);write(laquo;Итогоraquo;);(10);(laquo;||raquo;);
{Висновок поточної записи}(laquo;|------|-------------------------|------------|-------|...
