Сумма n чисел Фибоначчи, начиная с заданного номера N - Pascal

Узнай цену своей работы

Формулировка задачи:

Составить программу, определяющую сумму n чисел Фибоначчи, начиная с заданного номера N. как?

Решение задачи: «Сумма n чисел Фибоначчи, начиная с заданного номера N»

textual
Листинг программы
function s_fib(n: longint): longint;
begin
  s_fib := round(exp((n + 2) * ln((1 + sqrt(5)) / 2)) / sqrt(5)) - 1
end;
 
var m, n, s: longint;
begin
  write('n = ');
  readln(m);
  write('N = ');
  readln(n);
  s := s_fib(n + m) - s_fib(n);
  write('S = ', s);
  readln
end.

Объяснение кода листинга программы

  1. В функции s_fib(n: longint) вычисляется сумма чисел Фибоначчи с номером n.
  2. Функция s_fib использует формулу для вычисления чисел Фибоначчи: s_fib := round(exp((n + 2) * ln((1 + sqrt(5)) / 2)) / sqrt(5)) - 1.
  3. В переменной m хранится число, а в переменной n - номер этого числа в последовательности Фибоначчи.
  4. После ввода чисел m и n с клавиатуры, значение переменной s вычисляется как разность суммы чисел Фибоначчи с номером n+m и суммой чисел Фибоначчи только с номером n.
  5. Результат вычислений, т.е. значение переменной s, выводится на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы