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