Question

Ооочень прошу, помогите!  

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

Answer 1

Не знаю, поддерживает ли Бейсик рекурсию, но решение с рекурсией очень красивое, вот оно

 

Основная программа

Ввод(M);

Сообщить(F(M));

 

Всё!

 

Подпрограмма вычисления M-того числа Фибоначчи (рекурсивная!)

 

Функция F(M)

    Если M<1 Тогда

         Возврат(0);

    КонецЕсли;

    Если M<3 тогда

         Возврат(1);

    Иначе

         Возврат(F(M-2)+F(M-1));

    КонецЕсли;

КонецФункции

 

 

Проверил(не на бейсике), работает.

Достаточно быстро посчитала

F(20)=6765