Как нарисовать свиток - 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.

Объяснение кода листинга программы

  1. Используется библиотека graph.
  2. Переменные x и y инициализируются значением 0.
  3. Устанавливается стиль линии (0,0,3) и цвет (7).
  4. Рисуется свиток с помощью функции arc.
  5. Устанавливается стиль заливки (1,7) и цвет (7).
  6. Рисуются две дуги окружности с помощью функции arc.
  7. Рисуется линия между двумя точками.
  8. Устанавливается цвет (8).
  9. Рисуется линия между двумя точками.
  10. Рисуется окружность с помощью функции arc.
  11. Устанавливается цвет (8).
  12. Рисуется линия между двумя точками.
  13. Рисуется окружность с помощью функции arc.
  14. Устанавливается цвет (8).
  15. Рисуется линия между двумя точками.
  16. Рисуется окружность с помощью функции arc.
  17. Устанавливается цвет (8).
  18. Рисуется линия между двумя точками.
  19. Рисуется окружность с помощью функции arc.
  20. Устанавливается цвет (8).
  21. Рисуется линия между двумя точками.
  22. Выводится сообщение с помощью функции readln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы