Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/17: Рейтинг темы: голосов - 17, средняя оценка - 4.88
Solnze2
1 / 1 / 0
Регистрация: 02.06.2010
Сообщений: 26
1

Сортировка обменами.

02.06.2010, 14:00. Просмотров 3195. Ответов 1
Метки нет (Все метки)

Сортировка обменами. Дана последовательность чисел а1, а2,..., аn. Требуется переставить числа в порядке возрастания. Для этого сравниваются два соседних числа ai и ai+1. Если аi > ai+1, то делается перестановка. Так продолжается до тех пор, пока все элементы не станут расположены в порядке возрастания. Составить алгоритм сортировки, подсчитывая при этом количества перестановок.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 14:00
Ответы с готовыми решениями:

Сортировка массива обменами по возрастанию
Здравствуйте помогите! Решите, пожалуйста программу, но сделайте все по...

Упорядочить столбцы матрицы по убыванию значений элементов главной диагонали. Использовать сортировку простыми обменами, реализовав метод в виде
Упорядочить столбцы матрицы по убыванию значений элементов главной диагонали....

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

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

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

1
KeySir
10 / 10 / 5
Регистрация: 05.04.2010
Сообщений: 40
02.06.2010, 14:04 2
Вы название темы не умеете придумывать?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
 a : array [1..1000] of longint;
 i,j,n,k,m,h : longint;
begin
 readln(n);
 for i:=1 to n do read(a[i]);
 for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[i]>a[j] then
  begin
   k:=a[i];
   a[i]:=a[j];
   a[j]:=k;
   inc(h);
  end;
 writeln('Kol-vo perestanovok: ',h);
 for i:=1 to n do write(a[i],' ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 14:04

Сортировка обменами
Сортировка обменами. Дана последовательность чисел a1, a2, , an. Требуется...

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

Сортировка обменами
Сортировка обменами. 1)Дана последовательность чисел a1, a2 , ..., an....


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

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

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