ГДЗ до підручника «Інформатика» Й.Я. Ривкінда. 8 клас

6.8. Відображення графічних об’єктів засобами мови програмування

Стор. 221

1. Основні фігури (різноманітні геометричні фігури, серце, смайл та ін.), зірки та стрічки, елементи блок-схеми, напис.

2. Колір фону, колір межі, тип межі, товщина межі, стиль літер, колір фону літери, колір межі літери.

3. Колір фону, колір межі, тип межі, товщина межі.

Дайте відповіді на запитання

Стор. 226

1. Початок координат збігається з верхнім лівим кутом форми. Вісь Ох спрямована вправо, вісь Оу — донизу. Частина координатної площини, що відображається на формі, має розміри ширини і висоти.

2. Canvas (полотно, канва)

3. Команди для малювання графічних примітивів на координатній площині форми:

Canvas.MoveTo(x, у) — вибір на формі (х, у), з якої буде розпочинати малювання ліній.

Canvas.LineTo(x, у) — малювання відрізка від останньої точки, у якій відбувалось малювання, до точки (х, у).

Canvas.Rectangle(x1, y1, х2, у2) — малювання прямокутника, у якого протилежні вершини розміщені в точках (х1, у1) та (х2, у2), а сторони паралельні осями координат.

Canvas.Ellipse(x1, y1, х2, у2) — малювання еліпса, вписаного у прямокутник, у якого протилежні вершини розміщені в точках (х1, у1) та (х2, у2), а сторони паралельні осями координат. Прямокутник при цьому не відображається.

Canvas.Pie(x1, y1, х2, у2, х3, у3, х4, у4) — малювання замкненої фігури-сектора еліпса. Точки (x1, у1) та (х2, у2) задають прямокутник, у який вписано еліпс. Початкова точка дуги визначається перетином еліпса з прямою, що проходить через його центр і точку (х3, у3). Кінцева точка дуги визначається перетином еліпса з прямою, що приходить через його центр і точку (х4, у4). Дуга малюється проти годинникової стрілки від початкової до кінцевої.

4. Для зміни контуру та внутрішньої області потрібно використати такі властивості:

5. Canvas.Pen.Color — колір ліній контуру;

Canvas.Pen. Width — товщина лінії контуру;

Canvas.Pen.Style — стиль лінії контуру;

Canvas.Brush.Color — колір заливки внутрішньої області;

Canvas.Brush.Style — стиль заливки внутрішньої області.

6. Фігура. Щоб розмістити на формі, потрібно двічі клацнути на кнопці TShape на вкладці Additional.

7. Pen.Color — колір ліній контуру

Pen.Width — товщина лінії контуру;

Pen.Style — стиль лінії контуру;

Brush.Color — колір заливки внутрішньої області;

Brush.Style — стиль заливки внутрішньої області.

8. Shape.stRectagle — прямокутник, stCircle — коло, stSquare — квадрат, stDiamond — ромб, stTriangle — трикутник та ін.

9. Потрібно двічі клацнути кнопку TImage на вкладці Additional.

Виконайте завдання

Стор. 227

1. Код програми:

procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.Pen.Color:=clGreen;

Canvas.Pen.Width:=3;

Canvas.Brush.Color:=clRed;

Canvas.Brush.Style:=bsDiagCross;

Canvas. Rectangle(100,100,500,300)

end;

2. Код програми:

a) procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.MoviTo(100,100);

Canvas.LineTo(100,100);

Canvas.Pen.Color:=clRed;

Canvas.Pen.Style:=psDash;

Canvas.Pen. Style:=psDot;

Canvas.Pen.Width:=5;

end;

б) procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.MoviTo(100,100);

Canvas.LineTo(200,200);

Canvas.LineTo(200,100);

Canvas.LineTo(100,250);

Canvas.LineTo(250,350);

Canvas.Pen.Color:=clBlue;

Canvas.Pen.Style:=psDot;

Canvas.Pen.Width:=3;

end;

в) procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.Rectangle(50,50,250,300);

Canvas.Pen.Color:=clRed;

Canvas.Pen.Style:=psSolid;

Canvas.Pen.Width:=1;

Canvas.Brush.Color:=clSilver;

Canvas.Brush.Style:=bsCross;

end;

г) procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.Ellipse(100,20,200,300);

Canvas.Pen.Color:=clYellow;

Canvas.Pen.Style:=psDot;

Canvas.Pen.Width:=2;

Canvas.Brush.Color:=clLime;

Canvas.Brush.Style:=bsCross;

end;

ґ) procedure TForm1.Button1Click(Sender: TObject);

begin

Canvas.Pie(50,50,150,150,150,100,100,150);

Canvas.Pen.Color:=clWhite;

Canvas.Pen.Style:=psSolid;

Canvas.Pen.Width:=4;

Canvas.Brush.Color:=clOlive;

Canvas.Brush.Style:=bsDiagCross;

end;

3. Код програми:

Використовуючи інструмент малювання фігур TShape, панель Additional

procedure TForm1.FormClick(Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clSilver;

Shape1.Brush.Color:=clSilver;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clSilver;

Shape3.Pen.Color:=clGreen;

Shape3.Brush.Color:=clGreen;

Shape2.Pen.Color:=clYellow;

Shape2.Brush.Color:=clYellow;

Shape4.Pen.Color:=clRed;

Shape4.Brush.Color:=clRed;

end;

4. Код програми:

Використовуючи інструмент малювання фігур TShape, панель Additional

a) procedure TForm1.FormClick(Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clBlack;

Shape1.Brush.Color:=clSilver;

Shape2.Pen.Color:=clBlack;

Shape2.Brush.Color:=clSilver;

Shape3.Pen.Color:=clBlack;

Shape3.Brush.Color:=clBlue;

Shape4.Pen.Color:=clBlack;

Shape4.Brush.Color:=clYellow;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clRed;

Shape6.Pen.Color:=clBlack;

Shape6.Brush.Color:=clMaroon;

Shape7.Pen.Color:=clBlack;

Shape7.Brush.Color:=clMaroon;

Shape8.Pen. Color:=clBlack;

Shape8.Brush.Color:=clMaroon;

Shape9.Pen.Color:=clBlack;

Shape9.Brush.Color:=clYellow;

end;

б) procedure TForm1.FormClick(Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clBlack;

Shape1.Brush.Color:=clSilver;

Shape2.Pen.Color:=clBlack;

Shape2.Brush.Color:=clSilver;

Shape3.Pen.Color:=clBlack;

Shape3.Brush.Color:=clBlue;

Shape4.Pen.Color:=clBlack;

Shape4.Brush.Color:=clBlue;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clRed;

Shape6.Pen.Color:=clBlack;

Shape6.Brush.Color:=clMaroon;

Shape7.Pen.Color:=clBlack;

Shape7.Brush.Color:=clMaroon;

Shape8.Pen.Color:=clBlack;

Shape8.Brush.Color:=clMaroon;

Shape9.Pen.Color:=clBlack;

Shape9.Brush.Color:=clMaroon;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clBlack;

Shape1.Brush.Color:=clSilver;

Shape2.Pen.Color:=clBlack;

Shape2.Brush.Color:=clSilver;

Shape3.Pen.Color:=clBlack;

Shape3.Brush.Color:=clLime;

Shape4.Pen.Color:=clBlack;

Shape4.Brush.Color:=clAqua;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clRed;

Shape6.Pen.Color:=clBlack;

Shape6.Brush.Color:=clMaroon;

Shape7.Pen.Color:=clBlack;

Shape7.Brush.Color:=clMaroon;

Shape8.Pen.Color:=clBlack;

Shape8.Brush.Color:=clMaroon;

Shape9.Pen.Color:=clBlack;

Shape9.Brush.Color:=clMaroon;

Shape10.Pen.Color:=clBlack;

Shape10.Brush.Color:=clMaroon;

Shape11.Pen.Color:=clBlack;

Shape11.Brush.Color:=clMaroon;

Shape12.Pen.Color:=clBlack;

Shape12.Brush.Color:=clMaroon;

end;

г) procedure TForm1.FormClick1Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clBlack;

Shape1.Brush.Color:=clSilver;

Shape2.Pen.Color:=clBlack;

Shape2.Brush.Color:=clAqua;

Shape3.Pen.Color:=clBlack;

Shape3.Brush.Color:=clSilver;

Shape4.Pen.Color:=clBlack;

Shape4.Brush.Color:=clSilver;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clRed;

Shape6.Pen.Color:=clBlack;

Shape6.Brush.Color:=clRed;

Shape7.Pen.Color:=clBlack;

Shape7.Brush.Color:=clRed;

Shape8.Pen.Color:=clBlack;

Shape8.Brush.Color:=clYellow;

Shape9.Pen.Color:=clBlack;

Shape9.Brush.Color:=clLime;

Shape10.Pen.Color:=clBlack;

Shape10.Brush.Color:=clLime;

Shape11.Pen.Color:=clBlack;

Shape11.Brush.Color:=clLime;

end;

5. Для розміщенні зображення на формі потрібно скористатися кнопкою TImage на панелі інструментів Additional.

Потім скористатися Інспектором об’єктів, щоб змінити властивості Області зображення.

6. procedure TForm1.Image1Click(Sender: TObject);

begin

Form1.Color:=clCream;

Shape1.Pen.Color:=clBlack;

Shape1.Brush.Color:=clSilver;

Shape2.Pen.Color:=clBlack;

Shape2.Brush.Color:=clAqua;

Shape3.Pen.Color:=clBlack;

Shape3.Brush.Color:=clSilver;

Shape4.Pen.Color:=clBlack;

Shape4.Brush.Color:=clSilver;

Shape5.Pen.Color:=clBlack;

Shape5.Brush.Color:=clRed;

Shape6.Pen.Color:=clBlack;

Shape6.Brush.Color:=clRed;

Shape7.Pen.Color:=clBlack;

Shape7.Brush.Color:=clRed;

Shape8.Pen.Color:=clBlack;

Shape8.Brush.Color:=clYellow;

Shape9.Pen.Color:=clBlack;

Shape9.Brush.Color:=clLime;

end;

7. procedure TForm1.Button1Click (Sender: TObject);

begin

Shape1.Visible:=false;

Shape2.Visible:=false;

Shape3.Visible:=false;

if CheckBox1.Checked

then begin

Shape1.Pen.Width:=4;

Shape3.Pen.Width:=4;

end else

Shape1.Pen.Width:=1;

Shape3.Pen.Width:=1;

if CheckBox1.Checked

then begin

Shape2.Pen.Width:=4;

end

else Shape2.Pen.Width:=1;

if CheckBox1.Checked

then begin

Shape3.Pen.Width:=4;

end

else

Shape3.Pen.Width:=1;

if CheckBox2.Checked

then begin

Shape1.Brush.Color:=clGreen;

end else

Shape1.Brush.Color:=clYellow;

if CheckBox2.Checked

then begin

Shape2.Brush.Color:=clGreen;

end

else Shape2.Brush.Color:=clYellow;

if CheckBox2.Checked

then begin

Shape3.Brush.Color:=clGreen;

end

else Shape3.Brush.Color:=clYellow;

if CheckBox3.Checked

then begin

Shape1.Brush.Style:=bsSolid;

end

else

Shape1.Brush.Style:=bsDiagCross;

if CheckBox3.Checked

then begin

Shape2.Brush.Style:=bsSolid;

end else

Shape2.Brush.Style:=bsDiagCross;

if CheckBox3.Checked

then begin

Shape3.Brush.Style:=bsSolid;

end

else Shape3.Brush.Style:=bsDiagCross;

if (ComboBox1.Техt=’Квадрат’)=truе

then begin

Shape1.Visible:=true;

end

else if (ComboBox1.Тех1=’Коло’)=true

then begin

Shape2.Visible:=true;

end

else if (ComboBox1.Техt=’Трикутник’)=true

then begin

Shape3.Visible:=true;

end;

end;

Попередня
Сторінка
Наступна
Сторінка

Зміст

buymeacoffee