Інформатика

Запишіть та виконайте:

Для кращого сприйняття даних, відношень між ними використовують їх графічне подання певними геометричними фігурами. Прикладами такого подання є діаграми, які ви вивчали та використовували на уроках математики, географії, у табличному процесорі тощо.

Графічно подати (візуалізувати) елементи табличної величини, використовуючи компонент Фігура.

Розглянемо табличну величину з 5 елементів. Розмістимо на формі 5 компонентів Фігура та встановимо для кожного з них значення stRectangle властивості Shape. Під час виконання обробника події Click для кнопки буде прочитано цілі числа з багаторядкового текстового поля, з них утворено табличну величину з 5 елементів і значення цих елементів буде присвоєно висотам відповідних прямокутників. Результат виконання цієї процедури наведено на малюнку.

procedure TForm1.Button1Click(Sender: TObject);
var a: array [1..5] of integer; i: integer;
begin
for i := 1 to 5 do
a[i] := StrToInt(Memo1.Lines[i-1]);
Shape1.Height := a[1];
Shape2.Height := a[2];
Shape3.Height := a[3];
Shape4.Height := a[4];
Shape5.Height := a[5];
end

P.S. Якщо успішно виконали завдання та зберегли, отримаєте бонус (+2 бали до наступної практичної роботи).

Домашнє завдання:

(Підручник: Інформатика 9 клас (2017) – Й.Я. Ривкінд – Відкрити…)

Опрацювати п.6.3 ст. 174

Завдання 7. ст. 180.

Створіть проект, у якому потрібно сформувати табличну величину з 5 дійсних чисел, що знаходяться в рядках багаторядкового текстового поля, та зобразити кожне число крусом відповідного радіуса, використовуючи властивість Canvas. Збережіть проект у папці з іменем Завдання 7, створеній у вашій папці.