Разработка программ по объектно-ориентированной технологии - Turbo Pascal
Формулировка задачи:
Используя ООП, определить объект КОМЛЕКСНОЕ ЧИСЛО. Найти сумму двух комплексных чисел.
Решение задачи: «Разработка программ по объектно-ориентированной технологии»
textual
Листинг программы
uses crt; type Compl=object re,im:real; procedure Vvod; procedure Vyvod; end; procedure Compl.Vvod; begin writeln('Введите действительную и мнимую части:'); readln(re,im); end; procedure Compl.Vyvod; begin if im<0 then writeln(re:9:5,' -',-im:0:5,'i') else writeln(re:9:5,' +',im:0:5,'i'); end; var a,b,c:Compl; begin clrscr; writeln('Первое число:'); a.vvod; writeln('Второе число:'); b.vvod; clrscr; a.vyvod; writeln('+'); b.vyvod; c.re:=a.re+b.re; c.im:=a.im+b.im; writeln('------------------------'); c.vyvod; readln end.
Объяснение кода листинга программы
- Объявлен тип данных
Compl
, который представляет собой объект с двумя полями типа real -re
(действительная часть) иim
(мнимая часть), а также двумя методами -Vvod
(ввод данных) иVyvod
(вывод данных). - Метод
Vvod
запрашивает у пользователя ввод действительной и мнимой частей комплексного числа и сохраняет их в соответствующих полях объекта. - Метод
Vyvod
выводит на экран комплексное число в форматеa + bi
, гдеa
- действительная часть,b
- мнимая часть, и при необходимости добавляет знак минус перед мнимой частью. - Объявлены три переменные
a
,b
иc
типаCompl
. - В основной программе после запроса на ввод данных для первого числа, вызывается метод
Vvod
для объектаa
. - Аналогично, после запроса на ввод данных для второго числа, вызывается метод
Vvod
для объектаb
. - Вызывается метод
Vyvod
для объектаa
. - Выводится символ
+
и вызывается методVyvod
для объектаb
. - Вычисляются действительная и мнимая части комплексного числа
c
, как сумма соответствующих частей объектовa
иb
. - Вызывается метод
Vyvod
для объектаc
. - Завершается программа.