VPF::[FAQ][Pascal|VB|C#] Сортировка массивов методом вставок

THandle

Дата 22.3.2008, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

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

Код


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

Авторы:
rrader - пример на VB.
THandle - пример на Паскале

Это сообщение отредактировал(а) THandle - 8.5.2008, 12:27

Rrader

Дата 8.5.2008, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 14
Всего: 191

Мой вариант на 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();
    }
    
}

--------------------

Let's do this quickly!
Rest in peace, Vit!

THandle

Дата 8.5.2008, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Rrader, smile

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

Luxury31

Дата 15.12.2008, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.12.2008

Репутация: нет
Всего: нет

код на 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;
}

Это сообщение отредактировал(а) Luxury31 - 17.12.2008, 11:37

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »