Задать вопрос Регистрация
Помочь другим

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

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

Ответы 1

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

     

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

    Ввод(M);

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

     

    Всё!

     

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

     

    Функция F(M)

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

             Возврат(0);

        КонецЕсли;

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

             Возврат(1);

        Иначе

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

        КонецЕсли;

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

     

     

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

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

    F(20)=6765

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years