Нужна помощь в дописании кода

artxdf · 27.11.2014, 01:18

Анимированный человечек есть,есть рот. Но надо еще дорисовать нос,глаза и волосы. Очень срочно надо...помогите кто нибудь(

Код:

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.

Vladimir_S · 27.11.2014, 11:17

Если так устроит

то:
1. Ввести переменную i типа Integer.
2. В раздел "до первой паузы", напр. сразу после задания кружка-головы, добавить:

Код:

   circle(x+15,y-10,6);
   circle(x+34,y,4);
   line(x,y,x+Round(30*Sqrt(3)/2),y+Round(30/2));
   for i:=0 to 20 do
    line(x+Round(30*Cos(Pi/4+Pi/20*i)),y-Round(30*Sin(Pi/4+Pi/20*i)),
         x+Round(40*Cos(Pi/4+Pi/20*i)),y-Round(40*Sin(Pi/4+Pi/20*i)));

3. В раздел "после первой паузы" добавить:

Код:

   circle(x+5+15,y-5-10,6);
   circle(x+5+34,y-5,4);
   line(x+5,y-5,x+5+Round(30*Sqrt(3)/2),y-5+Round(30/2));
   for i:=0 to 20 do
    line(x+5+Round(30*Cos(Pi/4+Pi/20*i)),y-5-Round(30*Sin(Pi/4+Pi/20*i)),
         x+5+Round(40*Cos(Pi/4+Pi/20*i)),y-5-Round(40*Sin(Pi/4+Pi/20*i)));

Gruvi · 27.11.2014, 17:30

Владимир - вы истинный художник )))

artxdf · 27.11.2014, 20:53

Vladimir_S
Благодарю!)))

27.11.2014, 11:17	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Если так устроит то: 1. Ввести переменную i типа Integer. 2. В раздел "до первой паузы", напр. сразу после задания кружка-головы, добавить: Код: circle(x+15,y-10,6); circle(x+34,y,4); line(x,y,x+Round(30Sqrt(3)/2),y+Round(30/2)); for i:=0 to 20 do line(x+Round(30Cos(Pi/4+Pi/20i)),y-Round(30Sin(Pi/4+Pi/20i)), x+Round(40Cos(Pi/4+Pi/20i)),y-Round(40Sin(Pi/4+Pi/20i))); 3. В раздел "после первой паузы" добавить: Код: circle(x+5+15,y-5-10,6); circle(x+5+34,y-5,4); line(x+5,y-5,x+5+Round(30Sqrt(3)/2),y-5+Round(30/2)); for i:=0 to 20 do line(x+5+Round(30Cos(Pi/4+Pi/20i)),y-5-Round(30Sin(Pi/4+Pi/20i)), x+5+Round(40Cos(Pi/4+Pi/20i)),y-5-Round(40Sin(Pi/4+Pi/20i)));

27.11.2014, 01:18
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваш топик на эту тему не единственный, вот похожие Нужна помощь с VBA Нужна помощь С++ Нужна помощь

27.11.2014, 17:30	#3 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Владимир - вы истинный художник )))

27.11.2014, 20:53	#4 (permalink)
artxdf Новичок Регистрация: 25.11.2014 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 60	Vladimir_S Благодарю!)))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070