Задача 4 Урок 20

Primary tabs

Submitted by jl8qy9kd_pro on Fri, 09/10/2021 - 18:25

Forums:

Задача 4 Урок 20

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

var N,b,a : integer;

function Num(N,b,a: integer) : integer;
var c: integer;
begin
  c := b;
  b := a + b;
  a := c;
  if ((a+b)<N) then
    begin
      write(a+b,' ');
      Num(N,b,a);
    end;
end;

begin
  readln(N);
  a := 0;
  write(a,' ');
  b := 1;
  write(b,' ');
  Num(N,b,a);
  readln;
end.
  • Log in to post comments
  • 2230 reads
vedro-compota's picture

vedro-compota

Sun, 10/03/2021 - 12:55

Сначала решим задачу 2 урока 20 (от 1 до N по возрастанию) http://fkn.ktu10.com/?q=node/13209

_____________
матфак вгу и остальная классика =)

vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 12:42

избавиться от глобальных переменных

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Sun, 10/17/2021 - 12:12 

var N :integer;

function num( a, b, N :integer):integer;
begin
  write(a, ' ');
  if(N > 1) then
    num(b, a+b, N-1) ;
end;

begin
  readln(N);
  num(0, 1, N);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:40

засчитано

_____________
матфак вгу и остальная классика =)