Данная программа рисует на экране два квадрата с помощью черепашки. Первая пара команд готовит черепашку к работе. Затем, последовательно повторяя команды мы рисуем линии одинаковой длины и выполняем повороты на 90 градусов так, чтобы получился квадрат со стороной 200 точек. Затем разворачиваем черепашку и уводим её в сторону от готового квадрата. Теперь, повторяя ту же последовательность команд, что и в первой части, рисуем квадрат меньшего размера.
Вы можете скопировать указанный ниже код программы в IDE MS Small Basic и запустить:
Turtle.Show() ' показываем черепашку на экране
Turtle.PenDown() ' опускаем перо для включения режима рисования
' рисуем большой квадрат
Turtle.Move(200) ' идем вперед на 200 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(200) ' идем вперед на 200 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(200) ' идем вперед на 200 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(200)
Turtle.Hide() ' скрываем черепашку
Turtle.PenUp() ' поднимаем перо - выключаем режим рисования
' разворачиваемся
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.TurnRight() ' поворачиваем направо на 90 градусов - в итоге разворачиваем черепашку на 180 градусов
' уходим в сторону от нарисованного квадрата
Turtle.Move(400) ' идем вперед на 400 точек
Turtle.TurnLeft() ' поворачиваем налеаво на 90 градусов
Turtle.Show() ' показываем черепашку на экране
Turtle.PenDown() ' опускаем перо для включения режима рисования
' рисуем малый квадрат
Turtle.Move(100) ' идем вперед на 100 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(100) ' идем вперед на 100 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(100) ' идем вперед на 100 точек
Turtle.TurnRight() ' поворачиваем направо на 90 градусов
Turtle.Move(100) ' идем вперед на 100 точек
Turtle.Hide() ' скрываем черепашку
Поделиться: