Ооочень прошу, помогите! Составить в 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
Не нашли ответ?
Похожие вопросы