Рассмотрим функцию GetPixel(x,y) в паскале – очень важную в графике Паскаля для работы с точками (пикселями).
Объявление:
Function GetPixel(X, Y : Integer) : Word;
Замечания:
Возвращает цвет пикселя в точке (X, Y).
Ограничения:
Нужно быть в графическом режиме uses Graph;
Пример программы:
var Gd, Gm : SmallInt; PixelColor : Word; begin Gd := Detect; InitGraph(Gd, Gm, ''); if GraphResult grOk then Halt(1); PixelColor := GetPixel(10, 10); if PixelColor = 0 then PutPixel(10, 10, GetMaxColor); ReadLn; CloseGraph; end. |
- Организовать прямолинейное движение объекта (точки) с реакцией на преграду (окрашенную точку), оформленную в виде процедуры
- Организовать хаотическое движение объекта (точки) с реакцией на преграду (окрашенную точку), оформленную в виде процедуры
- Организовать прямолинейное движение объекта (точки) с реакцией на преграду (окрашенную точку), оформленную в виде процедуры, изменяющее направление движение на случайный угол после столкновения с преградой.
Удачи!