процедура кръг, drawcircle, fillcircle

Здравейте читатели progmatem.ru сайт за програмиране в Паскал. На тази страница, обмислете следните три процедури графики модул GraphABC - кръг, DrawCircle, FillCircle, като последните два в средносрочен PascalABC отсъства. Но в ред, започвайки с кръг определяне подпрограма (х, у, R).

процедура Circle

✎ процедура кръг (х, у, г: цяло число);

- обръща запълнена окръжност с център (х, у) и радиус R

Цвят линия кръг е определено като се използва SetPenColor (с). ширина - SetPenWidth (w). цвета на кръговото пространство - SetBrushColor (с). В параметър PascalABC.Net е от тип Color, в PascalABC - тип ColorType. Ширината или дебелината на W писалка - положително цяло число.

Ето как изглежда по примера:

Код PascalABC, PascalABC.Net

Важна забележка: ако не зададете ръчно свойствата на границите и площта на кръг, са използвани граница по подразбиране цвят - черен, tolschirna писалка - 1 пиксел, поле за цвят - бял.

Код PascalABC, PascalABC.Net

процедура DrawCircle

✎ процедура DrawCircle (х, у, г: цяло число);

- обръща окръжност с център в (х, у) и радиус R

За разлика от процедурата DrawCircle на Circle, която привлича само първата линия на кръга без пълнеж вътре. Това е, за да го кажем по-просто - кръга е празна отвътре. Нека да напишете проста програма.

Подобен извод направихме по DrawPolygon FillPolygon процедурите на страницата и по отношение на тези подпрограми, които са демонстрирали използването на пълни (пълни) Polygon Polygon и полилиния DrawPolygon. Тук ние трябва да помним, правилото:

✎ Ако процедура PascalABC.Net графики модул се използва с привлече префикс. Мийте четката, за да нарисува областта не се използва тук. Това става ясно от факта, че едно от значенията на английската дума "тегленето" е "нарисува", тоест, просто да начертаете линия.

процедура FillCircle

И накрая, последната подход процедурата FillCircle (.) Тази група подпрограми, свързани в кръг и кръг. Каква е разликата си от предходния кръг и DrawCircle? Английската дума "запълване" означава "запълни", така че ние можем да приемем, че тази процедура запълвания (бои, скици) prostaranstvo кръг. наистина:

✎ процедура FillCircle (х, у, г: цяло число);

- запълване на вътрешната окръжност с център (х, у) и радиус R

Ето един пример с кръга сенчести в розово. Ето програмата:

Особеността на тази процедура е, че поради това попълнено кръга няма граници. и затова използвайте писалката няма смисъл. Наистина, в следващата програма чрез задаване на дебелината и цвета на писалката (5 и 6 реда код), виждаме, че жълтия кръг все още е без граница:

По принцип, ако искате да начертаете кръг и го боя веднъж (за запълване), а след това използвайте кръг; ако inuzhna кръг, след DrawCircle; Ако запълнен кръг без граници, а след това ние прилагаме FillCircle.

Разделение> .uk панел ">" данни-UK-решетка-марж>