Tin học Nhập và in ra fibonaci

[Trần Nhật Minh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

bài 1: nhập vào n và in ra các số fibonaci nhỏ hơn n
bài 2: nhập n và in ra 10 số fibonaci đầu tiên
VD: 1 1 2 3 5 8 13 21 ... đến 10 số

 

[Trần Nhật Minh]

Helppppppp

 

[tungvuive123]

uses crt;
var j,i,m,a,b,t:longint;

{----------------------}

Function kt(n:longint):boolean;
var i,d:integer;
begin
kt:=false;
d:=0;
For i:=1 to n do
if n mod i=0 then inc(d);
if d=2 then kt:=true;
end;

{----------------------}

begin
clrscr;
Write('Nhap m= ');
readln(m);
a:=0;
b:=1;
Repeat
a:=a+b;
b:=a+b;
Until (a>=m) and (b>=m);

if a<b then begin t:=a;a:=b;b:=t;end;

Repeat
a:=a-b;
b:=b-a;
Until ( (kt(a)) and (a<m)) or ( (kt(b)) and (b<m) );
If a>b then writeln(a);
if b>a then writeln(b);

{----------------------}

readln
end.

 

[tungvuive123]

ok nha có gì like mình nhé

 

[Trần Nhật Minh]

uses crt;
var j,i,m,a,b,t:longint;

{----------------------}

Function kt(n:longint):boolean;
var i,d:integer;
begin
kt:=false;
d:=0;
For i:=1 to n do
if n mod i=0 then inc(d);
if d=2 then kt:=true;
end;

{----------------------}

begin
clrscr;
Write('Nhap m= ');
readln(m);
a:=0;
b:=1;
Repeat
a:=a+b;
b:=a+b;
Until (a>=m) and (b>=m);

if a<b then begin t:=a;a:=b;b:=t;end;

Repeat
a:=a-b;
b:=b-a;
Until ( (kt(a)) and (a<m)) or ( (kt(b)) and (b<m) );
If a>b then writeln(a);
if b>a then writeln(b);

{----------------------}

readln
end.

bai mấy đây ạ

 

[tungvuive123]

bài 1 đó đang nghĩ bài 2

 

[Trần Nhật Minh]

bài 1 đó đang nghĩ bài 2

thấy khó hiểu ntn ấy

 

[Trần Nhật Minh]

bài 1 đó đang nghĩ bài 2

hum qua học fibonaci nhập n kt xem có phải fibo ko thì ntn
var b,c,d,n:integer;
begin
write'Nhap n';
b:=0;
c:=1;
d:=1;
while d<n do
begin
b:=c;
c:=d;
d:=b+c;
end;
if n=d then wrrite'phai'
else 'ko'