Метод сортировки обменами

@ddellog · Регистрация: 19.09.2017

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

Дан массив В, состоящий из n элементов. Элементы массива ввести случайным образом. Переставить элементы так, чтобы они были расположены по убыванию. Вывести новый массив. Использовать Метод сортировки обменами.

Паскаль ABC.NET, 1-ый курс, помогите, пожалуйста. Заранее благодарю.

@alex5code · 05.11.2017, 15:57

Метод сортировки обменами это пузырьковая сортировка или шейкерная? Так как меня это поставило в тупик, загуглил Ваш "Метод сортировки обменами" . В результате получил пинок: это Пузырек. Держите:

Pascal

procedure Bubble(block: array of integer);
begin
var finish := block.Length - 1;
var sort: boolean;
repeat
sort := true;
for var start := 0 to finish - 1 do
  if block[start + 1] > block[start] then begin
  Swap(block[start + 1], block[start]);
  sort := false;
  end;
  finish -= 1;
  until sort;  
end;
 
begin
var n: integer;
Readln(n);
Var Mass : array of integer;
setLength(Mass, n);
for var i:=0 to n-1 do Mass[i] := ReadlnInteger();
Writeln('Введенный массив ', Mass);
Bubble(Mass);
Writeln('Результат ',Mass);
end.

PS: Предыдущий ответ не успел отредактировать, извиняй.

@ddellog · 05.11.2017, 16:22 **[ТС]**

Спасибо, конечно, но нас так не учили, это неправильный код

@ZX Spectrum-128 · 05.11.2017, 16:35

Сообщение от ddellog

это неправильный код

Почему неправильный?

@ddellog · 05.11.2017, 16:37 **[ТС]**

Ну, он правильный, но нас так не учили писать, такой мне не подходит, к сожалению

@volvo · 05.11.2017, 18:34

Сообщение от ddellog

нас так не учили писать

В таком случае надо искать в Гугле форум телепатов, которые могут просканировать карму и узнать, как и чему вас учили. Пока нет примеров тех программ, которые вы пишете - разговаривать больше не о чем.

@ddellog 3 / 2 / 1 Регистрация: 19.09.2017 Сообщений: 54
		1
	Метод сортировки обменами 05.11.2017, 13:38. Показов 561. Ответов 5 Метки нет (Все метки) Дан массив В, состоящий из n элементов. Элементы массива ввести случайным образом. Переставить элементы так, чтобы они были расположены по убыванию. Вывести новый массив. Использовать Метод сортировки обменами. Паскаль ABC.NET, 1-ый курс, помогите, пожалуйста. Заранее благодарю. 0

@ddellog 3 / 2 / 1 Регистрация: 19.09.2017 Сообщений: 54
	05.11.2017, 16:22 [ТС]	3
	Спасибо, конечно, но нас так не учили, это неправильный код 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	05.11.2017, 16:35	4
	Сообщение от ddellog это неправильный код Почему неправильный? Миниатюры 0

@ddellog 3 / 2 / 1 Регистрация: 19.09.2017 Сообщений: 54
	05.11.2017, 16:37 [ТС]	5
	Ну, он правильный, но нас так не учили писать, такой мне не подходит, к сожалению 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	05.11.2017, 18:34	6
	Сообщение от ddellog нас так не учили писать В таком случае надо искать в Гугле форум телепатов, которые могут просканировать карму и узнать, как и чему вас учили. Пока нет примеров тех программ, которые вы пишете - разговаривать больше не о чем. 0