Псевдографика, построение человечка,анимация конечностей Опции

[bakalava92]

Добрый день! Нужна помощь в решении такой задачи: Построить движущегося вправо,влево.. человечка с анимированными конечностями с помощью псевдографики, с использованием собственных процедур, никаких модулей кроме CRT использовать нельзя. Собственно не могу сделать руки, получается либо сделать их подвижными по оси Y, но по оси X они не двигаются, либо наоборот

Код для построения человечка написал:

uses CRT;
  var
   g,i:integer;


    procedure circle(Radius,Horizontal,Vertical:integer);
   var
     l,x,y:integer;
     begin
       for l:=0 to 360 do
        begin
          x:=round(Radius*sin(l)+Horizontal);
          y:=round(Radius*cos(l)+Vertical);
           GoToXY(x,y);
          write('*');
        end
     end;


  procedure HorizontalLine(y,b1,b2:integer);
 begin
   for g:=b1 to b2 do
    begin
    GoToXY(g,y);
    writeln('*');
    end
    end;


 procedure VerticalLine(x,b1,b2:integer);
 begin
   for g:=b1 to b2 do
   begin
   GoToXY(x,g);
   writeln('*');
   end
   end;


    begin
      clrscr;
          for i:=1 to 60 do
           begin
             textcolor(red);

               Circle(3,15+i,4);            {golova}

               Circle(1,19+i,11);           {pugovica1}
               Circle(1,19+i,14);           {pugovica2}

               HorizontalLine(9,8+i,22+i);  {tulovishe}
               HorizontalLine(16,8+i,22+i);

               VerticalLine(8+i,10,15);     {tulovishe}
               VerticalLine(22+i,10,15);
               VerticalLine(15+i,9,15);

               VerticalLine(15+i,8,14);     {sheya}

               VerticalLine(15+i,17,22);    {nogi}
               VerticalLine(11+i,17,22);
               VerticalLine(19+i,17,22);
               VerticalLine(17+i,22,24);
               VerticalLine(13+i,22,24);

               HorizontalLine(22,11+i,19+i);


             delay(50000);

              textcolor(black);

                Circle(3,15+i,4);           {golova}

                Circle(1,19+i,11);          {pugovica1}
                Circle(1,19+i,14);          {pugovica2}

                HorizontalLine(9,8+i,22+i); {tulovishe}
                HorizontalLine(16,8+i,22+i);

                VerticalLine(8+i,10,15);    {tulovishe}
                VerticalLine(22+i,10,15);
                VerticalLine(15+i,9,15);

                VerticalLine(15+i,6,14);    {sheya}

                VerticalLine(15+i,17,22);   {nogi}
                VerticalLine(11+i,17,22);
                VerticalLine(19+i,17,22);
                VerticalLine(17+i,22,24);
                VerticalLine(13+i,22,24);

                HorizontalLine(22,11+i,19+i);

           end;
        readln
    end.

--------------------------------------------------------------------------
Помогите пожалуйста приклеить к нему руки+еще чтобы двигались вправо и вверх вниз, вообщем что руками махал)) сам похоже уже не справлюсь

Тегами для подсветки кода пользуйся...

Сообщение отредактировано: volvo - 19.10.2009 14:08

[Lapp]

     until keypressed=true;

Почему не

     until ((keypressed=true)=true)=true;

- ?..
Тебе же написали:

1. достаточно просто написать

until keypressed

Ждешь, когда преподаватель скажет? ))