Тема 39: Візуалізація елементів табличної величини за допомогою графічних примітивів.

9 клас. Практичні завдання з інформатики за підручником Й.Я.Ривкінда 2017 року.

Д\з   6.3. Візуалізація елементів табличної величини з використанням графічних примітивів.

Відео пояснення: https://www.youtube.com/watch?v=_SEMrbO_saw

Завдання. Багаторядкове текстове поле містить 8 цілих чисел. Створити обробник події Click для кнопки, виконання якого зафарбує в зелений колір фігури, для яких відповідні значення додатні, у червоний колір — фігури, для яких відповідні значення від’ємні, і в жовтий колір — фігури, для яких відповідні значення дорівнюють нулю.

1. Відкрийте вікно середовища Lazarus.

2. Розмістіть на формі (мал. 6.9):

 • багаторядкове текстове поле заввишки 150;

 • кнопку з текстом Зобразити;

 • є 8 компонентів Фігура та встановіть для кожного з них значення stTriangle властивості Shape і значення 80 властивості Height.

3. Збережіть проект у папці з іменем Вправа 6.3, створеній у вашій папці.

4. Створіть обробник події Click для кнопки. Уведіть такий текст процедури:

var a: array [0..7] of integer; b: array [0..7] of TShape; i: integer;

begin

b|0] ;= Shape1; b[1] := Shape2; b[2] := Shaped; b[3] := Shape4;

b[4] := Shape5; b[5] := Shape6; b[6] := Shape7; b[7] := Shape8;

for і := 0 to 7 do

a[i] := StrToInt(Memo1.Lines[i]);

for і := 0 to 7 do

If a[i] менше 0 Then b[i].Brush.Color ;= clred

 Else If a[i] = 0 Then b[i].Brush.Color := clyellow

      Else b[і].Brush.Color := clgreen;

end;

5. Збережіть оновлену версію проекту.

6. Запустіть проект на виконання.

7. Уведіть у багаторядкове текстове поле числа: 2; 5; -11; 56; -6; 0; 3; 0. Виберіть кнопку Зобразити. Проаналізуйте отриманий результат (мал. 6.10).

8. Видаліть числа з багаторядкового текстового поля та введіть свій на¬бір цілих чисел. Виберіть кнопку Зобразити. Проаналізуйте отриманий результат.

9. Закрийте вікно виконання проекту.

10. Установіть для кожного з компонентів Фігура значення stCircle властивості Shape і значення 60 властивостей Height і Width.

11. Збережіть оновлену версію проекту.

12. Запустіть проект на виконання.

13. Уведіть свій набір цілих чисел у багаторядкове текстове поле. Виберіть кнопку Зобразити. Проаналізуйте отриманий результат.

14. Закрийте вікно виконання проекту.

15. Закрийте вікно середовища Lazarus.