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

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
Ты хочешь что бы мы щас по паскалю написали программу или что?
в общем-то да, что не так?
Просто писать софты я думаю врятли кто будет так что тема не совсем актуальна я бы на delphi7 может быть и написал но это не минутное дело)
принципе это несложно, но долго=)

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

  • Участник Знаний
2014-04-11T13:05:29+00: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.
спасибо огромное!) хоть кто-то помог, вместо того, чтобы говорить
Пожалуйста! Нормально двигаются глазки?))
да, отлично)