18. Опрацювання оператору for

Вправа. Створення програм із графічним відображенням даних.

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

1) Створіть новий проект. Змініть заголовок форми на «Еліпси».

2) Створіть процедуру обробки події OnPaint для форми.

3) У програмному коді процедури запишіть оператори для малювання чотирьох еліпсів (рис. 2).

procedure TForm1.FormPaint (Sender: TObject);

const x = 10; y = 10; // умовне розбиття форми на комірки

var dx, dy, i: Integer;

begin

dx := Form1.ClientWidth div x;

dy := Form1.ClientHeight div y;

For i := 1 to 4 do begin

Canvas. Brush.Color := RGBToColor (255, 255 div i, 255 div i);

Canvas. Ellipse (i*dx, i*dy, (10-i) *dx, (10-i) *dy);

end;

end;

procedure TForm1.FormResize (Sender: TObject);

begin

Refresh ();

end;

4) Змініть кольори заливки еліпсів на відтінки зеленого.

5) Запустіть проект на виконання. Перевірте роботу програми. Збережіть проект у папці Вправа 45.

6) Змініть програмний код таким чином, щоб виконувалось малювання п’яти вкладених прямокутників.