ايران ويج

نسخه‌ی کامل: رسم مثلث خیام نیوتن!!
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سوال:برنامه اي كه يك عدد صحيح دريافت كرده و به تعداد ان عدد سترهاي مثلث خيام نيوتن رو توليد كند؟
اينم مثلث هستش !
[تصویر:  11c5mw4.jpg]
چیکار کنم؟؟؟
می تونی الگوریتمش رو بنویسی.
یعنی الگوریتمی که با دادن شماره سطر اعداد رو در یک حلقه تولید کنه
بنابر این در اصل یه یک فرمول ریاضی (تابع) احتیاج پیدا می کنی که باید اون رو پیدا کنی!
اون چیه............!!
سلام

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

کد:
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 شده باشه !

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

سلام

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

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