رسم مثلث خیام نیوتن!!

[bahareh_toto]

سوال:برنامه اي كه يك عدد صحيح دريافت كرده و به تعداد ان عدد سترهاي مثلث خيام نيوتن رو توليد كند؟
اينم مثلث هستش !

[bahareh_toto]

چیکار کنم؟؟؟

[Darg]

می تونی الگوریتمش رو بنویسی.
یعنی الگوریتمی که با دادن شماره سطر اعداد رو در یک حلقه تولید کنه
بنابر این در اصل یه یک فرمول ریاضی (تابع) احتیاج پیدا می کنی که باید اون رو پیدا کنی!

[bahareh_toto]

اون چیه............!!

[Mamad2003]

سلام

این برنامه رو توی وی بی برای شما نوشتم . واستون مثلث رو بدست میاره !

کد:

Dim a(10, 10), i, j, n As Integer
    n = InputBox("Enter the row :")
    a(0, 0) = 1
    j = 1
    For i = 1 To n - 1
          a(i, 0) = 1
           For j = 1 To i - 1
               a(i, j) = a(i - 1, j) + a(i - 1, j - 1)
           Next j
          a(i, j) = 1
    Next i
    


    For i = 0 To n - 1
           For j = 0 To n
            If (a(i, j) <> 0) Then Text1.Text = Text1.Text + Str(a(i, j)) + " "
           Next j
        Text1.Text = Text1.Text + vbNewLine
    Next i

فقط برای دیدن نتیجه برنامه کد زیر رو توی form_load قرار بدید و یک تکست باکس به نام textbox1 رو روی فرمتون قرار بدین به شرطی که خاصیت multiline اون true شده باشه !

موفق باشید

[bahareh_toto]

ممنون فقط چند تا سوال
1-str چیکار میکنه
2 -vbnewline برای اینکه یک لاین جدید ایجاد کنه

[Mamad2003]

سلام

str تابعی هست که یک مقدار عددی رو به string تبدیل می کنه . نوع ورودی textbox در vb از نوع string هست پس اگر عددی بخواد توی یک textbox چاپ بشه باید ابتدا به string تبدیل بشه بعد نمایش داده بشه .

vbnewline همون طور که حدس زدید یک خط جدید رو به تکست باکس اضافه می کنه که البته توی کد من ، هدف رفتن به خط بعد بوده که با vbnewline امکان پذیره !