2015-05-27
199
Key - ключ, определяющий была ли перестановка пар элементов;
Z - переменная, необходимая для хранения промежуточного элемента при перестановке.
Текст программы обменной сортировки
Uses crt;
Var M:array[1..1000] of integer;
i,Z,n:integer; Key:byte;
Begin Clrscr;
{Ввод n и формирование массива М как в предыдущей программе}
Repeat
Key:=0;
For i:=1 to n-1 do
If M[i] > M[i+1] then
begin
Z:=M[i];
M[i]:=M[i+1];
M[i+1]:=Z;
Key:=1;
end;
Until Key=0;
Writeln(' Упорядоченный массив');
For i:=1 to n do write(M[i],' '); readkey;
End.
Типовое задание
Разработать алгоритм и программу сортировки списка записей из ЛПР №11 методом выбора и обмена
Варианты самостоятельных заданий
В а р и а н т 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
Список упорядочен по убыванию года издания.
ЛИТЕРАТУРА
- Игошина Л.В. Методическое пособиепо курсу "Алгоритмические языки и программирование". - Пенза: ПГТУ, 1999г.
- Могилев Л.В. и др. Практикум по информатике. - М.: «Академия», 2005г.
- Иллюстрированный самоучитель по Turbo Pascal. – http://pascal.sources.ru/
