泡沫排序 - 到VB.NET

如果我有下面的僞代碼，我需要添加任何進一步的東西，如下所述。我們非常感謝您的幫助：泡沫排序 - 到VB.NET

**repeat 
    swapped = false** 

    for i from 1 <- N 
      for j <- 0 to N - 1 
       if a[j] > a[j + 1] 
        swap(a[j], a[j + 1]) 
    **swapped = true 
      end if** 
     **end for 
     until not swapped**

我有哪些行**需要在那裏？例如，如果一個問題被問到「用冒泡排序算法編寫僞代碼」，我是否會被要求將其完全寫出來（包括**項目），或者沒有它們就可以嗎？

我們需要「繩索學習」代碼，顯然代碼越小越好，越容易記住。

謝謝！

來源

2016-05-16 Alex

那麼...你到底在問什麼？代碼是否按照你的意圖工作？ –

@RyanBemrose我需要把**放在那裏嗎？即我用**突出顯示的行。 – Alex

需要什麼？ VB.NET？ pseoudocode的特定方言？誰是你的受衆 - 一個特定的編譯器或其他程序員？我很確定「僞代碼」不是一種真正的語言，因此就口譯員而言，你基本上可以做任何你想做的事情。 –

Sub Main() 
       Dim Numlist() As Integer = {23435, 1, 433, 5234} 
    'here you can use any numbers in any order 
     Dim Count As Integer = 0 
       Dim Swapvalue As Integer 
       For ii = 0 To Numlist.Length - 2 
        For i = 0 To Numlist.Length - 2 
         Count += 1 
         If Numlist(i) > Numlist(i + 1) Then 
          Swapvalue = Numlist(i) 
          Numlist(i) = Numlist(i + 1) 
          Numlist(i + 1) = Swapvalue 
         End If 
        Next 
       Next 
       Console.WriteLine("Number of comparisons: {0}", Count) 
       For i = 0 To Numlist.Length - 1 
        Console.WriteLine(Numlist(i)) 
       Next 
     End Sub

來源

2017-11-21 10:51:52

泡沫排序 - 到VB.NET

回答

相關問題