Пример. Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис

Написать программу, которая на поверхности формы рисует флаг Российской Федерации (рис. 1).

Рисунок 1 – Изображение флага Российской Федерации

Программный код.

// обработка события OnPaint

// процедура рисует флаг Российской Федерации

Procedure TForm1.FormPaint(Sender: TObject);

Const

L=200; //ширина флага(полосы)

H=40; // высота полосы

Var

X, y: integer; // левый верхний угол

Begin

X: =30;

Y: =50;

With Canvas do

Begin

// границы, цвет границы должен совпадать с цветом закраски

Brush.Color: =clWhite; // цвет закраски

Pen.Color: =clWhite; // цвет границы

Rectangle(x, y, x+L, y+H);

Brush.Color: =clBlue;

Pen.Color: =clBlue;

Rectangle(x, y+H, x+L, y+3*H);

Brush.Color: =clRed;

Pen.Color: = clRed;

Rectangle(x, y+2*H, x+L, y+3*H);

// контур

Pen.Color: =clBlack;

Brush.Style: =bsClear; // прозрачная кисть

Rectangle(x, y, x+l, y+h*3);

Font.Size: =24;

Font.Name: =’Times New Roman’;

Font.Color: =clWhite;

TextOut(50, 200, ’Россия’);

Font.Color: =clBlack;

TextOut(51, 201, ’Россия’);

End;

End;

End.

Варианты заданий

Задание. Написать программу, которая на поверхности формы рисует олимпийский флаг (рис. 2) и флаги государств мира.

Рисунок 2 – Олимпийский флаг