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

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

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

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

Листинг программы

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.

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

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

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

12 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы