Решаем задачи Абрамян на Паскале. Proc 36

Proc36. Описать функцию Fib($$N$$) целого типа, вычисляющую $$N$$-й элемент последовательности чисел Фибоначчи $$F_K$$, которая описывается следующими формулами: $$F_1 = 1,F_2 = 1, F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$$ . Используя функцию Fib, найти пять чисел Фибоначчи с данными номерами $$N_1, N_2, …, N_5$$.

Решение:

program Proc35;

Function  Fib(N:Integer):Integer;
var
  i:integer;
  Fk,Fk1,Fk2 :Integer;
begin
  Fk1:=1;
  Fk2:=1;
  For i:=3  to N do
  begin
   Fk:=Fk2+Fk1;
   Fk2:=Fk1;
   Fk1:=Fk;
  end;
   Fib:=Fk;
end;

var
  N,i:Integer;

begin
 for i:=1 to 5 do
  begin
   Write('N :');
   Readln(N);
   Writeln( Fib(N) );
  end;
   Readln;
end.

program Proc35;

Function Fib(N:Integer):Integer;

var

i:integer;

Fk,Fk1,Fk2 :Integer;

begin

Fk1:=1;

Fk2:=1;

For i:=3 to N do

begin

Fk:=Fk2+Fk1;

Fk2:=Fk1;

Fk1:=Fk;

end;

Fib:=Fk;

end;

var

N,i:Integer;

begin

for i:=1 to 5 do

begin

Write('N :');

Readln(N);

Writeln( Fib(N) );

end;

Readln;

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 36

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ