Pascal:

Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.

Question

Информатика

Ксения

29 мая, 13:27

Pascal:

Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.

+2

Ответы (2)

Знаете ответ на вопрос?

Селиван · Answer 1

Function Fib (n:integer) : integer;

begin

if n<3 then Fib:=1

else Fib:=Fib (n-1) + Fib (n-2)

end;

var

i, f, x:integer;

begin

Write ('X=') ; Read (x) ;

i:=1;

repeat

f:=Fib (i) ; Inc (i)

until f>x;

Writeln ('Число Фибоначчи, большее введенного: ', f)

end.

Пример

X=27

Число Фибоначчи, большее введенного: 34

Кируха · Answer 2

Var a1, a2, an, x:integer;

begin

write ('x = ') ;

readln (x) ;

a1:=1; a2:=1; an:=1;

while an<=x do

begin

an:=a1+a2;

a1:=a2;

a2:=an;

end;

writeln ('an = ', an) ;

end.

Пример:

x = 25

an = 34

Pascal:Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.

Pascal:

Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Определить член Фибоначчи, который больше заданного числа Х.