Напишите в турбо паскале движение объекта, квадрата пожалуйста! не очень сложно для...

Question

Напишите в турбо паскале движение объекта, квадрата пожалуйста! не очень сложно для класса 6-8

Answer 1

Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end; 
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do      Go (1,0);<br>while y<=350 do      Go (0,1);<br>while x>=150 do      Go (-1,0);
while y>=150 do      Go (0,-1);
until keypressed;
end.

Так сойдет? :)

Comments

Сейчас взгляну :)

---

var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
begin
lockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);<br>while y<=350 do Go (0,1);<br>while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
end.

Вот так например ученик твоего уровня сделает)

---

Можешь сказать, что немного попросил помощи :3

---

Это разрешается :)

---

Мы же не Энштейны

---

Да не за что :3