КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ! uses...

Question

КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ!
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.

Answer 1

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

Comments

uses graphABC;
var i, n:integer;
begin
setwindowsize(900,500);
setbrushcolor(clGray);
for i:=1 to 5 do
begin
line(150+100,200,200+100,250);
line(200+100,250,300+100,250);
line(300+100,250,350+100,200);
line(350+100,200,150+100,200);
line(250+100,90,250+100,200);
Floodfill(215,225,clBrown);

---

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

---

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

---

uses graphABC;
var i, n, x, y, z:integer;
begin
setwindowsize(900,500);
setbrushcolor(clGray);
writeln('Введите n, x');
readln(n,x);
for i:=1 to n do
begin
line(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 добавить, везде везде.

---

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