Помогите пожалуйста создать анимацию робота в паскале.

[I_R_I_A_N_A]

program robot;
uses crt,graph;
var gd,gm:integer;
Procedure robot(x,y,m:integer);
begin
setcolor(9);setfillstyle(1,11);bar(x-4*m,y+5*m,x+4*m,y+5*m);
setcolor(9);setfillstyle(1,11);bar(x-2*m,y-5*m,x-2*m,y-6*m);
setcolor(9);setfillstyle(1,11);bar(x+2*m,y-5*m,x+2*m,y-6*m);
setcolor(12);setfillstyle(1,4); fillellipse(x-1,5*m,y-11*m,0,5*m,0,5*m);
setcolor(12);setfillstyle(1,4); fillellipse(x+1,5*m,y-11*m,0,5*m,0,5*m);
setcolor(5);setfillstyle(6,7); line(x-4*m,y-5*m,x-7*m,y+m);floodfill(
setcolor(5) ;setfillstyle(6,7); line(x+4*m,y-5*m,x+7*m,y+m);floodfill(
setcolor(5);setfillstyle(1,3); bar(x-3*m,y+5*m,x-m,y+10*m);
setcolor(5);setfillstyle(1,3); bar(x+m,y+5*m,x+3*m,y+10*m);
setcolor(5);setfillstyle(1,3); line(x-m,y-8*m,x=m,y-7*m);floodfill(
setcolor(5);setfillstyle(1,3); line(x=m,y-7*m,x+m,y-8*m);floodfill(
setcolor(5);setfillstyle(1,3);bar(x-4*m,y-10*m,x-3*m,y-7*m);
setcolor(5);setfillstyle(1,3);bar(x+4*m,y-10*m,x+3*m,y-7*m);
end;
x:=180;
y:=280;
m:=10;
begin
Repeat
robot(x,y,m)
Delay(1000);
x:=x+2;
ClearDevice;
Until (x<0);
closegraph;
end.

Я создала программу,но уверена,что многое там неправильно сделано.Мне надо создать анимацию робота,который движется по экрану в любом направлении.Обязательно закрашивание,цвет карандаша..Помогите пожалуйста,буду вам очень благодарна.

[Serge_Bliznykov]

такое впечатление, что код прогнали через распознавалку.
Он почти нормальный, но кое-где косяки.
Но, теоретически, его можно довести до ума.
Какой у Вас Паскаль?
Вы этот код самостоятельно писали?
Как должна происходить анимация? (в вашем код робот перемещается слева направо по горизонтали).
Что именно у Вас не работает?

[I_R_I_A_N_A]

У меня Free Pascal IDE.Да он так должен передвигаться.Да этот код я весь сама писала,но сама не знаю как я так смогла.С программированием у меня не очень.Я не знаю,у меня программа не проходит,различные ошибки.Даже не знаю как вам объяснить.

[Serge_Bliznykov]

Сообщение от I_R_I_A_N_A

У меня Free Pascal IDE.

О. Это уже определённость!

Сообщение от I_R_I_A_N_A

Да он так должен передвигаться.

Ну, значит, это Вы написали правильно.

Сообщение от I_R_I_A_N_A

Да этот код я весь сама писала,но сама не знаю как я так смогла.С программированием у меня не очень.

Ну, если Вы не пытаетесь обмануть нас(я про форумчан) и себя, тогда всё у Вас получится!

Вопрос к Вам такой (раз Вы сами писали, должны знать, ДЛЯ чего Вы это написали!):

etcolor(5);setfillstyle(6,7); line(x-4*m,y-5*m,x-7*m,y+m);floodfill(
setcolor(5) ;setfillstyle(6,7); line(x+4*m,y-5*m,x+7*m,y+m);floodfill(

Для чего Вы написали floodfill(? Что Вы пытались сделать с помощью этого оператора?!


для затравки попробуйте такой код:

program AnimROB;
uses crt, graph;
var grDriver, grMode: integer;

var x, y, m: integer;

procedure robot(x, y, m: integer);
begin
  setcolor(9); setfillstyle(1, 11); bar(x - 4 * m, y + 5 * m, x + 4 * m, y + 5 * m);
  setcolor(9); setfillstyle(1, 11); bar(x - 2 * m, y - 5 * m, x - 2 * m, y - 6 * m);
  setcolor(9); setfillstyle(1, 11); bar(x + 2 * m, y - 5 * m, x + 2 * m, y - 6 * m);
  setcolor(12); setfillstyle(1, 4); fillellipse(trunc(x - 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
  setcolor(12); setfillstyle(1, 4); fillellipse(trunc(x + 1.5 * m), trunc(y - 11 * m), trunc(0.5 * m), trunc(0.5 * m));
  setcolor(5); setfillstyle(6, 7); line(x - 4 * m, y - 5 * m, x - 7 * m, y + m);
{floodfill( }
  setcolor(5); setfillstyle(6, 7); line(x + 4 * m, y - 5 * m, x + 7 * m, y + m); {floodfill(}
  setcolor(5); setfillstyle(1, 3); bar(x - 3 * m, y + 5 * m, x - m, y + 10 * m);
  setcolor(5); setfillstyle(1, 3); bar(x + m, y + 5 * m, x + 3 * m, y + 10 * m);
  setcolor(5); setfillstyle(1, 3); line(x - m, trunc(y - 8 * m), x - m, trunc(y - 7 * m)); {floodfill(}
  setcolor(5); setfillstyle(1, 3); line(x - m, trunc(y - 7 * m), x + m, trunc(y - 8 * m)); {floodfill(}
  setcolor(5); setfillstyle(1, 3); bar(x - 4 * m, y - 10 * m, x - 3 * m, y - 7 * m);
  setcolor(5); setfillstyle(1, 3); bar(x + 4 * m, y - 10 * m, x + 3 * m, y - 7 * m);
end;


begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  x := 180;
  y := 280;
  m := 10;
  repeat
    robot(x, y, m);
    Delay(1000);
    x := x + 2;
    ClearDevice;
  until (x > 200);
  closegraph;
end.

[I_R_I_A_N_A]

floodfill я писала потому,что нам объясняли,если в программе будут линии,значит надо брать эту операцию,чтобы закрасить её до границы цветом c.Floodfill(x,y,c).

[I_R_I_A_N_A]

А вот у меня еще один вопрос,а что такое trunc?Мы такое не использовали.И можно ли это чем то заменить.Извините если задаю глупый вопрос.

[Poma][a]

А вот у меня еще один вопрос,а что такое trunc?

Trunc(10.5) = 10
Trunc(1.009) = 1
Trunc(1.99999) = 1
Trunc отбрасывает дробную часть..

Заменить?.. ну можно использовать преобразование типов.. что-то вида Integer(0.5*m)
Или другой вариант..
Trunc(0.5*m) = m div 2 (приблизительно)..
А при умножении и сложении с целыми числами Trunc вообще не нужен..
Удачи!

[I_R_I_A_N_A]

Большое вам спасибо!!!!!

[I_R_I_A_N_A]

А можно узнать,почему туловище не закрашивается и контур головы не виден,и так же голова не закрашивается.Извините за туповатые вопросы.

[I_R_I_A_N_A]

А можно спросить,как закрасить треугольник внутри,а то все время закрашивает все снаружи.Не понимаю принцип работы floodfill.