---------|raquo;);(10);(laquo;||raquo;);textcolor(15);write(tmp^.num:4);(10);(laquo;||raquo;);textcolor(15);write(tmp^.FIO:20);(10);(laquo;||raquo;);textcolor(15);write(tmp^.OKL:8:2);(10);(laquo;||raquo;);textcolor(15);write(tmp^.Prc:5:2);(10);(laquo;||raquo;);textcolor(15);write(tmp^.OKL*tmp^.Prc:8:2);(10);(laquo;||raquo;);
{подвал}(laquo;|-------|-----------------------------|------------|-------|----------|raquo;);(11);(laquo;Для продовження натисніть будь-яку клавішу ) ;;;
{***************************************** ******************}
{***************************************** ******************}
{***************************************** ******************} view_s; {Процедура перегляду списку співробітників}: m_rec ;; (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;);:=head;(tmplt;gt; NIL) do
{виведення поточної записи}(laquo;|-----|---------------------------|----------|-------|---------|raquo;);(10);(laquo;||raquo;);textcolor(15);write(tmp^.num:4);(10);(laquo;||raquo;);textcolor(15);write(tmp^.FIO:20);(10);(laquo;||raquo;);textcolor(15);write(tmp^.OKL:8:2);(10);(laquo;||raquo;);textcolor(15);write(tmp^.Prc:5:2);(10);(laquo;||raquo;);textcolor(15);write(tmp^.OKL*tmp^.Prc:8:2);(10);(laquo;||raquo;);:= tmp ^ .next ;;
{подвал}(laquo;|------|------------------------------|-----------|------|-----------|raquo;);(11);
write ( Для продовження натисніть будь-яку клавішу );
readkey;
end;
{***************************************** ******************}
{***************************************** ******************}
{***************************************** ******************}
procedure del_s; {Процедура видалення зі списку}
var, t2: m_rec;: integer ;; (10); ( Номер кімнати ); (13); (num); (10);:=head;:=head; (t1 lt; gt; nil) dot1 ^ .num=num thent1=head thent1 ^ .Next=NIL then (head);:=NIL ;;:=t1 ^ .next; (t1); t1 ^ .next lt; gt ; NIL then ^ .Next:=t1 ^ .next; (t1);:=t2; ^. Next:=Nil; (t1);:=t2 ;;;;:=t1; t1 lt; gt; NIL then:=t1 ^ .next ;;;
write ( Для продовження натисніть будь-яку клавішу ) ;;;
{***************************************** ******************}
{***************************************** ******************}
{***************************************** ******************}
procedure clear_s; {Процедура очищає список}
var: m_rec;:=Head; (tmp lt; gt; NIL) do:=tmp ^ .next; (tmp);:=Head ;;
head:=NIL ;;.
Відповіді на контрольні питання
. Яке призначення модуля UNIT?
Модуль типу UNIT в Turbo Pascal - це окремо бережена і незалежно компилируемая програмна одиниця, на відміну від підпрограм, які, будучи структурним елементом Pascal-програми, не можуть існувати поза нею.
. Яка структура модуля UNIT?
Відповідно до вищевикладеного модуль типу UNIT має наступну структуру: {службове слово} Unit_Name {ім'я модуля}; {початок інтерфейсної частини}
Опис об'єктів, видимих ??з інших програмних модулів: ...... (визначення констант) ...... (визначення типів змінних) ...... (визначення змінних) ...... (тільки заголовки процедур) ...... (тільки заголовки функцій) {початок частині реалізації}
Опис об'єктів, прихованих від інших програмних модулів ........... (визначення констант)
............................... (повні описи процедур і ..... функцій , включаючи процедури
і функції з інтерфейсної секції)
Оператори ініціалізації змінних
перед використанням модуля UNIT_NAME ;. {Закінчення модуля}
. Які структура і призначення частини Interface?
Інтерфейсна частина - починається з ключового словаInterface (інтерфейс, зчленування, з'єднання) і містить звернення до інших модулів і оголошення (описи) глобальних об'єктів т. е. міток, констант, типів, змінних, і заголовків процедур і функцій які доступні основній програмі і інших модулів (т. е. видимі...
