17. Обучим черепаху чистописанию

Черепаха все еще не научилась писать красиво. Когда вы учили ее писать слово МИР, вы сами делали свои первые шаги в программировании. Нечего удивляться, что черепаха писала из рук вон плохо. Теперь же можно улучшить ее почерк, объяснив ей, как пишется каждая буква. Это удобнее сделать с помощью процедур. (Мы убедились в этом, когда рисовали букву Ю.) При выполнении каждой процедуры черепаха будет писать соответствующую букву и подготавливаться к написанию следующей. Начнем с буквы М:

 



 ВЛЕВО 45 
 НАЗАД 20 
 БЕЗСЛЕДА 
 ВПРАВО 90 
 ВПЕРЕД 10 
 ВЛЕВО 90 
 СОСЛЕДОМ 
КОНЕЦ

Продолжим:

ЭТО и
 ВПЕРЕД 20 
 НАЗАД 20 
 ВПРАВО 45
 ВПЕРЕД 28
 ВЛЕВО 45
 НАЗАД 20 
 БЕЗСЛЕДА 
 ВПРАВО 90 
 ВПЕРЕД 10 
 ВЛЕВО 90 
 СОСЛЕДОМ 
КОНЕЦ

ЭТО Р
 ВПЕРЕД 10
 ПОВТОРИ 2 [ВПЕРЕД 10 ВПРАВО 90 ВПЕРЕД 20 ВПРАВО 90]
 НАЗАД 10
 БЕЗСЛЕДА	
 ВПРАВО 90	
 ВПЕРЕД 30	
 ВЛЕВО 90 
 СОСЛЕДОМ 
КОНЕЦ

Теперь уже легко научить ее писать слово МИР. Для этого напишем процедуру, которая использует уже готовые процедуры М, И и Р;

ЭТО МИР
 М
 И 
 Р
КОНЕЦ

Процедуру МИР можно записать и таким образом:

ЭТО МИР 
 МИР 
КОНЕЦ

Чтобы писать целые предложения, черепаха должна уметь отделять слова друг от друга.

ЭТО 
 ПРОБЕЛ 
 БЕЗСЛЕДА 
 ВПРАВО 90 
 ВПЕРЕД 30 
 ВЛЕВО 90 
 СОСЛЕДОМ 
КОНЕЦ

Если вы хотите, чтобы черепаха написала, например, лозунг МИРУ МИР!, можете воспользоваться следующей процедурой:

ЭТО ЛОЗУНГ 
 ГРАФИКА 
 БЕЗСЛЕДА 
 ДО -130°
 СОСЛЕДОМ
 МИР У ПРОБЕЛ МИР !
КОНЕЦ

Эта процедура использует две новые процедуры - У и !. Восклицательный знак - имя процедуры?! Не удивляйтесь - слова в Лого не всегда состоят из одних букв. Опишем новые процедуры:

ЭТО У
 ВПРАВО 45 
 ВПЕРЕД 28 
 НАЗАД 14
 ВЛЕВО 90 
 ВПЕРЕД 14 
 БЕЗСЛЕДА 
 НАЗАД 28 
 ВПРАВО 135 
 ВПЕРЕД 10 
 ВЛЕВО 90 
 СОСЛЕДОМ
КОНЕЦ

ЭТО !
 БЕЗСЛЕДА 
 ВПЕРЕД 10 
 СОСЛЕДОМ 
 ВПЕРЕД 10	
 БЕЗСЛЕДА	
 НАЗАД 20	
 СОСЛЕДОМ
КОНЕЦ

Черепаха уже готова написать лозунг:

ЛОЗУНГ

Вы, наверное, заметили, что, когда процедура использует другие процедуры, их можно описать до или после нее. Важно, чтобы все новые слова, участвующие в данной процедуре, были описаны прежде, чем вы зададите команду ее выполнения. Если бы вы случайно задали команду выполнения процедуры ЛОЗУНГ до описания процедуры У, компьютер спросил бы:

ЧТО ТАКОЕ У? - В СТРОКЕ 
 МИР У
НА УРОВНЕ 1 ПРОЦЕДУРЫ ЛОЗУНГ

Итак, пока черепаха овладевает первой грамотностью - учится писать, вы будете овладевать второй грамотностью - учиться программировать. Закончив урок о буквах, можно записать его под именем "КИРИЛЛИЦА.

СОХРАНИ "КИРИЛЛИЦА

1. Разделитесь на несколько групп. Пусть каждая группа создаст процедуры написания нескольких букв русского алфавита. Объедините все процедуры в файл и сохраните его под именем КИРИЛЛИЦА.
2. Действуя, как в упр. 1, создайте файл, содержащий буквы латинского алфавита.
3. Напишите процедуру вывода на экран первых 25 треугольных чисел. Формула вычисления n-то треугольного числа:
   
4. Начертите прямоугольный треугольник с длиной катетов 20 и 40 шагов.
5. Решите с помощью компьютера уравнение
   7х+ 10.101 = 135.3191.
   Запишите полученный результат с точностью до тысячных.
6. Задача-шутка. Каким образом при помощи тринадцати отрезков по 20 шагов черепаха может образовать метр? Начертите его.
7. Используя команду РАЗМЕР, начертите цилиндр (рис. 44).
   
   Рис. 44
   
   
8. Три путешественника отправились одновременно из города А в город Б, расстояние между которыми 24 км. Первый ехал на автомобиле, двигающемся со средней скоростью 60 км/ч, второй - на мотоцикле со средней скоростью 48 км/ч, а третий - на велосипеде со средней скоростью 18 км/ч. На каком расстоянии от города В будут находиться путешественники после 20 мин езды?
9. Постройте график зависимости пути, пройденного каждым путешественником из упр. 8, от времени. Используйте этот график для определения времени, необходимого каждому из них, чтобы доехать до города В. Расстояние измеряйте в километрах, а время - в минутах.
10. Продемонстрируйте на экране решение упр. 8, заставляя черепаху выполнять последовательно роль автомобиля, мотоцикла и велосипеда.
11. Подсчитайте сумму k+2 863 541 для всех целых чисел k в интервале от 135 672 до 135 682.
12. Начертите прямую l и квадрат ABCD с длиной стороны 35 шагов (рис. 45). Начертите квадрат A'B'C'D', который симметричен квадрату ABCD относительно прямой l.
    
    Рис. 45
    
    
13. Найдите радиус окружности, которая получается при выполнении процедуры

    ЭТО ОКРУЖНОСТЬ
     ПОВТОРИ 72 [ВПЕРЕД 1 ВПРАВО 5]
    КОНЕЦ
    
    

14. Начертите 5 концентрических окружностей.