Question

Решите задачу на Паскале . Числа Фибоначчи определяются как а(0)=1, а(1)=1, а(i)= a(i-1)+a(i-2). Найти десятое число Фибоначчи .Найти : a)N-ое число Фибоначчи б)Сумму первых N чисел Фибоначчи

Answer 1

program FibonachiNums;

function FibN(n: integer): BigInteger;

begin

 var (f1, f2) := (BigInteger(1), BigInteger(1));

 for var i := 3 to n do

   (f1, f2) := (f2, f1 + f2);

 result := f2;

end;

function FibSumN(n: integer): BigInteger;

begin

 var (f1, f2) := (BigInteger(1), BigInteger(1));

 var Sum: BigInteger;

 

 if n = 0 then Sum := 0

 else Sum := 1;

 

 for var i := 2 to n do

 begin

   (f1, f2) := (f2, f1 + f2);

   Sum += f1;

 end;

 

 result := Sum

end;

begin

 Println('десятое число Фибоначчи:',FibN(10));

 

 var n := 100;

 Writeln($'{n}-е число Фибоначчи: ',FibN(n));

 

 Println($'Сумма первых {n} чисел Фибоначчи:',FibSumN(n))

 

end.

Answer 2

Для решения задачи на Паскале (в данном контексте, предполагается, что это означает решение с использованием программирования на языке Pascal), можно написать функцию, которая будет находить N-ое число Фибоначчи и сумму первых N чисел Фибоначчи.

Вот пример программы на Pascal для решения этой задачи:

pascalCopy code
program Fibonacci;

function FibonacciNumber(N: Integer): Integer;
begin
  if N = 0 then
    Result := 1
  else if N = 1 then
    Result := 1
  else
    Result := FibonacciNumber(N - 1) + FibonacciNumber(N - 2);
end;

function FibonacciSum(N: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 0 to N do
    Result := Result + FibonacciNumber(i);
end;

var
  N: Integer;
begin
  N := 10; // Задайте здесь значение N для которого хотите найти число Фибоначчи и сумму.
  WriteLn('N-ое число Фибоначчи: ', FibonacciNumber(N));
  WriteLn('Сумма первых ', N, ' чисел Фибоначчи: ', FibonacciSum(N));
end.

Программа выше определит функции FibonacciNumber, которая будет находить N-ое число Фибоначчи с использованием рекурсии, и FibonacciSum, которая будет находить сумму первых N чисел Фибоначчи с использованием цикла.

После запуска программы с заданным значением N (в данном примере N равно 10), она выведет результаты - N-ое число Фибоначчи и сумму первых N чисел Фибоначчи.