سلام
کسی از دوستان می تونه سورس این برنامه رو بهم بده؟ یا کمکم کنه که این برنامه رو به زبان دلفی بنویسم؟
Printable View
سلام
کسی از دوستان می تونه سورس این برنامه رو بهم بده؟ یا کمکم کنه که این برنامه رو به زبان دلفی بنویسم؟
درود
میتوانید از این سایت کمک بگیرید
کد:http://sstarsprograms.blogfa.com/8508.aspx
دو نوع مثلث خیام پاسکال به زبان ویژال بیسیک میزارم واست که شبیه به دلفی هست::
این به صورت متساوی الاضلاع ::
[PHP]Private Sub Command1_Click()
Cls
Dim startl, endr, row, coll, colr, i, j, n
n = Val(InputBox(""))
ReDim a(1 To n, 1 To 2 * n) As Integer
endr = n + 1
row = 2
startl = n - 1
a(1, n) = 1
While row < n
For coll = startl To n
a(row, coll) = a(row - 1, coll - 1) + a(row - 1, coll + 1)
Next
For colr = n + 1 To endr
a(row, colr) = a(row - 1, colr - 1) + a(row - 1, colr + 1)
Next
startl = startl - 1
row = row + 1
endr = endr + 1
Wend
For i = 1 To n
For j = 1 To 2 * n
If a(i, j) = 0 Then Me.ForeColor = Me.BackColor Else Me.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Print a(i, j);
Next
Next
End Sub[/PHP]و این به صورت قائم الزاویه ::
[PHP]
Private Sub Command1_Click()
Dim a(10, 10) As Double
Dim i As Double
Dim j As Double
Dim n As Double
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
End Sub
[/PHP]
مرسی . ولی این c++ من دلفیش رو می خوام.نقل قول:
---------- Post added at 04:23 PM ---------- Previous post was at 04:22 PM ----------
ممنون . میشینم یه تست میزنم ببینم چی میشهنقل قول: