Об’єктно-орієнтоване програмування. Завдання.

Клас комплексних чисел

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;