Выполнить задания в LearningApps

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.

Кахут 9к

Кахут для 9а

Кахут для 9б

Program z1;

 Var i,n: integer;

 Begin

   n:=2;

   for i:= 1 to 50 do

     begin

      write ('   ',n );

      n:=n+2;

     end;

 end.

Подготовка к экзаменам

СПРАВОЧНЫЕ МАТЕРИАЛЫ

Основы работы в электронных таблицах

Учебник Босовой Л.Л. 9 класс 2012г.

Учебник Босовой Л.Л. 9 класс в 2-х томах