Відповіді до підручника Інформатика 8 клас Й. Я. Ривкінд - Г.В. Чап'юк 2016-2020

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

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

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

2.  Для малювання графічних примітивів використовується така властивість форми як Canvas.

3.  Для малювання графічних примітивів використовують такі команди: Canvas.MoveTo(x, y) — вибір на формі точки (х, у), з якої буде розпочинатись ми- лювання лінії; Canvas.LineTo(x, у) —- малювання відрізка або ламаної, якщо виконати кілька разів послідовно команду; Canvas.Rectangle(x1, у1, x2, у2)— прямокутник з протилежними вершинами у точках (x1, y1) та (х2, y2); Canvas.Ellipse(x1,у1, х2, у2) — створення еліпса, Canvas.Pie(x1, у1, х2, у2, x3, у3, х4, у4) — створення сектора.

4.  Щоб змінити контур і внутрішню область графічних примітивів, використовують такі властивості форми: Canvas.Pen.Color — для встановлення кольору лінії контуру, Canvas.Pen.Width — для задання товщини лінії контуру, Canvas.Pen.Style — для стилю лінії контуру; Canvas.Brush.Color — для встановлення кольору заливки внутрішньої області, Canvas.Brush.Style — для задання стилю заливки внутрішньої області.

5.  Для того щоб малюнок відображався на формі одразу після запуску проекту на виконання, потрібно команди малювання розміщувати у процедурі — обробнику Paint події для форми. Графічні примітиви в проектах Lazarus можна створювати через компонент Фігура. Щоб розмістити Фігуру на формі, потрібно двічі клацнути на кнопці TShape на вкладці Additional вікна середовища Lazarus.

6.  Компонент Фігура має властивості, що визначають колір і стиль контуру та внутрішньої області: Pen.Color— колір контуру. Pen.Width— товщина контуру, Pen.Style — стиль лінії контуру, Brush.Color — колір заливки внутрішньої області, Brash.Style — стиль заливки внутрішньої області.

7.  Компонент Фігура має властивість Shape, що визначає її форму. Ця властивість може набувати різних значень: stRectangle — прямокутник, stCircle — коло, stSquare — квадрат, stDiamond — ромб, stTriangle — трикутник, за замовчуванням значення цієї властивості визначає квадрат з контуром чорного кольору товщиною 1 піксель і суцільною заливкою білого кольору.

8.  Для відображення зображення, що містяться в зовнішніх файлах, призначений компонент Область зображення. Для його розміщення на формі потрібно двічі клацнути на кнопці TImage на вкладці Additional у вікні середовища Lazarus.

9.  Відображення зображення, яке міститься у зовнішньому файлі, визначається значеннями властивості Області зображення Picture, що задає вибір файлу з графічним зображенням.

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

1.   begin

Canvas. Pen.Color:=clBlack;

Canvas.Pen.Style:=psSolid;

Canvas.Pen. Widths = 1;

Canvas.Brash.Color:=clFuchsia;

Canvas.Rectangle (50, 80, 300, 200);

end;

2.   begin

Canvas.Pen.Color:=clRed;

Canvas.Pen.Style:=psDashDot;

Canvas.Pen.Width:=5;

Canvas.MoveTo(10,10);

Canvas.LineTo(200,200);

Canvas.Pen.Color:=cIBlue;

Canvas.Pen.Style:=psDot;

Canvas.Pen. Width:=3;

Canvas.MoveTo(300,300);

Canvas.LineTo( 150,400);

Canvas.LineTo(200,550);

Canvas.LineTo(250,300);

Canvas.LineTo(350,400);

Canvas.Pen.Color:=clRed;

Canvas.Pen.Style:=psSolid;

Canvas.Pen.Width:=1;

Canvas.Brush.Color:=clSilver;

Canvas.Brash.Style:=bsHorizontal;

Canvas.Rectangle (50, 50, 200, 150);

Canvas.Pen.Color:-cl Yellow;

Canvas.Pen.Style:=psDot;

Canvas.Pen. Width:=2;

Canvas.Brash.Color:=clLime;

Can vas. Brush.. Sty le:=bsVertical;

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

Can vas. Pen. Colored White;

Canvas.Pen.Style:=psSolid;

Canvas.Pen.Width:=4;

Canvas.Brush.Color:=clOHve;

Canvas. Brush. Sty le :=bsDiagCross;

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

3.   begin

Canvas. Pen.Color:=clBlack;

Canvas.Pen.Style:=psSolid;

Canvas.Pen.Width:= 1;

Canvas.Brush.Color:=clGray;

Canvas.MoveT o(40,100);

Canvas. LineT o(75,80);

Canvas.LineTo( 110,100);

Canvas.LineTo(40,100);

Canvas.Rectangle (50, 100, 100, 230);

Canvas.Pen.Color:=clGreen;

Canvas.Pen.Style:=psSolid;

Canvas.Pen. Width:=1;

Canvas.Pen.Color:=clGreen;

Canvas.Ellipse(60,110,90,140);

Canvas.Pen.Coior:=clYellow;

Canvas.Pen.Style:=psSolid;

Canvas.Pen. Width:=1;

Canvas.Brush.Color:=clYellow;

Canvas.Ellipse(60,150,90,180);

Canvas.Pen.Color:=clRed;

Canvas.Pen.Stylet:=psSolid;

Canvas.Pen.Width:=1;

Canvas. Brush.Color:=clRed;

Canvas.Ellipse(60,190,90,220);

end;