Новичок
Регистрация: 25.11.2014
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Репутация: 60
|
Нужна помощь в дописании кода
Анимированный человечек есть,есть рот. Но надо еще дорисовать нос,глаза и волосы. Очень срочно надо...помогите кто нибудь(
Код:
uses graphabc;
var
x,y:integer;
begin
setwindowsize(280,280);
centerwindow;
x:=100;
y:=70;
while x<280 do
begin
circle(x,y,30);
line(x,y+30,x-20,y+130);
line(x-20,y+130,x+20,y+170);
line(x+20,y+170,x-20,y+210);
line(x-20,y+130,x-20,y+170);
line(x-20,y+170,x-70,y+170);
line(x-5,y+50,x-40,y+70);
line(x-40,y+70,x-40,y+110);
line(x-5,y+50,x,y+70);
line(x,y+70,x+50,y+50);
sleep(200);
clearwindow(clwhite);
circle(x+5,y-5,30);
line(x+5,y+25,x-15,y+125);
line(x-15,y+125,x+10,y+160);
line(x+10,y+160,x+20,y+200);
line(x-15,y+125,x-40,y+170);
line(x-40,y+170,x-80,y+190);
line(x,y+50,x-20,y+70);
line(x-20,y+70,x+10,y+100);
line(x,y+50,x+10,y+70);
line(x+10,y+70,x+50,y+90);
x:=x+10;
sleep(200);
clearwindow(clwhite);
end;
end.
|