mr_gorka
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program mayatnik(input,output);
uses crt,graph;
var a,b,c,d,y,r,i,x:integer;
procedure risunok;
begin
setfillstyle(9,red);
setcolor(red);
line(300,100,300+x,100-y);
circle(300+x,105-y,5);
floodfill(300+x,105-y,red);
end;
procedure risunokfill;
begin
setcolor(green+blue);
setfillstyle(1,green+blue);
line(300,100,300+x,100-y);
circle(300+x,105-y,5);
floodfill(300+x,105-y,green+blue);
end;
procedure pravoL;
begin
for x:=-60 to 0 do begin
if keypressed then exit;
y:=round(-sqrt(40000-sqr(x)));
risunok;
if x>=-15 then i:=i+1;
delay(40-i);
risunokfill;
end;
end;
procedure pravoR;
begin
for x:=0 to 60 do begin
if keypressed then exit;
y:=round(-sqrt(40000-sqr(x)));
risunok;
if x>=30 then i:=i+1;
delay(40+i);
risunokfill;
end;
end;
procedure vlevoR;
begin
for x:=60 downto 0 do begin
if keypressed then exit;
y:=round(-sqrt(40000-sqr(x)));
risunok;
if x<=15 then i:=i+1;
delay(40-i);
risunokfill;
end;
end;
procedure vlevoL;
begin
for x:=0 downto -60 do begin
if keypressed then exit;
y:=round(-sqrt(40000-sqr(x)));
risunok;
if x<=-30 then i:=i+1;
delay(40+i);
risunokfill;
end;
end;
begin
clrscr; {Очистка экрана}
initgraph(a,b,'');
setbkcolor(green+blue);
setlinestyle(0,0,3);
line(280,100,320,100);
setlinestyle(0,0,0);
delay(1000);
ellipse(300,100,250,290,211,211);
repeat
i:=1; pravoL;
i:=1; pravoR;
i:=1; vlevoR;
i:=1; vlevoL;
until keypressed;
closegraph;
end.
|
Всего записей: 71 | Зарегистр. 26-09-2007 | Отправлено: 23:43 13-12-2008 | Исправлено: mr_gorka, 23:46 13-12-2008 |
|
