Basic.Алгоритмы и сортировка.

[Mina94]

Помогите кому не сложно,знаю что сам должен учиться ,но некогда разбираться, конец семестра,цель одна-сдать.

1)Написать программу сортировки методом прямого включения. Оценить количество сравнений ключа и количество перестановок и сравнить эти значения с теоретическими оценками.
2)Написать программу с помощью метода быстрой сортировки. Выбирать в качестве m –выбирается элемент из середины массива. Оценить глубину рекурсии, количество сравнений ключа и количество перестановок.

[ZX Spectrum-128]

Быстрая:
http://ru.m.wikibooks.org/wiki/%CF%F...F0%EE%E2%EA%E8
Анализ
http://markx.narod.ru/inf/sorting.htm

[Mina94]

с быстрой сортировкой,я уже сам справился. Мне нужна помощь с методом прямого включения.

Public Class Form1
    Dim n As Integer = 10
    Dim a(n) As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Randomize()
        Console.WriteLine("Исходный массив: ")
        For i = 0 To n - 1
            a(i) = Rnd() * 20
            Console.Write(a(i) & " ")
        Next
        Console.WriteLine()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim b As Integer
        Dim nkey, nexch As Integer
        For i = 1 To n - 1
            For j = n - 1 To i Step -1
                nkey = nkey + 1
                If a(j - 1) > a(j) Then
                    b = a(j - 1)
                    a(j - 1) = a(j)
                    a(j) = b
                    nexch = nexch + 1
                    For k = 0 To n - 1
                        Console.Write(a(k) & " ")
                    Next
                    Console.WriteLine()
                End If
            Next
        Next
        Console.WriteLine("Отсортированный массив:")
        For i = 0 To n - 1
            Console.Write(a(i) & " ")
        Next
        Console.WriteLine()
        Console.WriteLine("Количество сравнений ключа:" & nkey)
        Console.WriteLine("Количество перестановок:" & nexch)
    End Sub
End Class

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Метод прямого включения:

Dim As  Integer J,N,X
Dim A(0 To 50) as INTEGER

Print("Enter length of array: ");
Input(N)
print("Enter array:");
FOR I=1 TO N 
	input(A(I))
Next i
Cls
Print "Original array:"
For I=1 TO N  
	Print A(I);" ";
Next i	

FOR I=2 TO N 
  X=A(I)
  A(0)=X
  J=I
  WHILE X<A(J-1) 'DO 
  	 A(J)=A(J-1)
    j=j-1
  Wend
  A(J)=X
Next i
Print
print("Sorted array:")
For I=1 TO N  
	Print A(I);" ";
Next
Sleep
END