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

فرض کنیم سری فیبوناچی رو داریم می خوام این 3 تا برنامه رو بنویسم ولی یه مشکل دارم:
1)M و N رو بگیره وهمه اعداد فیبوناچی بینشونو چاپ کنه M>N
2)حالا اعداد زوج و فرد قسمت 1 رو در سطر های مجزا چاپ کنه.
3)اگه سری رو به این صورت (F^k=F^(k-1)+F^(k-2 تعریف کنیم اولین k عدد  فیبوناچی بعد از N رو چاپ کنه F^1=1 و F^2=1
حالا مشکلم اینه که میشه M و N رو به صورت متغیر بدم ؟ چون اگه M و N به صورت یه عدد صحیح دلخواه داده بشه نوشتن برنامه آسونه .ولی اگه باید M و N رو به صورت متغیر بدیم این رو بلد نیستم و اگه کسی میتونه بگه این برنامه چه جوریه خواهشا کمک کنه.مرسی

من قسمت اول رو نوشتم ولی بقیه رو نمی دونم چه جوریه.کسی می تونه کمک کنه؟
begin
;('writeln('write two integer number m>n>0'
;(readln(n,m
;a:=1
;b:=1
;(writeln(n
repeat
;c:=a+b
;a:=b
;b:=c
while c>n do
begin
;(writeln(c
;n:=c
;end
;until c>m-c
;(writeln(m
.end

نقل قول:

---

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

فرض کنیم سری فیبوناچی رو داریم می خوام این 3 تا برنامه رو بنویسم ولی یه مشکل دارم:
1)M و N رو بگیره وهمه اعداد فیبوناچی بینشونو چاپ کنه M>N
2)حالا اعداد زوج و فرد قسمت 1 رو در سطر های مجزا چاپ کنه.
3)اگه سری رو به این صورت (F^k=F^(k-1)+F^(k-2 تعریف کنیم اولین k عدد فیبوناچی بعد از N رو چاپ کنه F^1=1 و F^2=1
حالا مشکلم اینه که میشه M و N رو به صورت متغیر بدم ؟ چون اگه M و N به صورت یه عدد صحیح دلخواه داده بشه نوشتن برنامه آسونه .ولی اگه باید M و N رو به صورت متغیر بدیم این رو بلد نیستم و اگه کسی میتونه بگه این برنامه چه جوریه خواهشا کمک کنه.مرسی

---

نمیدونم بحث آرایه رو خوندین یا نه؟ اما اگر خونده باشین خیلی راحت ترین که سوالات دوم و سوم را با استفاده از آرایه خروجی بگیرین. به این ترتیب که در مرحله اول قبل از چاپ هر عدد آن را در یک خانه آرایه قرار دهید بعد برای مرحله دوم آرایه را فراخوانی کرده و هر درایه را جداگانه بر 2 تقسیم کنید آنهایی که باقیمانده صفر دارند یک بار و آنهایی که باقیمانده 1 دارند را یک بار دیگر در سطری جداگانه چاپ کنید

اینی که می گی رو نمی دونم چیه.در مورد سوال 3 هم باید یه برنامه باشه که مثلا به k بتونی یه عدد بدی مثلا k=5 و اون وقت اولین 5 تا عدد رو بین m و n چاپ کنه که نمیدونم چه طوریه.هرچی برنامه نوشتم تا حالا درست اجرا نشده.

نقل قول:

---

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

اینی که می گی رو نمی دونم چیه.در مورد سوال 3 هم باید یه برنامه باشه که مثلا به k بتونی یه عدد بدی مثلا k=5 و اون وقت اولین 5 تا عدد رو بین m و n چاپ کنه که نمیدونم چه طوریه.هرچی برنامه نوشتم تا حالا درست اجرا نشده.

---

تعریف آرایه:

کد:

---

var fibo:array[1..30] of integer;

---

تعریف یک متغیر جهت نگهداری عناصر آرایه:

کد:

---

var n:integer;
n:=0;

---

مقدار دهی به آرایه:

کد:

---

fibo[n]:= مقداری که می خواهد به عنوان فیبو چاپ شود
n:=n+1;

---

سوال3:

دریافت k:

کد:

---

readln k;

---

چاپ اعداد فیبو از صفر تا k:

کد:

---

for i:=0 to k-1 do
write(fibo[i];

---

اگه اینی که می گی رو بنویسی ممنون می شم.در ضمن وقتی k رو میدی باید k تا از اولین عددها بین m و n رو چاپ کنه .نه اینکه از اول چاپ کنه.اگه میشه بدون if و array نوشته شه.اگه هم که نه همینی که میگی رو بنویسی خوبه .مرسی