[ali22]

سوال اول

1-برنامه بنویسید سه عدد را بگیرد به نام های a,b,c بعد معادلعه درجه دو را حل کند.


سوال دوم

2-یک عدد چهار رقمی بگیرد مثال(1553) ایا توی این عدد رقم تکراری است.

سوال سوم


3- از کابر سه تا عدد بگیر تشخیص بدهد جز مثلث قائم زاویه است.

برنامه های بالابا زبان برنامه نویسی VB.NET است.

[mohammad a]

سلام جواب بقیه سوالاهایت را نمی دانم ولی سئوال دو فکر کنم این شکلی است.
کارایی برنامه :میاد از اول شروع به چک کردن میکنه تک تک کارکتر های ورودی رو نگاه میکنه اگه کارتکتر تکراری بود میاد اونو میشماره (همون اولین کارکتر تکراری) و در آخر اونو نشون میده

کد [انتخاب] Expand

Private Function Fo(ByVal x As String)
        Dim i, i1, i2 As Integer
        i2 = 0
        Dim b(Len(x)) As String
        Dim b1 As String
        Dim c As Boolean
        For i = 1 To Len(x)
            i2 = 0
            c = False
            b(i) = Mid(TextBox1.Text, i, 1)

            For i1 = 1 To Len(x)
                If Mid(TextBox1.Text, i1, 1) = b(i) Then
                    i2 += 1
                    c = True
                    If c = True And i2 >= 2 Then
                        Dim f As Integer = 0
                        For n As Integer = 1 To Len(x)

                            If Mid(x, n, 1) = b(i) Then
                                f += 1
                            End If
                        Next
                        c = False

                        Return (f & "      " & b(i))
                        Exit Function
                    End If
                End If
            Next
        Next
    End Function


استفاده ازش:

یک دکمه بزار و یک تکس باکس و یک لیبل

توی رویداد کلیک دکمه بنویس :

کد [انتخاب] Expand

label1.text=fo(textbox1.text)