Простой пример объектно-ориентированного программирования

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

Разработка структурной организации объектов

В ООП линейное уравнение вида a₁x+a₀=0 и его решение можно определить как совокупность полей, представляющих собой

• коэффициент при неизвестном a1,

• свободный член a0,

• значение единственного корня x1,

• количество корней k (значение минус 1 – множество корней, 0 – корней нет, 1 – один корень),

и методов, осуществляющих

• задание полей a1 и a0 (метод INIT),

• решение линейного уравнения – формирование полей x1 и k (метод LINUR),

• вывод решения на экран (метод PRINT).

Объектный тип для решения линейного уравнения назовем именем TLINUR.

Объектный тип для решения квадратного уравнения вида a₂x²+a₁x+a₀=0 (дадим имя TKVUR) построим на базе типа TLINUR. При определении типа TKVUR добавим следующие поля:

• коэффициент a2 при квадрате неизвестного,

• значение второго корня x2,

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

и добавим методы:

• решение квадратного уравнения KVUR,

• вывод решения на экран, использующий ранее определенный метод PRINT (метод PRINT2).

Объектный тип TBIKVUR для решения биквадратного уравнения вида a₂x⁴+a₁x²+a₀=0 построим на базе типа TBIKVUR. При этом добавим поля для возможных третьего и четвертого корней х3 и х4 и методы BIKVUR – решение биквадратного уравнения и PRINT4 – вывод решений биквадратного уравнения на экран, использующий ранее определенный метод PRINT2.

Исходя из вышесказанного, определим объектные типы следующим образом

type {линейное уравнение}

tlinur=object

a0,a1:real;{свободный член и коэффициент при х}

k:integer; {количество корней – минус 1, 0, 1}

x1:real; {значение корня}

procedure init (a,b:real); {инициализация}

procedure linur; {решение линейного уравнения}

procedure print; {вывод решения на экран}

end;

{квадратное уравнение}

tkvur=object(tlinur)

a2,x2:real; {коэффициент при квадрате неизвестного и второй корень}

procedure init(a,b,c:real); {инициализация}

procedure kvur; {решение квадратного уравнения}

procedure print2; {вывод решения на экран}

end;

{биквадратное уравнение}

tbikvur=object(tkvur)

x3,x4:real; {третий и четвертый корни}

procedure bikvur; {решение биквадратного уравнения}

procedure print4; {вывод решения на экран}

end;

Структура данных для объекта типа линейное уравнение (TLINUR):

a0	?	6Б
a1	?	6Б
k	?	2Б
x1	?	6Б

Адреса методов для объектов типа TLINUR:

	@TLINUR.INIT	4Б
	@TLINUR.LINUR	4Б
	@TLINUR.PRINT	4Б

Объектный тип TKVUR наследует все поля типа TLINUR, после этого добавляются собственные поля а2 и х2. Поэтому структура данных для объекта нового типа:

a0	?	6Б
a1	?	6Б
k	?	2Б
x1	?	6Б
а2	?	6Б
х2	?	6Б

При наследовании методов собственный метод INIT заменяет одноименный родительский метод и добавляются методы KVUR и PRINT2.

	@TKVUR.INIT	4Б
	@TLINUR.LINUR	4Б
	@TLINUR.PRINT	4Б
	@TKVUR.KVUR	4Б
	@TKVUR.PRINT2	4Б

Структура данных для объекта типа TBIKVUR – биквадратного уравнения выглядит так:

a0	?	6Б
a1	?	6Б
k	?	2Б
x1	?	6Б
а2	?	6Б
х2	?	6Б
x3	?	6Б
x4	?	6Б

Таблица методов для типа TBIKVUR:

	@TKVUR.INIT	4Б
	@TLINUR.LINUR	4Б
	@TLINUR.PRINT	4Б
	@TKVUR.KVUR	4Б
	@TKVUR.PRINT2	4Б
	@TBIKVUR.BIKVUR	4Б
	@TBIKVUR.PRINT4	4Б