Page 54 - 4260

§ Багаторядко редактор Memo1 висновку
результатів.
§ Кнопки Bitbtn1…Bitbtn4 імена Введення,
Виконати, Очистити, Закрити. Кнопка Введення
підтверджу значенн вв змінних, бутон
Виконати здійснює обчислення й виводить результати.
Буто Очистити вмі по результатів,
Кно Закрити ро програми (дублює
стандартну кнопку закриття вікна Windows).
6. У коді модуля форми програми додаємо:
§ У рядок uses посилання на модуль Complex.
§ розділ var змінні a,b,c,d типу real і Comp1, Comp2,
Comp3 типу Tcomplex.
7. Створюємо оброблювачі натискання кнопок.
8. Зберігаємо проект під унікальним іменем.

Лістинг модуля Complex:

unit Complex;
// Комплексна арифметика

interface
type
Tcomplex = record // Тип комплексного числа
Re, Im: Real
end;

function Addc(x,y: Tcomplex):Tcomplex; // Комплексне додавання
function Subc(x,y: Tcomplex):Tcomplex; // Комплексне віднімання
function Multc(x,y: Tcomplex):Tcomplex; // Комплексне множення
function Divc(x,y: Tcomplex):Tcomplex; // Комплексний розподіл

implementation

function Addc(x,y: Tcomplex):Tcomplex;
begin

54