сместиться в точку (23,23)
опустить перо
сместиться на вектор (0,7)
сместиться на вектор (7,0)
сместиться на вектор (0,-7)
сместиться на вектор (-7,0)
Объяснение:
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор ( ?,7) уже указано, что мы смещаемся на 7 единиц по оси y, то смещение по оси x должно быть равно 0. (Рисуем строго вверх, т.к. углы квадрата 90°)
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор (?,0) уже указано, что мы смещаемся на 0 единиц по оси y, то смещение по оси x должно быть равно 7. (Рисуем строго вправо, т.к. углы квадрата 90°)
Т.к. сторона квадрата 7 единиц и в команде сместиться на вектор (0,?) уже указано, что мы смещаемся на 0 единиц по оси x, то смещение по оси y должно быть равно -7. (Рисуем строго вниз, т.к. углы квадрата 90° и вверх мы уже рисовали)
При движении по оси x вправо и по оси y вверх координаты команды сместиться на вектор - положительные.
При движении по оси x влево и по оси y вниз координаты команды сместиться на вектор - отрицательные.
Program DetkaKonfetka;
uses Drawman;
begin
Field(14,8);
ToPoint (1,1);
PenDown;
OnVector(1,4);
OnVector(4,4);
OnVector(4,1);
OnVector(1,1);
PenUp;
ToPoint (3,3);
PenDown;
OnVector(3,6);
OnVector(6,6);
OnVector(6,3);
OnVector(3,3);
PenUp;
ToPoint (5,5);
PenDown;
OnVector(5,8);
OnVector(8,8);
OnVector(8,5);
OnVector(5,5);
PenUp;
ToPoint (7,6);
PenDown;
OnVector(6,10);
OnVector(10,3);
OnVector(7,3);
OnVector(7,6);
PenUp;
ToPoint (9,4);
PenDown;
OnVector(12,4);
OnVector(12,1);
OnVector(9,1);
OnVector(9,4);
PenDown;
ToPoint(0,0);
End.
