Графика в паскале: нарисовать человека - 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.

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

  1. В начале кода подключается библиотека GraphABC.
  2. Объявляются переменные x, y и p типа integer. Переменная p используется для определения формы, которую нужно нарисовать.
  3. Создается процедура Riss, которая будет рисовать фигуру в зависимости от значения переменной p.
  4. В функции clearwindow сбрасывается состояние окна.
  5. С помощью функции setbrushcolor устанавливается цвет кисти на красный (clred).
  6. Если значение переменной p равно 0, то рисуется окружность с радиусом 5, а также четыре линии, соединяющие точки на окружности.
  7. Если значение переменной p не равно 0, то рисуется окружность с радиусом 5, а также четыре линии, соединяющие точки на окружности.
  8. Функция redraw вызывает себя же, чтобы обновить графику.
  9. В блоке begin...end задается область видимости переменных x, y и p.
  10. Переменная x инициализируется значением 40.
  11. Переменная y инициализируется значением, равным половине высоты окна.
  12. Переменная p инициализируется значением 0.
  13. Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше или равно ширине окна минус 40.
  14. На каждой итерации цикла вызывается процедура Riss.
  15. После завершения цикла переменные x, y и p обнуляются.
  16. Заканчивается область видимости переменных.

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

6   голосов , оценка 4.167 из 5