Рисование углов (KTurtle)

Пользователь вводит значение двух углов (например, 100 и 95 градусов), и они рисуются на холсте.

Особенности программы:

  • Первая сторона первого угла имеет произвольное направление.
  • Углы заштриховываются разным цветом.
  • Находится сумма углов.

Алгоритм:

  1. Определяем случайное направление первого луча.
  2. Рисуем линию и возвращаемся в исходную точку.
  3. Запрашиваем у пользователя величину первого угла.
  4. Постепенно поворачиваем на 5 градусов, рисуя короткие линии, пока не достигнем величины заданного угла.
  5. Рисуем вторую сторону угла.
  6. Запрашиваем величину второго угла. Далее аналогично предыдущим двум пунктам.
  7. Считаем сумму углов и выводим ее на экран.

reset
$r = random 0, 360
direction $r
 
forward 100
go 200, 200
 
$angle1 = ask "Введите величину первого угла (в градусах)"
pencolor 0,100,200
$i = 0
while $i+5 < $angle1 {
  turnright 5
  forward 20
  go 200, 200
  $i = $i + 5
}
 
pencolor 0,0,0
direction $r
turnright $angle1
forward 100
go 200, 200
 
$angle2 = ask "Введите величину второго угла (в градусах)"
pencolor 0,200,100
$i = 0
while $i+5 < $angle2 {
  turnright 5
  forward 20
  go 200, 200
  $i = $i + 5
}
 
pencolor 0,0,0
direction $r+$angle1
turnright $angle2
forward 100
 
go 150, 330
direction 0
print $angle1 + " + " + $angle2 + " = " + ($angle1 + $angle2)
 
go 400,400

Рисование черепахой двух углов

Прикрепленный файлРазмер
angle.turtle856 байтов