Яка властивість відповідає за форму автофігури?
Позначте одну правильну відповідь. 

(Кількість балів 1.00)

• А

  Brush.Color 

• Б

  Pen.Color 

• В

  Width 

• Г

  Shape 

Як змінити форму автофігури програмним шляхом?
Позначте одну правильну відповідь.
 

(Кількість балів 1.00)

• А

  Shape1.Brush.Color:=clRed; 

• Б

  Shape1.Pen.Color := clBlue; 

• В

  Shape1.Pen.Width := 3; 

• Г

  Shape1.Shape := stEllipse; 

Які з наведених операторів реалізують вертикальне переміщення елемента Shape1 по формі?
Позначте всі правильні відповіді.
 

(Кількість балів 1.50)

• А

  Shape1. Width := 20; 

• Б

  Shape1. Left := 20; 

• В

  Shape1. Left := Shape1. Left –20; 

• Г

  Shape1.Left := Shape1. Left +20; 

Які властивості має компонент Shape?
Позначте всі правильні відповіді. 

(Кількість балів 1.50)

• А

  Font 

• Б

  Color 

• В

  Brush.Style 

• Г

  Pen.Color 

Встановіть відповідність між формами автофігур (1–4) і значеннями властивості Shape (А–Г). 

(Кількість балів 2.00)

• • 1
  • 2
  • 3
  • 4
• • А

    stRectangle; 

  • Б

    stRoundRect; 

  • В

    stEllipse; 

  • Г

    stCircle; 

	А	Б	В	Г
1
2
3
4

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

(Кількість балів 2.00)

• А

  Canvas.TextOut(10, 10, 'bsVertical'); 

• Б

  Canvas.Brush.Style := bsVertical; 

• В

  Canvas.Brush.Color := clGreen; 

• Г

  Canvas.Rectangle (10, 30, 100, 120); 

	А	Б	В	Г
1
2
3
4

Скільки еліпсів буде зображено в результаті виконання фрагмента програми?
i := 0 ;
while i<6 do begin
     i := i+1;
    Canvas.Ellipse(i*10, i*10, Form1.ClientWidth–(10*i), ClientHeight–(10*i));
end; 

(Кількість балів 3.00)

 Як змінити стиль заливки автофігури програмним шляхом?

(Кількість балів 1.00)

• А

  Shape1.Brush.Color:=clRed; 

• Б

  Shape1.Pen.Color:=clBlue; 

• В

  Shape1.Brush.Style:= bsDiagCross; 

• Г

  Shape1.Shape:= stEllipse;