КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ! 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...
КАК СДЕЛАТЬ, ЧТОБЫ КОРАБЛИК ДВИГАЛСЯ ВПРАВО?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ!
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.
Гость
Ответ(ы) на вопрос:
ГостьСделай цикл
for i:=1 to n (добавь переменную) do
begin
line(x+100,y, x1+100, y1)
end;
end.
Не нашли ответ?
Похожие вопросы