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.

Answer 2

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

Answer 3

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);

Answer 4

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.

Answer 5

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

Answer 6

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