Uses CRT, Graph;
Type TPix = Object
x, y: Word;координаты точки
Procedure Init(a, b: Word);инициализация объекта:aиb –его начальные координаты
Procedure Show;появление объекта
Procedure Hide;скрытие объекта
Procedure Move(da, db: Word);перемещение объекта: daиdb –шаги по координатам
End;
Procedure TPix.Init;инициализация
Begin
x:=a; xиy –глобальные переменные
y:=b; aиb –входные переменные(формальные параметры) – начальные координаты объекта
End;
Procedure TPix.Show; появление
Begin
PutPixel(x,y,14);помещаем желтую точку по координатамxиy
End;
Procedure TPix.Hide; скрытие
Begin
PutPixel(x,y,1); помещаем синюю (цвет фона) точку по координатамxиy
End;
Procedure TPix.Move;перемещение
Begin
Hide;скрытие
x:=x + da;изменение координат
y:=y + db; xиy –глобальные переменные
daиdb –входные переменные(формальные параметры) – шаги по координатам
Show;появление
End;
Var x0, y0, dx, dy: Word;
driver, regim: Integer;
pixel: TPix; создаем экземпляр объекта – переменную pixel
Begin
driver:=detect;автоопределение графического драйвера
InitGraph(Driver,Regim,'C:\BP\BGI');инициализация графическогорежима
SetBkColor(1);цвет фона - синий
ClearDevice;очистка экрана
SetColor(14);цвет фигур - желтый
x0:=100; x0 и y0 – начальные координаты точки
y0:=150;
dx:=50; dx и dy – шаги по координатам
dy:=40;
pixel.Init(x0, y0); инициализация точки: задаем начальные координаты точки
pixel.Show; выводим точку на экран по заданным координатам
Delay(1000); пауза в 1 сек
Pixel.Move(dx, dy); перемещаем точкуна dx,dy
Delay(1000); пауза в 1 сек
Дата добавления: 2015-08-08; просмотров: 610;