program Gusinica;
uses GraphABC;
var i,x,y,k:integer;
procedure Gus; // Ïðîöåäóðà ðèñîâàíèÿ 1-ãî ïîëîæåíèÿ ãóñåíèöû
begin
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x,y,k);
SetBrushColor(clGreen);
circle(i+x*2,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*3,y,k);
SetBrushColor(clGreen);
circle(i+x*4,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*5,y,k);
SetBrushColor(clGreen);
circle(i+x*6,y,k);
//Ãîëîâà
SetBrushColor(clMoneyGreen);
circle(i+x*7+round(0.3*k),y-round(0.3*k),round(1.3*k));
//Ãëàçêè
SetBrushColor(clblack);
circle(i+x*7,y-k,round(0.1*k));
circle(i+x*7+round(0.6*k),y-k,round(0.1*k));
//Íîñèê
Arc(i+x*7+round(0.2*k),y-round(0.3*k),round(0.2*k),k*5,round(0.1*k));
//Ðîòèê
Arc(i+x*7+round(0.2*k),y+round(0.3*k),round(0.1*k),k*4,round(0.1*k));
//Óøêè
Line(i+x*7-round(0.3*k),y-round(3.1*k),i+x*7,y-round(1.6*k));
Line(i+x*7+k,y-round(3.1*k),i+x*7+k-10,y-round(1.6*k));
circle(i+x*7-round(0.3*k),y-round(3.1*k),round(0.2*k));
circle(i+x*7+k,y-round(3.1*k),round(0.2*k));
end;
procedure Gus2; //Ïðîöåäóðà ðèñîâàíèÿ 2-ãî ïîëîæåíèÿ ãóñåíèöû
begin
SetPenWidth(3);
SetBrushColor(clGreen);
circle(i+x,y,k);
SetBrushColor(clMoneyGreen);
circle(i+x*2,y,k);
SetBrushColor(clGreen);
circle(i+x*3-round(0.2*k),y-round(0.6*k),k);
SetBrushColor(clMoneyGreen);
circle(i+x*4-round(0.7*k),y-k*2,k);
SetBrushColor(clGreen);
circle(i+x*5-round(0.7*k),y-k*2,k);
SetBrushColor(clMoneyGreen);
circle(i+x*6-round(1.3*k),y-round(0.6*k),k);
SetBrushColor(clGreen);
circle(i+x*7-round(1.4*k),y,k);
//Ãîëîâà
SetBrushColor(clMoneyGreen);
circle(i+x*7+round(0.9*k),y-round(0.3*k),round(1.3*k));
//Ãëàçêè
SetBrushColor(clblack);
circle(i+x*7+round(0.6*k),y-k,round(0.1*k));
circle(i+x*7+round(1.2*k),y-k,round(0.1*k));
//Íîñèê
Arc(i+x*7+round(0.8*k),y-round(0.3*k),round(0.2*k),k*5,round(0.1*k));
//Ðîòèê
Arc(i+x*7+round(0.8*k),y+round(0.3*k),round(0.1*k),k*4,round(0.1*k));
//Óøêè
Line(i+x*7+round(0.2*k),y-round(3.1*k),i+x*7+round(0.6*k),y-round(1.6*k));
Line(i+x*7+round(1.5*k),y-round(3.1*k),i+x*7+round(1.2*k),y-round(1.6*k));
circle(i+x*7+round(0.2*k),y-round(3.1*k),round(0.2*k));
circle(i+x*7+round(1.5*k),y-round(3.1*k),round(0.2*k));
end;
begin
x:=60;
y:=200;
k:=30;
//cls;
SetWindowWidth(640);
SetWindowHeight(460);
LockDrawing;
for i:=50 to 500 do
begin
gus;
RedRaw;
Sleep(500);
clearwindow;
gus2;
RedRaw;
Sleep(500);
clearwindow;
end;
end.
uses graphABC,crt;
procedure Krug(x,y,r,c:integer);
begin
setpencolor(c);
setbrushcolor(c);
circle(x,y,r);
end;
var x1,y1,x2,y2,dx,dy,r:integer;
begin
hidecursor;
setwindowsize(600,400);
r:=15;
x1:=r;y1:=r;
x2:=windowwidth-r;
y2:=windowheight-r;
dx:=3;
dy:=2;
Krug(x1,y1,r,clGreen);
Krug(x2,y2,r,clYellow);
repeat
while (sqrt(sqr(x1-x2)+(y1-y2))>=2*r)and not keypressed do
begin
lockdrawing;
clearwindow;
x1:=x1+dx;
y1:=y1+dy;
x2:=x2-dx;
y2:=y2-dy;
Krug(x1,y1,r,clGreen);
Krug(x2,y2,r,clYellow);
redraw;
delay(20);
end;
while (x1>=r)and not keypressed do
begin
lockdrawing;
clearwindow;
x1:=x1-dx;
y1:=y1-dy;
x2:=x2+dx;
y2:=y2+dy;
Krug(x1,y1,r,clGreen);
Krug(x2,y2,r,clYellow);
redraw;
delay(20);
end;
until keypressed;
end.
Program z1;
Var i,n: integer;
Begin
n:=2;
for i:= 1 to 50 do
begin
write (' ',n );
n:=n+2;
end;
end.
Подготовка к экзаменам
СПРАВОЧНЫЕ МАТЕРИАЛЫ
Учебник Босовой Л.Л. 9 класс в 2-х томах