Перемещать прямоугольник по горизонтали с заданным шагом и задержкой в 1 сек - Pascal ABC

Формулировка задачи:

Программа в Pascal ABC. Программа должна состоять как минимум из двух частей - основной программы и модуля с описанием некоторых объектов - и работать на основе технологии объектно-ориентированного программирования. Перемещать прямоугольник по горизонтали с заданным шагом и задержкой в 1 сек. Помогите пожалуйста,буду очень признателен.

Код к задаче: «Перемещать прямоугольник по горизонтали с заданным шагом и задержкой в 1 сек - Pascal ABC»

textual
unit MyRect;
interface
uses graphABC;
type //описание объекта "Прямоугольник"
rect=class
     x,y: integer;//координаты центра объекта на экране
     w,h:integer;//ширина и высота
     color:integer;//цвет объекта
     constructor create(x1,y1,w1,h1:integer; color1:integer);//инициализация объекта
     procedure show;                                  //отображение объекта
     procedure move(dx: integer);                        //cмещение объекта на dx
     end;
implementation
constructor rect.create(x1,y1,w1,h1:integer; color1:integer);
 begin
   x:=x1; y:=y1;
   w:=w1; h:=h1;
   color:=color1;
 end;
procedure rect.show;
 begin
  setpencolor(color);
  rectangle(x-w div 2,y-h div 2,x+w div 2,y+h div 2) {нарисовать прям. заданным цветом}
 end;
procedure rect.move(dx:integer);
begin
x:=x+dx;//вычисление новой координаты
show;  //отобразить объект
end;
end.

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ