Пожалуйста, добавьте программу, которая заставит двигаться глаза:

uses graphABC;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setbrushcolor(clblack);
ellipse(100,75,110,93);
ellipse(150,75,160,93);
ellipse(150,75,160,93);
setpencolor(clwhite);
setbrushcolor(clbrown);
floodfill(60,40,cllightblue);
end.

1

Ответы и объяснения

  • Участник Знаний
2014-04-11T17:14:28+04:00
Uses graphABC;
var x,k:integer;
begin
setwindowsize(500,400);
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
floodfill(60,40,cllightblue);
x:=100;
k:=1;
WHILE x>0 do
  begin
  setbrushcolor(clwhite);
  setpencolor(clblack);
  circle(105,80,15);
  circle(155,80,15);
  setbrushcolor(clblack);
  ellipse(x,75,x+10,93);
  ellipse(X+50,75,x+60,93);
  x:=x+k;
  if x=110 then k:=-1;
  if x=90 then k:=1;
  sleep(500)
  end
end.