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

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

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

سری فیبوناتچی با این فرمول : اف به توان کا برابر است با اف به توان (کا -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 رو از همدیگه جدا کنه و تو سطرهای مجزا بنویسه
تا فردا نیاز دارم
کلی هم ابروم تو خطره

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

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

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

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.

جدي جدي يعني كسي نيست كه راهنماييم كنه؟
پس اين چه تالار كامپيوتريه كه هيشكي پاسكال بلد نيست؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام ببين اين به كارت مياد.
برنامه ای که مجموع جملات سری فیبوناتچی را تا رسیدن به جمله ای بیش از 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.
اميدوارم به دردتون بخوره.

اخي چه عجب يكي جواب داد
ازتون ممنونم
اما مشكل من اينه كه:
مثلا سري فيبوناتچي اينا هستن
.... 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.

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

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

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


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

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

آخه هيچ دختري نديده بودم از اين وبلاگا داشته باشه
حسود نباشه و به بقيه كمك كنه
و ....
به هر حال خوشحالم از آشنايي با شما
دلم ميخواد چيزاي زيادي ازتون ياد بگيرم
خيلي ازتون خوشم اومده
هوارتا (ببخشيد اينجا ماچ نداره ماچتون كنم)

سلام.من برنامهای سری فیبوناتچی در c رو می خام کسی میتونه به من کمک کنه؟ (لطفا)

سلام.من برنامه ای در cمیخوام که اولین عدد دو رقمی سری فیبوناتچی رو حساب کنه(خواهش میکنم تا امشب بیشتر وقت ندارم):sad: :sad: :sad: :sad: :sad:

نقل قول:

---

نوشته شده توسط somayeh_63 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

خب شايد بلد نبودن :31:

دوست عزیزمن این برنامه رو توی c++ برات نوشتم چون خیلی وقته سراغ پاسکال نرفتم اصلا حسش نیست که تو پاسکال دوباره نویسی کنم
ولی اگه واقعا مشکل داری بگو تا این کار واست بکنم اصلا مشکل نیست اگه یکم دقت کنی می فهمی چی به چیه
بعقیه چیزهایی هم که نوشتید کاری نداره چند تا دستور if می خواد :11:

کد:

---

#include<iostream>
using namespace std;
int main()
{
        int n1,n2,n3,m,n;
        n1=1;
        n2=1;
        cout<<"please enter 2 number"<<endl;
        cin>>m>>n;
        if(m==1)
        {
                cout<<"1,1,";
                m=3;
        }
        if(m==2)
        {
                cout<<"1,";
                m=3;
        }
        for(int i=3;i<=m;i++)
        {
                n3=n1+n2;
                n1=n2;
                n2=n3;
        }
        cout<<n3;
        for(int j=m;j<n;j++)
        {
                n3=n1+n2;
                n1=n2;
                n2=n3;
               
                cout<<","<<n3;
        }
        cout<<endl;
        return 0;
}

---

اوووووووووه این تاپیک که مال سال 2006 هستش
دوستان مگه بی کارید که تاپیکای عهد بوق و میارید بیرون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]