Початок

Олівець(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 – координати, в які потрібно поставити приціл }