Графика в паскале: нарисовать человека - Pascal ABC
Формулировка задачи:
Здравствуйте!
Помогите, пожалуйста, нарисовать в паскале человечка, нужно чтобы при перемещении двигались ноги и руки. PascalABC.
Заранее большое спасибо!
Решение задачи: «Графика в паскале: нарисовать человека»
textual
Листинг программы
uses GraphABC; var x,y,p: integer; procedure Riss; begin clearwindow; setbrushcolor(clred); if p=0 then begin circle(x,y,5); line(x,y+5,x,y+40); line(x,y+20,x-5,y+40); line(x,y+5,x+5,y+20); line(x,y+5,x-5,y+20); p:=1; end else begin circle(x,y,5); line(x,y+5,x,y+20); line(x,y+20,x+2,y+40); line(x,y+20,x-2,y+40); line(x,y+5,x+2,y+20); line(x,y+5,x-2,y+20); p:=0; end; redraw; end; begin lockdrawing; x:=40; y:=windowheight div 2; p:=0; while x<windowwidth-40 do begin Riss; x:=x+5; sleep(200); end; end.
Объяснение кода листинга программы
- В начале кода подключается библиотека GraphABC.
- Объявляются переменные x, y и p типа integer. Переменная p используется для определения формы, которую нужно нарисовать.
- Создается процедура Riss, которая будет рисовать фигуру в зависимости от значения переменной p.
- В функции clearwindow сбрасывается состояние окна.
- С помощью функции setbrushcolor устанавливается цвет кисти на красный (clred).
- Если значение переменной p равно 0, то рисуется окружность с радиусом 5, а также четыре линии, соединяющие точки на окружности.
- Если значение переменной p не равно 0, то рисуется окружность с радиусом 5, а также четыре линии, соединяющие точки на окружности.
- Функция redraw вызывает себя же, чтобы обновить графику.
- В блоке begin...end задается область видимости переменных x, y и p.
- Переменная x инициализируется значением 40.
- Переменная y инициализируется значением, равным половине высоты окна.
- Переменная p инициализируется значением 0.
- Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равно ширине окна минус 40.
- На каждой итерации цикла вызывается процедура Riss.
- После завершения цикла переменные x, y и p обнуляются.
- Заканчивается область видимости переменных.