راه حل برنامه های زیر چیست؟(برنامه ها با vb.net )

[mohammad3690]

سوال اول

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


سوال دوم

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

سوال سوم


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

[M.KH-SH]

برای تمرین شماره 2 ::

البته نمیدونم روشی ساده تر هست یا نه ولی با این حلقه ها کارت راه میوفته

هم تعداد دفعات تکرار رو میگه هم حرف یا عدد تکرار شونده

محدود به 4 تا نیست میتونی یک متن کامل رو بدی بهش

کارش: میاد از اول شروع به چک کردن میکنه تک تک کارکتر های ورودی رو نگاه میکنه اگه کارتکتر تکراری بود میاد اونو میشماره (همون اولین کارکتر تکراری) و در آخر اونو نشون میده


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)

[Mani_rf]

درخواست انجام پروژه اکیدا ممنوع؛ قوانین سایت را مطالعه کنید.
تاپیک به احترام پاسخ داده شده قفل شده و حذف نگردید.