Завдання до лабораторної роботи

1. Виконати всі приклади, що знаходяться в розділі «Теоретичні відомості».

2. Виконати завдання для самостійної роботи.

3. Реалізувати завдання лабораторної роботи на тему “Умовний оператор”, використовуючи можливості Delphi.

Створіть форму, як показано на рис.2.16 а). Ця форма повинна бути двошаровою. Тобто після запуску програми на виконання спочатку відкривається форма представлена на рис.2.16 б), а після введення прізвища та групи і натискання кнопки Ввести відкривається форма, вигляд якої представлено на рис.2.16 в). Формули для обчислення Y потрібно взяти відповідно до варіанту індивідуального завдання лабораторної роботи на тему “Умовний оператор”.

Значення X і формула, за якою потрібно обчислити Y, повинні визначатися програмою при виборі відповідної радіокнопки. На формі має бути видимою лише та формула, яка використовувалась для обчислення Y. Для цього в процедурі кнопки “Обчислити” можна скористатися командами вигляду:

if x<1 then begin

Form1.RadioButton1.Checked:=True;

y:=sqr(x)+1/exp(sqr(x))+1;

Form1.Edit2.Text:=FloatToStr(y);

end;

Рис.2.16.а) Приклад заповнення форми об’єктами

Рис.2.16.б) Приклад форми після запуску програми на виконання

Рис.2.16.в) Приклад форми після натискання кнопки Ввести

2. Розташуйте на формі три рисунки та лише одну кнопку (рис.2.17.), яка при кожному її натисканні засвічуватиме рисунки (1-ий, потім 2-ий, потім 3-ій, потім знову 1-ий, 2-ий, 3-ій і.т.д.).

Рис.2.17. Приклад розташування об’єктів на формі

Підказка 1. Порядок роботи з об'єктом Image (зображення).

• Вставте у форму об'єкт Image, для чого клацніть мишею на піктограмі Image закладки Additional (додаткові) палітри компонентів i на формі обведіть контур майбутнього рисунку. За замовчуванням цей об'єкт матиме стандартну назву Image1.

• Вставте рисунок за допомогою властивості Picture (ілюстрація) об'єкта Image1, для чого активізуйте об'єкт Image1 і рядок Picture у вікні Object Inspector. Клацнувши на кнопці, відкрийте діалогове вікно вибору малюнка Picture Editor. Клацніть на кнопці Load (завантажити) і у вікні Load picture задайте шлях до файлу з рисунком. Виберіть файл => Open. Підтвердіть вибір у Picture Editor натисканням на Ok. Задайте властивість Stretch для об'єкта Image1 як True.

• Вставте 2-й рисунок у форму поверх існуючого, скориставшись ще одним об'єктом Image. При накладанні об'єктів користуйтеся командами Send To Back (переслати назад) чи Bring To Front (перенести наперед), з їх контекстових меню. Встановіть значення властивості Visible у False для всiх рисункiв.

Підказка 2. Програмування події натискання кнопки.

У процедурі програмування роботи кнопки, можна скористатися командами вигляду:

if Image1.Visible=True then ... {Якщо видимість = True, тоді ... }

або рівносильною командою

if Image1.Visible then {Тут умова також істинна, якщо видимість увімкнена}

Наприклад, запрограмувати кнопку так, щоб після її натискання у формі з'являвся 1-й рисунок можна наступним чином:

procedure TForml.Button1Click(Sender: TObject);

begin

Image1. Visible: =True; {1-й рисунок видимий} Image2. Visible:=False; {2-й рисунок невидимий}

end;

Процедура вмикає властивість видимості для об'єкта Image1, а для об'єкта Image2 вимикає.

Реалізуйте дане завдання за допомогою радіокнопок. Розташуйте на формі три картинки та три радіокнопки. При виборі перемикача одна з картинок повинна ставати видимою. Тобто за кожну картинку повинна відповідати одна радіокнопка.