Процедури кръг и дъга

процедура Circle чертае кръг на екрана. Тъй като параметрите на тази процедура използва координатите на центъра на кръга, а дължината на радиуса. процедура Arc обръща на екрана дъга, чийто център координати са определени, на ъгъла на началния и крайния ъгъл на дължината на радиуса.

Рисуване кръгове и дъги, използвайки процедурите кръг и дъга.

№3 низ. Посочете променлива за съхраняване на окончателната стойност на ъгъла в изграждането на дъга.

В съответствие №20 процедура запис SetColor. Тя е приложима за процедурите на Circle и Arc ще определи цвета на кръга и дъгата, която ние определяме в линии №21 и №25.

String №21. процедура Circle чертае кръг на екрана. След процедура за запис в скоби посочват параметрите на процедурата. Първите две параметри определят X и Y координатите на центъра на кръга (в този пример има стойност на координатната х 300 пиксела, и Y координира - 200 пиксела). Третият параметър определя процедури кръг кръг радиус (в този пример, радиусът е настроен на 100 пиксела). Така, дисплеят ще покаже зелен окръжност с център в (300,200) и радиус на 100 пиксела.

String №22. Задаване променлива «ш» първоначалната стойност 0, т.е. краен ъгъл на дъгата е равна на 0.

String №23. Напиши цикъл. Докато «у», т.е. краен ъгъл е по-малък или равен на 360 градуса, при условие трябва да бъде изпълнено, която следва думата Do. Думата последвано Да 3 операции.

String №25. Първата операция - процедура, Arc, което привлича екрана на дъга. Тази процедура има пет параметри. Първите две параметри (в нашия пример 600,200) определят координатите на центъра на дъгата. Третият параметър определя ъгъла старт на дъгата в градуси (в нашия пример е равен на 0). Четвъртият параметър определя окончателното му ъгъл в градуси на дъга (в нашия пример това е равно на променлива «у»). Петият параметър определя радиусът на дъгата (в този пример 100 пиксела).

String №26. Увеличаване на променлива «у» 10 градуса. Поради факта, че низа и №25 №26, разположен в една линия от крайната стойност на ъгъла ще се увеличи 0-360 на стъпки от 10 градуса, а това увеличение ще се процедира в размер на 10 градуса в секунда през линия Забавяне Процедура №27. Така, дисплеят ще покаже дъга с център в точката (600,200) и радиус на 100 пиксела. Някои ъгъл дъга е 0 градуса. Ъгълът на края на дъгата също е равна на 0 градуса и се увеличава с 10 градуса в секунда.

Допълнение към материала.

За кръг Arc и процедурите могат да бъдат определени чрез процедурите за дебелина линия SetLineStyle, където тип линия може да има стойност само solidln (твърдо вещество), т.е. SetLineStyle процедура може да има параметри, или (0,0,1) или (0,0,3).