Запрограмуйте радіокнопки так, щоб напрямок стрілки показував на вид операції: купівля чи продаж. Зробіть активним поле Edit3.

Клацніть двічі на правому перемикачі RadioButton2 (Продаж). Отримаєте заготовку процедури RadioButton2Click. В тілі цієї процедури опишіть дії, які мають відбутися у результаті клацання на правому перемикачі RadioButton2:procedure TForm1.RadioButton2Click(Sender: TObject);

Begin

Label1.Caption:='=>';{ Змінюємо напрямок стрілки }

Edit3.SetFocus; {Активізуємо поле Edit3}

end;

Аналогічно запрограмуйте подію Click клацанням на лівому перемикачі RadioButton1, врахувавши, що стрілка має показувати на ліве поле ('<=').

Фрагмент програмного коду створеної процедури запишіть у звіт.

Апустіть програму і переконайтесь, що перемикач виконує свої функції.

19. Запрограмуйте кнопку "Кінець".

Скористайтесь процедурою закриття вікна програми close:

procedure TForm1.Button2Click(Sender: TObject);

Begin

close;{Закриваємо вікно програми}

end;

20.Запрограмуйте кнопку "Обчислити".

Дане у полі редагування — це значення властивості Text об'єкта типу string. Для перетворення цього даного у числовий дійсний тип (real) скористайтесь процедурою Val, а навпаки — процедурою Str.

Опишіть основні (kurs, suma) і додаткові (cod, ed) змінні у розділі var.

procedure TForm1.Button1Click(Sender: TObject);

var kurs1, kurs2, suma: real;

cod: integer;

ed: string[9];

Begin

Val(Edit1.Text, kurs1, cod);{ Одержуємо значення курсу купівлі }

Val(Edit2.Text, kurs2, cod);{ Одержуємо значення курсу продажу }

Val(Edit3.Text, suma, cod);{Одержуємо числове значення суми проданої чи купленої валюти}

if RadioButton2.Checked = True then

suma:= suma * kurs2

Else

suma := suma * kurs1;

Str(suma:9:2, ed); Edit4.Text := ed;{Одержане число суми в гривнях перетворюємо у текстовий формат і результат присвоюємо властивості Text поля виведення Edit4}

end;