Разработка программ по объектно-ориентированной технологии - 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.

Объяснение кода листинга программы

  1. Объявлен тип данных Compl, который представляет собой объект с двумя полями типа real - re (действительная часть) и im (мнимая часть), а также двумя методами - Vvod (ввод данных) и Vyvod (вывод данных).
  2. Метод Vvod запрашивает у пользователя ввод действительной и мнимой частей комплексного числа и сохраняет их в соответствующих полях объекта.
  3. Метод Vyvod выводит на экран комплексное число в формате a + bi, где a - действительная часть, b - мнимая часть, и при необходимости добавляет знак минус перед мнимой частью.
  4. Объявлены три переменные a, b и c типа Compl.
  5. В основной программе после запроса на ввод данных для первого числа, вызывается метод Vvod для объекта a.
  6. Аналогично, после запроса на ввод данных для второго числа, вызывается метод Vvod для объекта b.
  7. Вызывается метод Vyvod для объекта a.
  8. Выводится символ + и вызывается метод Vyvod для объекта b.
  9. Вычисляются действительная и мнимая части комплексного числа c, как сумма соответствующих частей объектов a и b.
  10. Вызывается метод Vyvod для объекта c.
  11. Завершается программа.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы