Results 1 to 1 of 1
Thread: Ìåòîä íà Øåë - âúïðîñ?
Hybrid View
-
10th June 2010 21:05 #1
Ìåòîä íà Øåë - âúïðîñ?
Íàïðàâèõ ñè ïðîãðàìà, êîÿòî ïîëçâà àëãîðèòúìà çà ñîðòèðàíå íà Øåë ñúñ VB 2005, íî ñå ïîëó÷àâà íÿêúäå ãðåøêà.Ïðè ñòàðòèðàíå íå ìè èçâåæäà ðåçóëòàòà îò ñîðòèðàíåòî.Îñòàâàì ñ âïå÷àòëåíèå, ÷å êîäà çàöèêëÿ íÿêúäå, íî íå ìîãà äà âèäÿ êúäå.
Åòî êîäà:
Ðåçóëòàòà ãî èçâåæäàì â åòèêåòè îò Label13-Label22.Code:Private Sub ÌåòîäÍàØåëToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÌåòîäÍàØåëToolStripMenuItem.Click Dim h, i, j, x1 As Integer h = 0 While (2 * (3 * h + 1) <= 10) h = 3 * h + 1 While (h > 0) For i = h To 10 x1 = mas(i) For j = i - h To 0 If (x1 < mas(j)) Then mas(j + h) = mas(i) Else Exit Sub End If Next j mas(j + h) = x1 Next i End While h = h / 3 End While Label22.Text = mas(1) Label21.Text = mas(2) Label20.Text = mas(3) Label19.Text = mas(4) Label18.Text = mas(5) Label17.Text = mas(6) Label16.Text = mas(7) Label15.Text = mas(8) Label14.Text = mas(9) Label13.Text = mas(10) Label23.Text = "Ìåòîä íà ñîðòèðàíå íà Øåë" End Sub
Àêî íÿêîé èìà èäåÿ êúäå ìîæå äà ãðåøà?|AsRock Z77 Extreme 4|i5-3570k@4.20Ghz|TR TS 120M|2x8GB Geil EVO Potenza 1600|A-DATA SP920 128GB|Gigabyte GTX 550Ti|Super Flower Golden Green HX 600w|BENQ GW2265HM|
|AsRock P67 Pro3|i7-26000K@4.40Ghz |2x8GB GSkill Aegis 1600Mhz|Gigabyte GT 640|HANNS-GHS243|
www.brc.soupvolov.com




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè