Сумма 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.
Объяснение кода листинга программы
- В функции 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, выводится на экран.