Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ## // Тип 6 № 58473 (сдам гиа)
- uses turtle,graphWPF;
- // переменные
- var x := ReadInteger('Введите х:');
- SetMathematicCoords(-100, 100,true);
- // кружочки
- Brush.Color := Colors.Red;
- for var i := -50 to 50 do
- for var j := -50 to 50 do
- circle(i, j, 0.08);
- //
- ToPoint(0,0);
- Turn(-90); // обязательная команда!
- Down; // обязательная команда!
- //
- { ///////////// задание ////////////////////
- Исполнитель Черепаха передвигается по плоскости и оставляет след в виде линии.
- Черепаха может выполнять две команды: Вперёд n (n — число) и Направо m (m — число).
- По команде Вперёд n Черепаха перемещается вперёд на n единиц.
- По команде Направо m Черепаха поворачивается на месте на m градусов по часовой стрелке,
- при этом соответственно меняется направление дальнейшего движения.
- В начальный момент Черепаха находится в начале координат и направлена вверх (вдоль положительного направления оси ординат).
- Запись Повтори k [Команда1 Команда2 … КомандаS] означает, что заданная последовательность из S команд повторится k раз.
- Черепаха выполнила следующую программу (x в тексте программы — некоторое натуральное число):
- Повтори 5 [Вперёд x Направо 90 Вперёд 3].
- Определите, при каком наименьшем натуральном x количество точек с целочисленными координатами внутри области,
- ограниченной линией, полученной при выполнении данной программы, включая точки, лежащие на линии, окажется больше 400.
- } //////////////////////////////////////////
- //
- loop 5 do
- begin
- Forw(x);Turn(90);Forw(3);
- end;
- // Ответ: 17
Advertisement
Add Comment
Please, Sign In to add comment