Контрольная работа: Unified Modeling Language как унифицированный язык моделирования

End;

БД = Class(TObject)

Public Procedure Ввод_данных_в_БД();

Public Procedure Сохранение_данных();

Public Procedure Создать_новую_запись_в_БД();

End;

Implementation

Procedure Заявка.Составление_текста_заявки();

Begin

Raise Exception.Create('Not yet implemented');

End;

Procedure Class.Произвести_осмотр_согласно_заявке();

Begin

Raise Exception.Create('Not yet implemented');

End;

Procedure Бухгалтерия.Произвестит_расчет();

Begin

Raise Exception.Create('Not yet implemented');

End;

Procedure Бухгалтерия.Получение_квитанции_об_оказанеии_услуг();

Begin

Raise Exception.Create('Not yet implemented');

End;

Procedure БД.Ввод_данных_в_БД();

Begin

Raise Exception.Create('Not yet implemented');

End;

Procedure БД.Сохранение_данных();

Begin