Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, ...
Viết chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n?

Tự viết phần còn lại nhé, đây là phần chính

Code:

i:=1;
A[0]:=0;
A[1]:=1;
while A[i]<n do
  begin
        Write(A[i]:8);
        i:=i+1;
        A[i]:=A[i-2]+A[i-1];
  end;

zeus1471996 đã viết:

Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, ...
Viết chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n?

var n:longint;
function fibo(n):longint;
begin
if n<3 then fibo:=1
else fibo:=fibo(n-1)+fibo(n-2)
end;
begin
write('Ban hay nhap so n: ');readln(n);
for i:=1 n-1 do writeln('Fibo[',i,'] = ',fibo(i));
readln
end.

mikiramper_snowstorm96 đã viết:

zeus1471996 đã viết:

Dãy Fibonacy có hai phần tử đầu là 1, 1. Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21, ...
Viết chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n?

var n:longint;
function fibo(n):longint;
begin
if n<3 then fibo:=1
else fibo:=fibo(n-1)+fibo(n-2)
end;
begin
write('Ban hay nhap so n: ');readln(n);
for i:=1 n-1 do writeln('Fibo[',i,'] = ',fibo(i));
readln
end.

Đệ quy kiểu này đâu có đúng theo đề đâu.

var n:longint;
function fibo(n):longint;
begin
if n<3 then fibo:=1
else fibo:=fibo(n-1)+fibo(n-2)
end;
begin
write('Ban hay nhap so n: ');readln(n);
i:=1;
while fibo(i)<n do
begin
write('Fibo[',i,']= ',Fibo(i));
inc(i);
end;
readln
end.