Transcript Числа Фібоначчі

Числа Фібоначчі
112358…
Числа Фібоначчі
Program Fibonachi_1;
var
I,N:Integer;
A:Array[1..46] of integer;
begin
A[1]:=1;
A[2]:=1;
write ( ' N:= ' ) ;
readln(N);
for i:=3 to N do
begin
A[i]:=A[i-1]+A[i-2] ;
writeln(A[i])
end;
end.
Числа Фібоначчі
Program Fibonachi_2;
var
I,N:Integer;
X,Y:integer;
begin
write('N:');
readln(N);
X:=1;
Y:=1;
for I:=3 to N do
begin
Y:=X+Y; X:=Y-X;
writeln(Y);
end;
end.
Задача «Заєць на східцях»
Угорі на східцях, що мають N сходинок,
знаходиться заєць, який розпочинає стрибати по них
донизу. Заєць може стрибнути на наступну
сходикку» через одну або через дві. Тобто якщо
заєць знаходиться на 10-й сходинці, то він може
переміститися на 9-ту, 8-му або 7-му. Обчислити
число всіх можливих «маршрутів» зайця з вершини
до землі.
Формат вхідних даних: одне число 0<N<37.
Формат вихідних даних: одне число — число всіх
можливих маршрутів.
Задача «Заєць на східцях»
Program Hear_l;
var
N:integer;
A:Array[1..46] of integer;
Function F(x:Integer):integer;
begin
if A[x]=0 then
A[x]:=F(x-1)+F(x-2)+F(x-3);
F:=A[X];
end;
begin
write(N:');
readln(N);
A[1]:=1;
A[2]:=2; A[3]:=4;
writeln(F(N))
end.
Задача «Заєць на східцях»
Program Hear_2;
var
і,n:Integer;
x,y,z:integer;
begin
write(' N:');
readln(n);
X:=1;
y:=2;
z:=4;
case n of
1:writeln(x);
2:writeln(y);
3:writeln(z);
else
begin
for і :=4 to n do
begin
Z:=x+y+z;
y:=z-x-y;
x:=z-x-y
end;
writeln(z);
end;
end;
End.