سری فیبوناتچی در پاسکال

[somayeh_63]

سری فیبوناتچی در پاسکال

سلام به برنامه نویسای سایت
یه سوال بسیار حیاتی داشتم!
یه بنده خدایی ازم خواسته یه برنامه براش بنویسم با پاسکال منم مثلا اومدم کلاس بذارم گفتم باشه اما الان هر چی فکر میکنم پاسکال کلا یادم رفته. کسی هست در مورد این برنامه کمکم کنه؟

سری فیبوناتچی با این فرمول : اف به توان کا برابر است با اف به توان (کا -1) + اف به توان (کا - 2)
F به توان k = f به توان (k-1) + f به توان (k-2)

(وای به این میگن یه سوتی خیلی خیلی ضایع
ببخشید فرمول رو ننوشتم
بلد نبودم تو وورد چطوری توان بنویسم بنابراین فارسیشو نوشتم
امیدوارم متوجه شده باشید )
m, n رو از ورودی بگیره به طوریکه m>n باشه و
1- m, n و کلیه اعداد سری بین این دو رو بنویسه
2- k رو از ورودی بخونه و اولین k عدد فیبوناتچی بین m, n رو چاپ کنه
3- اعداد زوج و فرد بین m, n رو از همدیگه جدا کنه و تو سطرهای مجزا بنویسه
تا فردا نیاز دارم
کلی هم ابروم تو خطره

[somayeh_63]

اين همه ويزيتور اومده تو
چي ميشد يكيش جواب مارو ميداد؟؟؟؟؟؟؟؟؟

من خودم بعد از تفكرات فراوان يه قسمت كوچولوشو نوشتم
و فقط تونستم ام رو بگيرم و از يک تا امرو بنويسم
ديگه مخم نکشيد
برنامه اي که نوشتمو اينجا ميذارم شايد کسي بتونه کمکم کنه

( اين طوري که پيداس خودم بايد بنويسم)

[somayeh_63]

Program Fibo;
var
i,x,y,z,m:integer;
begin
x:=1;
y:=1;
writeln;
writeln;
writeln(' Enter m: ');
readln(m);
write(x:5 ,y:5);
for i:=1 to (m-2) do
begin
z:=x+y;
x:=y;
y:=z;
write(z:5);
end;
readln;
end.

[somayeh_63]

جدي جدي يعني كسي نيست كه راهنماييم كنه؟
پس اين چه تالار كامپيوتريه كه هيشكي پاسكال بلد نيست؟

[هدیه]

سلام ببين اين به كارت مياد.
برنامه ای که مجموع جملات سری فیبوناتچی را تا رسیدن به جمله ای بیش از n محاسبه کند. n ورودی است

program fibonanchi;

uses crt;
var help,current,next,sum,n:integer;

begin
current:=1;
next:=1;
sum:=2 ;
clrscr;
write('ta residan be bishtar az che jomlei mohasebe anjam shavad >= ');
readln(n);

repeat

help:=current+next;
sum:=help+sum;
current:=next;
next:=help;
until (help>=n);

write('sum = ');
write(sum);
write( 'last statement = ');
write(help);
readln;
end.
اميدوارم به دردتون بخوره.

[somayeh_63]

اخي چه عجب يكي جواب داد
ازتون ممنونم
اما مشكل من اينه كه:
مثلا سري فيبوناتچي اينا هستن
.... 21 13 8 5 3 2 1 1
ميخوام بگم مثلا اعداد بين عدد شماره ي سه و شش رو كه به ترتيب دو و هشت ميشن رو بنويس (m=6 , n=3)
برنامه اي که از اول سري تا عدد شماره ششم رو بنويسه رو درست کردم اما قسمت بعديشو نميتونم سر هم کنم
يعني از عدد شماره n ام تا عدد شماره m ام

نميدونم متوجه منظورم شديد يا نه!

[هدیه]

اگه منظورتونو درست متوجه شده باشم شما يه برنامه مي خواهيد كه سري فيبونانچي رو بين دو عدد ورودي نشان دهد .اگه اين منظورتونه اين ميشه

program fib2;
uses crt;
var
i,a,n,m:integer;
s : array [1..100] of integer;
begin

s[1]:=1;
write('please enter two number:');
readln(n);
readln(m);
s[2]:=1;
for i:=2 to m do

begin

s[i+1]:=s[i]+s[i-1];

end;

for i:=n to m do

begin

write(s[i]);
write(',');

end;
readln;
end.

[هدیه]

اگر هم بخواين يه عدد از ورودي بگيره و تا اون عدد سري رو نشان بده اي ميشه
program fib2;
uses crt;
var
i,a,n:integer;
s : array [1..100] of integer;
begin

s[1]:=1;
write('please enter a number:');
readln(n);
write(s[1]);
write(',');
s[2]:=1;
for i:=2 to n do

begin

s[i+1]:=s[i]+s[i-1];

write(s[i]);
write(',');
end;
readln;
end.

اميدوارم منظورتونو فهميده باشم و به جوابتون رسيده باشيد.

[somayeh_63]

دست شما درد نكنه هديه جان
واقعا عالي بود
من كه مخم تركيد
به جواب هم رسيدم كلي هوارتا دستتون درد نكنه
فقط اون فرموله رو نفهميدم چي به چيه
به هر حال بازم ازتون ممنونم

راستي يه سوال نه يعني فضولي
شما دختريد يا پسر؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!


45 نفر از تاپيك بازديد كردن چرا هيشكي هيچي ننوشته پس؟

[هدیه]

سلام خواهش مي كنم قابل نداشت.
در ضمن فكر كنم هديه فقط اسم دختر باشه نه؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!! !!!