Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Pitti
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 27
1

Гномья сортировка

24.12.2015, 20:24. Просмотров 306. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста уважаемые форумчане. Завтра сдать надо, но не пойму как изменить работу с возрастания на убывание. Меняю знаки в 10 и 12 строках и ничего не получается =(
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
40
41
42
43
uses crt;
type mas=array[1..1000] of integer;
var a:mas;
    n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t  : Integer;
begin
i := 2;
j := 3;
while i <= size do
 begin
  if arr[i-1] <= arr[i] then
   begin
    i := j;
    j := j + 1
   end
  else
   begin
    t := arr[i-1];
    arr[i-1] := arr[i];
    arr[i] := t;
    i := i - 1;
  if i = 1 then
   begin
    i := j;
    j := j + 1
   end
  end
 end;
end;
 
begin
 write('Размер массива n=');
 read(n);
 writeln('Исходный массив:');
 for i:=1 to n do
 read(a[i]);
 writeln;
 gnomesort(a,n);
 writeln('Результат сортировки:');
 for i:=1 to n do
 write(a[i],' ');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 20:24
Ответы с готовыми решениями:

Гномья сортировка
Здраствуйте, помогите закончить гномью сортировку. Есть процедура, но...

Гномья сортировка. Не могу найти ошибку
Сделал гномью сортировку для массива(можно вводить только числа). Но написать...

Блок схема.Сортировка «Пузырьком», Сортировка методом «Последовательных перестановок», Сортировка «Вставками»
Помогите, нужны блок схемы Сортировка «Вставками» Program Vstavka; uses dos;...

1)Бинарный поиск 2)Сортировка включением 3)Шейкерная сортировка 4)Сортировка разделением
1)В заданном массиве К(N) найти индексы элементов, которые кратны минимальному...

Сортировка массива и сортировка строка матрицы
1) Создание массива А с помощью рандома с целыми от -100 до 100 и вывести его...

2
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
24.12.2015, 20:32 2
Строка 12
Pascal
1
if arr[i-1] > arr[i] then
1
Pitti
0 / 0 / 0
Регистрация: 06.10.2015
Сообщений: 27
24.12.2015, 20:34  [ТС] 3
ах, оказывается только там поменять надо, точно, благодарю!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 20:34

Сортировка массивов. Сортировка выбором
Помогите пожалуйста, я что-то совсем запуталась при составлении данной...

Гномья сортировка
Помогите исправить ошибки, кто разбирается в сортировках.

Гномья сортировка
На заводе выпускается несколько наименований деталей . Сведения о деталях...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru