|
Процедуры с
несколькими параметрами:
Процедуры могут иметь несколько параметров
одновременно. Для определения такой процедуры
необходимо последовательно перечислить не одно,
а несколько имен ( не забывать перед каждым
именем переменной ":" ).
Например, зададим
процедуру изображения прямоугольника, принимая
за переменные :А - высоту, :В - ширину
ТО ПРЯМОУГ :A :B
REPEAT 2
[ FORWARD :A
RIGHT 90
FORWARD :B
RIGHT 90 ]
END
ПРЯМОУГ 10 30
ПРЯМОУГ 30 10
Если "ч" задать
команду ПРЯМОУГОЛЬНИК 10 30, то она нарисует
прямоугольник со сторонами 10 и 30 "ч" шагов, а
если задать ПРЯМОУГОЛЬНИК 30 10, то "ч"
нарисует прямоугольник, но стороны поменяются.
Итак, переменные
сохранили свои имена, а значения мы им присвоили
другие.
Зная формулу рисования
многоугольника, запишем процедуру
многоугольника с параметрами:
REPEAT
: n
[ FORWARD : a
RIGHT 360/:n ]
Где: n - количество сторон
в многоугольнике. |
ТО МНОГОУГОЛЬНИК :N :A
REPEAT :N
[ FORWARD :A
RIGHT 360/:N ]
END
Теперь зададим команды изображения 3-угольника,
5-угольника, 8-угольника, 36-угольника со сторонами
40, 20, 10, 2 соответственно.
|
|
