КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ!
uses graphABC;
var i:integer;
begin
setwindowsize(900,500);
setbrushcolor(clGray);
line(150,200,200,250);
line(200,250,300,250);
line(300,250,350,200);
line(350,200,150,200);
line(250,90,250,200);
Floodfill(215,225,clBrown);
Line (250,90,290,140);
Line(290,140,250,170);
Floodfill(255,165,clRed);
circle(210,220,10);
circle(240,220,10);
circle(270,220,10);
Floodfill(400,100,clSkyBlue);
Line(0,250,900,250);
Floodfill(450,269,clNavy);
end.

В PascalAbc быстро всё, в Turbo можно сделать задержку с помощью delay(1000);

uses graphABC;var i, n, x, y, z:integer;beginsetwindowsize(900,500);setbrushcolor(clGray);writeln('Введите n, x');readln(n,x);for i:=1 to n dobeginline(150+x,200,200+x,250);line(200+x,250,300+x,250);line(300+x,250,350+x,200);line(350+x,200,150+x,200);line(250+x,90,250+x,200);Floodfill(215,225,clBrown);

Floodfill(215,225,clBrown);Line (250+x,90,290+x,140);Line(290+x,140,250+x,170);Floodfill(255,165,clRed);circle(210+x,220,10);circle(240+x,220,10);circle(270+x,220,10);//Floodfill(400,100,clSkyBlue);Line(0,250,900,250);Floodfill(450,269,clNavy);end;end.

Везде x добавить, везде везде.

оу, спасибо, но уже не надо было). Сама поняла, как сделать

Сделай циклfor i:=1 to n (добавь переменную) dobeginline(x+100,y, x1+100, y1)end;end.