مثلث پاسکال

خسته نباشید.
لطفا اگر جواب این سوال رو میدونید کمکم کنید.



1-الکوریتمی بنویسید که جدول پاسکال را به شکل زیر تولید کند


1
1 1
1 2 1
1 3 3 1
1 4 6 4 1




2-عدد صحیح N را خوانده ,تعداد زیر مجمو عه های 3 عضوی را پیدا کرده در متغیر k قرار دهد.


3-عدد n و k را دریافت کند و زیر مجموعه های k عضوی ,مجمو عه ی {1,2,....,n}چاپ کند

یک برنامه برای مثلث پاسکال به صورت زیر است

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim a1, a2, a3 As Integer

For i = 0 To 5

a1 = fac(i)

 For j = 0 To i

   a2 = fac(j)

   a3 = fac(i - j)

   Print a1 / (a2 * a3);

   Next

   Print

Next

برنامه دیگر برای مثلث پاسکال

Dim i, j, n As Byte

Dim a(10, 10) As Integer

n = 10

For i = 0 To n

 For j = 0 To i

  If i = j Or j = 0 Then

   a(i, j) = 1

  Else

   a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

  End If

 Next

Next

For i = 0 To n

 For j = 0 To i

  Print a(i, j);

 Next

 Print

Next

برنامه دوم بهتر است

ویرایش: سپیدار
با تشکر از افشین

آف تاپیک

نقل قول:

---

یک برنامه برای مثلث پاسکال به صورت زیر است

---

دوست عزیز خوهشا قبل از درج کد برنامه ...دگمه Code رو فشار دهید تا خواناتر بشه

با تشکر از شما :oops:

نقل قول:

---

نوشته شده توسط Afshin_Zavar

آف تاپیک

دوست عزیز خوهشا قبل از درج کد برنامه ...دگمه Code رو فشار دهید تا خواناتر بشه

---

من می خواهم کد برنامه ارسال کنم ولی دکمه کد را پیدا نکردم ممکن است من را راهنمایی بکنید تا من هم بتوانم کد برنامه ارسال کنم ممنون .

اون چیزی که دیگه داخل این الگوریتم ها تجربه شده اینه که اینا همش ریاضیه و باید درس خونده باشی تا بدونی و با فکر کردن راحت نیست (مال مثل خیام و پاسکال نیستیم که بتونیم روش ابداع کنیم. البته نه به این معنی که خنگیم ها سوء تفاهم نشه)

باسه اون تعداد زیرمجموعه های سه عضوی مجموعه عدد N فرمولش بصورت زیره. دیگه بعدش فکر نکنم مشکل باشه.
c(n,r)=n!/(r!*(n-r)!)
این کار یعنی انتخاب r شی از n شی که جابجایی داخلش بی تأثیره

باسه سوال سومت هم راحته
بیا با سه تا حلقه شمارشی تو در تو که هر کدوم از عدد قبل بعلاوه یک شروع می شه تا N
برو بعداً تمامی زیرمجموعه ها مشخص می شه.
اگه خواستی زبونش رو بگو تا برات بنویسم.

مثلث خیام پاسکال رو با زبان C++‎ میزارید برام.
ممنون.