Основы разработки программного обеспечения вычислительных систем. Милованов И.В - 43 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

43
procedure «Записывать» (in out ПараметрыПолета);
function «ТекущееВремя» (ПараметрыПолета)
return «БортовоеВремя»;
private
type «ПараметрыПолета» is tagged record;
Имя: integer;
ОтметкаВремени: БортовоеВремя;
end record;
end Класс «ПараметрыПолета».
Запись параметров кабины самолета может обеспечиваться следую-
щим классом:
with Класс «ПараметрыПолета»;
use Класс «ПараметрыПолета»;
Package Класс «Кабина» is
type «Кабина» is new «ПараметрыПолета» with private;
function Инициировать (Д:Давление; К:Кислород;
Т:Температура) return «Кабина»;
procedure «Записывать» (in out Кабина);
function «ПерепадДавления» (Кабина) return «Давление»;
private
type «Кабина» is new «ПараметрыПолета»
with record
параметр1: Давление;
параметр2: Кислород;
параметр3: Температура
end record;
end Класс «Кабина».
Этот класс наследует структуру и поведение класса «ПараметрыПо-
лета», но наращивает его структуру (вводит три новых элемента данных),
переопределяет его поведение (процедура «Записывать») и дополняет его
поведение (функция «ПерепадДавления»).
Иерархическая структура классов системы для записи параметров
полёта, находящихся в отношении наследования, показана на рис. 2.12.
Здесь «ПараметрыПолета» – базовый (корневой) суперкласс, под-
классами которого являются Экипаж, ПараметрыДвижения, Приборы,
Кабина. В свою очередь, класс «ПараметрыДвижения» является супер-
классом для его подклассов «Координаты», «Скорость», «Ориентация».

Страницы