مثلث پاسکال

[aira]

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



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}چاپ کند

[mehdi2004171]

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

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

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

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

[Developer Programmer]

آف تاپیک

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

[aira]

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

[gm.sara]

آف تاپیک

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

[msnasiri]

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

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

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

[arman.vaniar]

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