Question

С клавиатуры вводится число. Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Вычисление ряда организовать в функцию. Например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел ряда Фибоначчи: 1 2 3 5 8 13. Программа должна быть написана на Pascal.

Answer 1

function FibN(n: integer): List<Biginteger>;

begin

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

 result := Lst(Seq(f1, f2));

 for var i := 3 to n do

 begin

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

   result.Add(f2)

 end;

end;

begin

 FibN(ReadInteger()).Println

end.

Answer 2

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

Вот код программы на Pascal:

pascalCopy code
program FibonacciSeries;

// Функция для вычисления n-го числа Фибоначчи
function Fibonacci(n: Integer): Integer;
begin
  if (n <= 0) then
    Result := 0
  else if (n = 1) then
    Result := 1
  else
    Result := Fibonacci(n - 1) + Fibonacci(n - 2);
end;

var
  n, i: Integer;

begin
  Write('Введите количество элементов ряда Фибоначчи: ');
  ReadLn(n);

  if (n <= 0) then
  begin
    WriteLn('Количество элементов должно быть больше нуля.');
    Exit;
  end;

  WriteLn('Первые ', n, ' элементов ряда Фибоначчи:');
  for i := 1 to n do
  begin
    Write(Fibonacci(i), ' ');
  end;

  WriteLn; // Переход на новую строку
end.

Пользователь вводит число, например, 6. Программа затем выводит первые 6 чисел ряда Фибоначчи: 1 1 2 3 5 8.