كسي الگوريتم اين روش مرتب سازي را بلده ؟
اگه بلده من را هم راهنمايي بكن ممنون مي شم
و آيا كسي مي دونه بايد چه جوري اين برنامه را در vb6 پياده سازي كرد؟
كسي الگوريتم اين روش مرتب سازي را بلده ؟
اگه بلده من را هم راهنمايي بكن ممنون مي شم
و آيا كسي مي دونه بايد چه جوري اين برنامه را در vb6 پياده سازي كرد؟
در مورد اين سوال الگوريتمش را پيدا كردم و برنامش را نوشتم ولي ايراد داره . اگه ميشه بهم بگين ايرادش چيه
مرتب كردن 6 عدد ورودي به روش bubble sort
Private Sub Form_Load()
Dim a (1 to 10 ) AS I nteger
for i=1 to 10
prompt = "enter number " + str(i)
a(i) = val (InputBox(prompt , " enter data" , ""))
NEXT i
End Sub
Private Sub Command1_Click()
for i=1 to 6
for j=2 to 6
IF j<6 then
IF a(i) > a(j) then
a(i) = a(j)
NEXT i
END IF
list1.additem str(a(i))1
else
NEXT i
END IF
END SUB
Dim a(1 To 5) As Integer
Private Sub Command1_Click()
For i = 1 To 5
prompt = "enter number " + Str(i)
a(i) = Val(InputBox(prompt, " enter data", ""))
Next i
End Sub
Private Sub Command2_Click()
Dim temp As Integer
For i = 1 To 5
For j = 1 To 5
If a(i) < a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For k = 1 To 5
List1.AddItem Str(a(k))
Next k
End Sub
ابزارهای لازم: دو دکمه و یک لیست باکس. با نامهای اولیه.
شرح برنامه:
دکمه اول از کاربر 5 عدد می گیرد و دکمه دوم سورت کرده و در لیست باکس نمایش می دهد.
شرح کد: ابتدا در بالای برنامه آرایه را تعریف می کنیم تا در همه رویدادها قابل شناسایی باشد.
دکمه اول را که خودتان نوشتید و من تغیییری ندادم. در دکمه دوم ما متغیری می خواهیم تا به صورت موقت یکی از متغیرها را در خود نگه دارد. یک حلقه هم در انتها برای چاپ همه اعداد در لیست باکس.
کد بالا کار را درست انجام می دهد ولی الگوریتم سورت حبابی گویا کمی فرق دارد. اگر برایتان مهم است پیگیری کنید.
مثل این:
کد:
void bubbleSort(int numbers[], int array_size)
{
int i, j, temp;
for (i = (array_size - 1); i >= 0; i--)
{
for (j = 1; j <= i; j++)
{
if (numbers[j-1] > numbers[j])
{
temp = numbers[j-1];
numbers[j-1] = numbers[j];
numbers[j] = temp;
}
}
}
}
Sub BubbleSort(List() As Double)
' Sorts an array using bubble sort algorithm
Dim First As Double, Last As Double
Dim i As Integer, j As Integer
Dim Temp As Double
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub
Quick Sort & Bubble Sort Author: Gustav
Requirements:
Comments:
Sorts numbers, you can choose from two different methods, QuickSort and Bubble sort
View comments (3)
Download Rating/voted: 2.12/9
