Форум программистов, компьютерный форум CyberForum.ru

Сортировка - C++

Восстановить пароль Регистрация
 
DanielDefo
5 / 5 / 0
Регистрация: 13.09.2009
Сообщений: 225
16.06.2010, 19:51     Сортировка #1
Помогите перевести программу с ПАскаля:
Задание - Провести сортировку последовательности а1, … , аn методом Шелла.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program shell;
uses wincrt;
var
  a: array[1..100] of integer;
  i, n, incr, j, x: integer;
begin
  writeln('введите размерность массива');
  readln(n);
  writeln('исходный массиы');
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  incr := n div 2;
  while incr > 0 do
  begin
    for i := incr + 1 to n do
    begin
      j := i - incr;
      while j > 0 do
        if a[j] > a[j + incr] then
        begin
          x := a[j];
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr;
        end
        else
          j := 0;
    end;
    incr := incr div 2;
  end;
  readln;
  for i := 1 to n do
  begin
    write(a[i], ' ');
  end;
end.
Заранее спасибо.

Добавлено через 3 часа 47 минут
Помогите плиз, срочно надо
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2010, 19:51     Сортировка
Посмотрите здесь:

C++ сортировка
C++ Сортировка подсчетом и LSD сортировка
C++ сортировка
C++ сортировка
Пирамидальная сортировка и сортировка Шелла C++
Сортировка С++ C++
Сортировка C++
Сортировка методом "быстрая сортировка" C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 23:27. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru