Pascal ABC. Нужно, чтобы человечек двигал рукой вверх и вниз...

[андрей161]

ребят нужно что бы человечек двигал рукой вверх и вниз ,(я рак)для школы нужно) заранее спасибо

program chelovek;
uses GraphABC;
Var
  x0,y0,r: Integer;
Begin
  x0:=0;
  y0:=0;
  r:=51;
  Rectangle(x0+200,y0+160,x0+380,y0+320);
  Circle(x0+290,y0+110,r);
  Line(x0+200,y0+200,x0+160,y0+240);
  Line(x0+380,y0+200,x0+420,y0+240);
  FloodFill(x0+290,y0+110,clyellow);
  FloodFill(x0+280,y0+180,clbrown);
  FloodFill(x0+60,y0+60,clblue);
  Line(x0+240,y0+320,x0+240,y0+400);
  Line(x0+320,y0+320,x0+320,y0+400);
  FloodFill(x0+200,y0+200,clred);
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Vanta11a]

А в чем проблема? Что-то в духе

while (true) do
if arm_pos = 1 then begin arm_pos := 0; hide_low_arm; show_up_arm; end else begin arm_pos := 1; hide_up_arm; show_low_arm; end;