برنامه پاسکال (32)

 

۳۲) برنامه ای که عدد N را از ورودی خوانده N جمله اول دنباله فیبوناچی را چاپ کند :

program test;

var

a ,b ,c ,i ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

for i:=1 to n do

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.

 

برنامه پاسکال (31)

 

۳۱) برنامه ای که عدد N را از ورودی خوانده جملات دنباله فیبوناچی کمتر از N را چاپ کند :

program test;

var

a ,b ,c ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

while (c

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.