[disapoint]

Помогите решить... пожалуйста...
Описать класс по следующим протоколом.
Сохранить описания каждого класса в отдельном модуле.
Написать программу для демонстрации всех методов описанных классов в консольном режиме.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

type / / ----------------------------------------- Вспомогательные описания ----- ---------------------------- / / Тип комплексного числа TNumber = record Re, Im: Real; / / соответственно действительная и мнимая части комплексного числа end; / / --------------------------------- Описание класса комплексных чисел TComplex ---------- ----------------------- TComplex = class / / ------------------------- Атрибуты ---------------------- -------------------------------------------------- ---- Number: TNumber; / / значение комплексного числа / / ------------------------- Методы - конструкторы -------------------- --------------------------------------- constructor Create; overload; / / создается число (0; 0) constructor Create (R, I: Real) overload; / / создается число (R; I) constructor CreateRead; / / значение действительной и мнимой части комплексного числа / / Вводимые с клавиатуры / / ------------------------- Методы ---------------------- -------------------------------------------------- ---- procedure SetValue (A: TNumber) / / задать комплексное число procedure Print; / / вывести на экран комплексное число в виде (Re; Im) procedure Copy (A: TNumber) / / число принимает значение другого числа procedure Add (A: TNumber) / / в число добавляется другое комплексное число procedure Decrease (A: TNumber) / / от числа вычитается другое комплексное число procedure Multiply (A: TNumber) / / число умножается на другое комплексное число procedure Divide (A: TNumber) / / число делится на другое комплексное число function GetReal: Real; / / выделить действительную часть комплексного числа function GetImaginary: Real; / / выделить мнимую часть комплексного числа function GetModule: Real; / / найти модуль комплексного числа function GetArgument: Real; / / найти аргумент комплексного числа End;

Админ: Пользуемся тегами для оформления кода!