QuickSort: быстрая сортировка элементов (по методу Хоара)

@Kabardinex · Регистрация: 22.03.2018

Author24 — интернет-сервис помощи студентам

Организуйте массив, состоящий из 20 различных целых чисел. После этого упорядочить отдельно чётные элементы (именно элементы, то есть по их месту, порядковому номеру в массиве) по возрастанию, а нечётные по убыванию.

Программа написаная мной выдает ошибку, помогите пожалуйста её исправить.
Очень срочно нужно, ПРОШУ ПОМОЧЬ!!!

Pascal

uses crt;
 
var x:array[1..n] of integer;
    i:integer;
procedure quicksort (var item: dataarray; count: integer);
procedure qs (l,r:integer; var it: dataarray);
 
var
i,j:integer;
x,y: dataitem; 
begin
i:=1; j:=r;
x:= it[(l+r)] [div2];
repeat
while it [i]<x do i :=i+2;
while x<it [j] do j:=j-2;
if y<=j then
begin
j:=it[i];
it [i]:= it[j];
it [j]:=y;
i:=i+1; j:=j-1;
end;
 
until i>j;
if 1<j then qs(i,j, it);
if 1<r then qs (i, r, it)
end;
begin
qs (1, count, item);
end;
end.

@Puporev · 22.03.2018, 19:04

Вы чушь написали, даже править не получается, найдите нормальный код в поиске по разделу Паскаль по запросу Быстрая сортировка.
Хотя бы посмотрите похожие темы внизу страницы.

@Kabardinex · 22.03.2018, 19:12 **[ТС]**

Puporev, Преподаватель дал как пример вот эту часть кода, сказал, что это практически и есть решение к моёму заданию, только нужно подправить. Я не знаю как...

Pascal

procedure quicksort (var item: dataarray; count: integer);
procedure qs (1,r:integer; var it: dataarray);
var
i,j:integer;
x,y
begin
i:=1; j:=r;
x:=it[(1+r)div2];
repeat
while if [i]<x do:=i+2
while x<if [j] do j:=j-2
if y<=j tnen
begin
j:=it[i];
it [i]:= it[j]
it [j]:=y;
i:=i+1; j:=j-1;
end;
until i>j;
if<j then qs(i,j, it);
if 1<r tnen qs (i, r, it)
end;
begin
qs (1, count, item);
end;

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

@Puporev · 22.03.2018, 19:17

Ну поплачь, поплачь...

@Norbes · 22.03.2018, 19:22

У меня тот же вопрос

@Kabardinex · 22.03.2018, 19:27 **[ТС]**

Puporev, Я обрисовал ситуацию...

@alex5code · 25.03.2018, 17:17

XXI век на дворе, товарищи. 12 секунд серфинга в интернете позволят найти сотню решений, но мы предпочтем мило пообщаться с друзьями в соц. сетях!

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.03.2018, 19:04	2
	Вы чушь написали, даже править не получается, найдите нормальный код в поиске по разделу Паскаль по запросу Быстрая сортировка. Хотя бы посмотрите похожие темы внизу страницы. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.03.2018, 19:17	4
	Ну поплачь, поплачь... 0

@Norbes 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 14
	22.03.2018, 19:22	5
	У меня тот же вопрос 0

@Kabardinex 0 / 0 / 0 Регистрация: 22.03.2018 Сообщений: 3
	22.03.2018, 19:27 [ТС]	6
	Puporev, Я обрисовал ситуацию... 0

@alex5code Aimez-vous les baguettes? 193 / 26 / 27 Регистрация: 25.10.2017 Сообщений: 165
	25.03.2018, 17:17	7
	XXI век на дворе, товарищи. 12 секунд серфинга в интернете позволят найти сотню решений, но мы предпочтем мило пообщаться с друзьями в соц. сетях! 0