Часть 2 Объектно-ориентированное программирование

управления
Кафедра Компьютерные системы и сети
Лектор: д.т.н., проф.
Иванова

2016

программирование – до середины 60-х годов ХХ века – технология

Слабое место – большая вероятность испортить глобальные данные.

60-70-е годы ХХ века – технология, представляющая собой набор рекомендаций

использующих общие глобальные данные в модули – отдельно компилируемые части

Слабое место – большое количество передаваемых параметров.

с середины 80-х до наших дней.
Объектно-ориентированное программирование

годов ХХ века (COM-техноло-гия) – подключение объектов через универсальные интерфейсы

отрезке:
строит таблицу значений с определенным шагом;
определяет корни;
определяет максимум и минимум.

= cos(x) – 1
Назначьте интервал: [-1, 0)
Введите номер решаемой задачи

Построение таблицы.
Введите шаг: 0.01
Таблица значений:
x= y=
…

Нахождение корней.
Таблица корней:
x= y=
…

Экстремумы.
Минимум:
x= y=
Максимум:
x= y=

a, b
Analyze(F..)
Cod
Cod = 4
Roots
(fun,a,b)
да
нет
Выход
Cod
Cod
2
1
3
Table
(fun,a,b)
Extremes
(fun,a,b)
Translate
(F,fun)

подпрограммы.
Структурной называют декомпозицию, если:
каждая подпрограмма имеет один вход и

виде отдельных функциональных элементов (объектов предметной области), обменивающихся в процессе

Ввод
функции

Активизировать

Активизировать

Меню

Таблица

Корни

Экстремумы

Активизировать

Активизировать

Активизировать

Функция

Задать

Рассчитать

Рассчитать

Рассчитать

Объект предметной области характеризуется:
именем;
состоянием;
поведением.
Состояние – совокупность значений характеристик объекта, существенных с т. з. решаемой задачи.
Поведение – совокупность реакций на сообщения.

включает описание полей данных, а также процедур и функций, работающих

более простого посредством добавления полей и определения новых методов.
При

системы управления
Кафедра Компьютерные системы и сети
Лектор: д.т.н., проф.

2014

зрения синтаксиса класс – структурный тип данных, в котором помимо

Поскольку данные и методы инкапсулированы в пределах класса, все поля автоматически доступны из любого метода

(адрес) на поля объекта, и обращение к полям происходит через

of TRoom; {массив объектов типа TRoom}
Type pTRoom=^TRoom; {тип указателя

TRoom = object

length, width:single;

length, width:single;

Физически при этом происходит копирование полей одного объекта в другой

пределах модуля!
Unit Room;
Interface
Type TRoom = object

'Room.pas';
Var A:TRoom;
Begin
A.Init(3.5,5.1);
WriteLn('Room: length = ', A.length:6:2,

уже имеющихся базовых посредством добавления полей и методов.




Program Ex_07_03;
{$APPTYPE

height:=h;
End;
Function TVRoom.V;
Begin
Result:=Square*height;
End;

Поля TVRoom

типа объекта производного класса.

Var A:TRoom;
B:TVRoom;
...
A:=B; {допустимо}
B:=A; {

адреса объекта производного класса.
Однако при этом возникает проблема «невидимых»

Type pTVRoom=^TVRoom;
Var pC: ^TRoom;
E:TVRoom;
...
pC:= @E;
pTVRoom(pC)^.height:=2.7;

механизмом поддержки объектных полей.



Program Ex_7_04;
{$APPTYPE CONSOLE}
Uses SysUtils,
Room

to n do
rooms[i].Init(ar[i-1].length, ar[i-1].width);
End;
Function TFlat.FlatSquare;
Var S:single;

WriteLn('S flat =',F.FlatSquare);
ReadLn;
End.

строящийся класс включают неопределенное количество: от 0 до сравнительно больших

Наполнение

Наследование

if (lb=0)or(wb=0) then pB:=nil
else

при котором связь метода с объектом выполняется на этапе компиляции

{ TRoom.Init(l,w);}
height:=h;
End;
Function TVRoom2.Square;
Begin

программе
При необходимости обращении к переопределенному методу базового класса явно меняют

length, width:single;

Существует три ситуации, в которых определение типа объекта на этапе компиляции программы невозможно, и, следовательно, не-возможно правильное подключение переопределенного метода.

TRoomP.Print;
Begin WriteLn('Square =', Square:6:2); End;
Procedure TRoomP.Init;
Begin

End;
Var A:TRoomP; B:TVRoomP;
Begin
A.Init(3.5,5.1);
A.Print;
B.Init(3.5,5.1,2.7);

Square = 17.85
Square = 17.85

Ошибка!

определяется на этапе выполнения программы по типу объекта, для которого

служебным словом virtual;
2) к методам класса с виртуальными полиморфными

определяется на этапе компиляции по объявленному типу переменной.
Позднее связывание –

length, width:single;
function Square:single;

TRoomP.Print;
Begin WriteLn('Square =', Square:6:2); End;
Constructor TRoomP.Init;
Begin

'RoomP.pas';
Var A:TRoomP; B:TVRoomP;
Begin
A.Init(3.5,5.1);
A.Print;
B.Init(3.5,5.1,2.7);

Square = 17.85
Square = 82.14

метод для объекта производного класса вызывает метод, переопределенный в производном

pA: ^TRoomP; B:TVRoomP;
Begin
B.Init(3.5,5.1,2.7);
WriteLn('Square =', B.Square:6:2);

Square = 17.85
Square = 82.14

Print(Var R:TRoomP);
Begin
WriteLn('Square =', R.Square:6:2);
End;
Var A:TRoomP;

Square = 17.85
Square = 82.14

адрес ТВМ класса. Если адрес ТВМ объекта и класса совпадают,

больше памяти;

2) вызов виртуальных полиморфных методов происходит через ТВМ, а

возвращает адрес размещенного и, возможно, сконструированного объекта.
После необходим вызов

TRoomD = object

End;
Constructor TRoomD.Init;
Begin length:=l; width:=w; End;
Destructor TRoomD.Done;
Begin

объект базового типа}
pA:=New(pTRoomD,Init(3.5,5.1));
WriteLn('Square =', pA^.Square:6:2);
Dispose(pA,Done);

Square = 17.85
Square = 82.14
Square = 82.14

TRoomD=object
length,

width; End;
Constructor TRoomD.Init;
Begin length:=l; width:=w; End;
Destructor TRoomD.Done;
Begin

с динамическим полем}
A.Init(3.2,5.1,2.5,1);
WriteLn(A.Square:6:2,A.BSquare:6:2);
A.Done;
{динамический полиморфный объект с

18.82 2.50
18.82 2.50
18.82 2.50