Олівець(1,0,255,0);
Пензель(1,0,255,0);
Прямокутник(0,0,250,250);
Xm:=20;
Ym:=20;
dX:=1;
dY:=2;
Повторювати
МішеньЛетить
докиНе Подія;
кінець.
Тепер уже без таких детальних пояснень пишемо програму керування прицілом. Зображуємо приціл у вигляді чорного хрестика, координати якого позначимо через Xp,Yp. Для спрощення не перевіряємо, чи приціл не вийшов за межі прямокутника:
Програма КеруємоПрицілом;
Змінна Xp,Yp : ціла;
i,j,k : ціла;
Процедура Приціл(X,Y:ціла);
{X,Y – координати, в які потрібно поставити приціл }