Question

Составить программу C ПОМОЩЬЮ ФУНКЦИИ(ПАСКАЛЬ), вычисляющую и выводящую 10 первых членов последовательности Фибоначчи

Answer 1

Ответ:

function FibNum(a:longint):longint;

begin

   if a <= 2 then FibNum:=1

   else FibNum:=FibNum(a-1)+FibNum(a-2)

end;

var

i:integer;

begin

   for i:=1 to 10 do write(FibNum(i), ' ')

end.

Вывод программы:

1 1 2 3 5 8 13 21 34 55

Answer 2

Программа на языке Паскаль для вычисления и вывода первых 10 членов последовательности Фибоначчи может выглядеть следующим образом:

pascalCopy code
program FibonacciSequence;

var
  i, n: integer;
  fib1, fib2, nextFib: integer;

procedure PrintFibonacci(fib: integer);
begin
  writeln(fib);
end;

begin
  fib1 := 0;
  fib2 := 1;
  
  writeln('Первые 10 членов последовательности Фибоначчи:');
  PrintFibonacci(fib1);
  PrintFibonacci(fib2);

  for i := 3 to 10 do
  begin
    nextFib := fib1 + fib2;
    PrintFibonacci(nextFib);
    fib1 := fib2;
    fib2 := nextFib;
  end;
end.

Эта программа начинает с двух начальных членов последовательности (0 и 1) и затем с помощью цикла for вычисляет и выводит следующие 8 членов последовательности.