سوال اول
1-برنامه بنویسید سه عدد را بگیرد به نام های a,b,c بعد معادلعه درجه دو را حل کند.
سوال دوم
2-یک عدد چهار رقمی بگیرد مثال(1553) ایا توی این عدد رقم تکراری است.
سوال سوم
3- از کابر سه تا عدد بگیر تشخیص بدهد جز مثلث قائم زاویه است.
برنامه های بالابا زبان برنامه نویسی VB.NET است.
سلام جواب بقیه سوالاهایت را نمی دانم ولی سئوال دو فکر کنم این شکلی است.
کارایی برنامه :میاد از اول شروع به چک کردن میکنه تک تک کارکتر های ورودی رو نگاه میکنه اگه کارتکتر تکراری بود میاد اونو میشماره (همون اولین کارکتر تکراری) و در آخر اونو نشون میده
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استفاده ازش:
یک دکمه بزار و یک تکس باکس و یک لیبل
توی رویداد کلیک دکمه بنویس :
label1.text=fo(textbox1.text)