Нарисовать шагающего человечка

@luminary · Регистрация: 25.04.2010

Author24 — интернет-сервис помощи студентам

как в Pascal ABC нарисовать шагающего человечка?

@Puporev · 09.07.2011, 12:26

Если сильно не заморачиваться....

Pascal

uses GraphABC;
procedure P1(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x-15,y+100);
line(x,y+70,x+15,y+100);
end;
procedure P2(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
repeat
  LockDrawing;
  ClearWindow;
  setpenwidth(3);
  if odd(i) then P1(x,y)
  else P2(x,y);
  setpenwidth(10);
  line(0,y+100,windowwidth,y+100);
  Redraw;
  Sleep(500);
  x:=x+5;
  i:=i+1;
until x>=windowwidth-20;
end.

@luminary 0 / 0 / 0 Регистрация: 25.04.2010 Сообщений: 14
		1
	Нарисовать шагающего человечка 09.07.2011, 11:49. Показов 3793. Ответов 1 Метки нет (Все метки) как в Pascal ABC нарисовать шагающего человечка? 0

	09.07.2011, 12:26

Нарисовать шагающего человечка

Решение