Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [FAQ][Pascal|VB|C#] Сортировка массивов методом вставок

Автор: THandle 22.3.2008, 19:53

Пример на Паскале:

Код


program SortV;

const
  MAX = 5;

type
  TArray = array [1..MAX] of integer;

procedure Sort(LArray : TArray; var NArray : TArray);
var
  i, j : integer;
begin
  for i := 1 to MAX do
    begin
      j := i;
      while ((j > 1) and (NArray[j - 1] > LArray[i])) do
        begin
          NArray[j] := NArray[j - 1];
          j:=j - 1;
        end;
      NArray[j]:=LArray[i];
    end;
end;

var
  iArray1, iArray2 : TArray;
  i : integer;
begin
  for i := 1 to MAX do 
    begin
      Write('Enter next element: ');
      readln(iArray1[i]);
    end;
  Sort(iArray1, iArray2);
  writeln('After sort: ');
  for i := 1 to MAX do  
    writeln(iArray2[i]);
  readln;
End.

Пример на Visual Basic:

Код



Option Explicit
Option Base 1
Const Max = 5
Dim A1(1 To Max) As Long, A2(1 To Max) As Long

Sub Sort(LArray() As Long, ByRef NArray() As Long)
  Dim I, J As Long
  For I = 1 To Max
    J = I
    If J > 1 Then
      Do While (NArray(J - 1) > LArray(I))
        NArray(J) = NArray(J - 1)
        J = J - 1
      Loop
    End If
  NArray(J) = LArray(I)
  Next I
End Sub

'Пример использования - по нажатию кнопки
Private Sub Command1_Click()
  Dim I As Long
  For I = 1 To Max
    A1(I) = CLng(InputBox("Введите элемент:"))
  Next I
  Call Sort(A1, A2)
  'Массив отсортирован. Можно вывести данные, например, в ListBox
  For I = 1 To Max
    List1.AddItem CStr(A2(I))
  Next I
End Sub

Авторы:
http://vingrad.ru/@Rrader - пример на VB.
http://vingrad.ru/@THandle - пример на Паскале

Автор: Rrader 8.5.2008, 12:26

Мой вариант на C#:

Код


using System;

class InsertSortClass
{
    public const int Max = 5;
    
    int[] Array = new int[Max];
    
    public void GetArray()
    {
        for (int i = 0; i < Max; ++i)
        {
            Console.Write("Enter element: ");
            string S = Console.ReadLine();
            int Value = int.Parse(S);
            Array[i] = Value;
        }
        
    }
    
    public void PrintArray()
    {
        for (int i = 0; i < Max; ++i)
            Console.WriteLine(Array[i]);
    }
    
    public void Sort()
    {
        int i, j, t;
        for (i = 1; i < Max; i++)
        {
            t = Array[i];
            for (j = i; (j > 0) && (Array[j-1]) > t; j--)
            {
                Array[j] = Array[j-1];
            }
            Array[j] = t;
        }

    }
    
}

class InsertSortApp
{
    public static void Main(string[] args)
    {
        InsertSortClass ISC = new InsertSortClass();
        ISC.GetArray();
        Console.WriteLine("Before sort:");
        ISC.PrintArray();
        ISC.Sort();
        Console.WriteLine("After sort:");
        ISC.PrintArray();
        Console.ReadLine();
    }
    
}

Автор: THandle 8.5.2008, 12:27

Rrader, smile

Название меняю... smile

Автор: Luxury31 15.12.2008, 20:00

код на C++

Цитата

#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <conio.h>
#include<conio.h>
#include<iostream.h>

//сортировка вставками
void insert (int n, int x[])
{
int i, j, t;
for (i=0; i<n; i++)
{
  t = x[i];

  for (j=i-1; j>=0 && x[j]>t; j--)//двигаемся снизу вверх
  {//пока t не больше или равно x[j]

   x[j+1]=x[j];//сдвиг на одну позицию
  }
  x[j+1]=t;

}
}

int main()
{
        int x[]= {1323, 155, 7, 9, 10, 15};
        int n=6;

        insert(n, x);
    for(int t = 0; t < n; t++)
    {
  cout << x[t] << " ";
    }

getch ();
return 0;
}