Ооочень прошу, помогите!   Составить в QBasic программу, печатающую ряд Фибоначчи, где каждое последующее число равно сумме двух предыдущих. 1,1,2,3,5,8,...n      пусть m=20

Ооочень прошу, помогите!   Составить в QBasic программу, печатающую ряд Фибоначчи, где каждое последующее число равно сумме двух предыдущих. 1,1,2,3,5,8,...n      пусть m=20
Гость
Ответ(ы) на вопрос:
Гость
Не знаю, поддерживает ли Бейсик рекурсию, но решение с рекурсией очень красивое, вот оно   Основная программа Ввод(M); Сообщить(F(M));   Всё!   Подпрограмма вычисления M-того числа Фибоначчи (рекурсивная!)   Функция F(M)     Если M<1 Тогда          Возврат(0);     КонецЕсли;     Если M<3 тогда          Возврат(1);     Иначе          Возврат(F(M-2)+F(M-1));     КонецЕсли; КонецФункции     Проверил(не на бейсике), работает. Достаточно быстро посчитала F(20)=6765  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы