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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. В данном коде описывается класс rect, который представляет прямоугольник на экране. У этого класса есть четыре переменные: x, y, w и h, которые хранят координаты центра прямоугольника и его ширину и высоту соответственно.
  2. Конструктор класса rect инициализирует эти переменные значениями, переданными при создании объекта.
  3. Метод show отображает прямоугольник на экране, устанавливая цвет пера в цвет прямоугольника.
  4. Метод move смещает прямоугольник на заданное количество единиц по горизонтали. Он вызывает метод show, чтобы обновить отображение прямоугольника на экране.
  5. Код использует функцию setpencolor для установки цвета пера в цвет, заданный переменной color.
  6. Функция rectangle используется для рисования прямоугольника на экране. Она принимает четыре аргумента: координаты верхнего левого угла, нижнего правого угла и высоту прямоугольника.
  7. Аргументы x-w div 2, y-h div 2, x+w div 2 и y+h div 2 представляют координаты верхнего левого угла, нижнего правого угла и высоту прямоугольника соответственно.
  8. В данном случае прямоугольник рисуется зеленым цветом.

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы