Числа Фибоначчи в Logo

Пример для версий UCBLogo 6.0

Используется рекурсивное определение чисел Фибоначчи. В примере определяются две функции — fibonacci для вычисления значения N-ого числа Фибоначчи и print_fibonacci, которая накапливает числа в строке и выводит их на печать.

to fibonacci :N
   ifelse :N < 3 [output 1] [output sum fibonacci :N - 1 fibonacci :N - 2]
end

to print_fibonacci :i :N
   make "str fibonacci :i
   make "i sum :i 1
   make "comma ",
   repeat :N - :i + 1 [make "str (word :str :comma fibonacci :i)
                      make "i sum :i 1]
   make "str word str ",...
   print str
end

print_fibonacci 1 16

Числа Фибоначчи в Logo

Комментарии