igorich1376

sdam_gia_58473

Aug 8th, 2024 (edited)
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 2.39 KB | None | 0 0
  1. ## // Тип 6 № 58473 (сдам гиа)
  2. uses turtle,graphWPF;
  3. // переменные
  4. var x := ReadInteger('Введите х:');
  5. SetMathematicCoords(-100, 100,true);
  6. // кружочки
  7. Brush.Color := Colors.Red;
  8.   for var i := -50 to 50 do
  9.     for var j := -50 to 50 do
  10.       circle(i, j, 0.08);
  11. //
  12. ToPoint(0,0);
  13. Turn(-90); // обязательная команда!
  14. Down; // обязательная команда!
  15. //
  16. { ///////////// задание ////////////////////
  17. Исполнитель Черепаха передвигается по плоскости и оставляет след в виде линии.
  18. Черепаха может выполнять две команды: Вперёд n (n  — число) и Направо m (m  — число).
  19. По команде Вперёд n Черепаха перемещается вперёд на n единиц.
  20. По команде Направо m Черепаха поворачивается на месте на m градусов по часовой стрелке,
  21. при этом соответственно меняется направление дальнейшего движения.
  22. В начальный момент Черепаха находится в начале координат и направлена вверх (вдоль положительного направления оси ординат).
  23. Запись Повтори k [Команда1 Команда2 … КомандаS] означает, что заданная последовательность из S команд повторится k раз.
  24. Черепаха выполнила следующую программу (x в тексте программы  — некоторое натуральное число):
  25. Повтори 5 [Вперёд x Направо 90 Вперёд 3].
  26. Определите, при каком наименьшем натуральном x количество точек с целочисленными координатами внутри области,
  27. ограниченной линией, полученной при выполнении данной программы, включая точки, лежащие на линии, окажется больше 400.
  28. } //////////////////////////////////////////
  29. //
  30. loop 5 do
  31.   begin
  32.     Forw(x);Turn(90);Forw(3);
  33.   end;
  34.  
  35. // Ответ: 17
Advertisement
Add Comment
Please, Sign In to add comment