Как нарисовать свиток - Turbo Pascal
Формулировка задачи:
Помогите
Решение задачи: «Как нарисовать свиток»
textual
Листинг программы
uses graph; var x,y:integer; begin initgraph(x,y,''); x:=getmaxX div 2; y:=getmaxY div 2; setbkcolor(15); setlinestyle(0,0,3); setcolor(7); arc(x-100,y-175,270,180,25); arc(x-100,y-162,90,270,12); line(x-100,y-174,x-75,y-174); setfillstyle(1,7); floodfill(x-100,y-155,7); arc(x-150,y+175,90,360,25); arc(x-150,y+163,270,90,12); line(x-150,y+175,x-125,y+175); floodfill(x-150,y+180,7); setcolor(8); line(x-100,y-200,x+200,y-200); line(x-100,y-150,x+200,y-150); arc(x+200,y-175,270,90,25); arc(x-150,y+175,90,360,25); arc(x-150,y+163,270,90,12); line(x-150,y+175,x-150,y+175); arc(x-100,y-175,270,180,25); arc(x-100,y-162,90,270,12); line(x-100,y-174,x-75,y-174); line(x-150,y+200,x+145,y+200); arc(x+145,y+175,270,360,25); line(x+170,y+175,x+170,y-150); line(x-125,y+175,x-125,y-175); line(x-150,y+175,x-125,y+175); line(x-150,y+150,x-125,y+150); readln end.
Объяснение кода листинга программы
- Используется библиотека graph.
- Переменные x и y инициализируются значением 0.
- Устанавливается стиль линии (0,0,3) и цвет (7).
- Рисуется свиток с помощью функции arc.
- Устанавливается стиль заливки (1,7) и цвет (7).
- Рисуются две дуги окружности с помощью функции arc.
- Рисуется линия между двумя точками.
- Устанавливается цвет (8).
- Рисуется линия между двумя точками.
- Рисуется окружность с помощью функции arc.
- Устанавливается цвет (8).
- Рисуется линия между двумя точками.
- Рисуется окружность с помощью функции arc.
- Устанавливается цвет (8).
- Рисуется линия между двумя точками.
- Рисуется окружность с помощью функции arc.
- Устанавливается цвет (8).
- Рисуется линия между двумя точками.
- Рисуется окружность с помощью функции arc.
- Устанавливается цвет (8).
- Рисуется линия между двумя точками.
- Выводится сообщение с помощью функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д