Студопедия — Пример 2. Сортировка по возрастанию массива A из N целых чисел.
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример 2. Сортировка по возрастанию массива A из N целых чисел.






Сортировка по возрастанию массива A из N целых чисел.

Приведем текст процедуры сортировки. Описание константы N, типа mas, процедур заполнения массива и вывода массива на экран см. в примере 6.1.

 

Procedure sort(var a:mas);

 

Procedure obmen(x1, x2:integer;

{вспомогательная процедура, выполняющая
обмен значений двух переменных х1 и х2}

var

t:integer;

begin

t:=x1;

x1:=x2;

x2:=t

end;

 

var i, k: integer;

{основная процедура}

begin

for i:=1 to n-1 do

{внешний цикл}

for k:=1 to n-i do

{внутренний цикл, в котором «всплывает»
вверх наибольше из чисел a[1]..a[n-i]}

if a[k]>a[k+1] then obmen(a[k],a[k+1]);

end;

 

Пусть константа N=4, тогда протокол исполнения процедуры sort будет следующий:

действия a i k
передача в процедуру аргумента a
Инд. 1 2 3 4
Знач.        

 

   
i:= 1      
i <= N-1 (1<=3 true)      
k:=1      
k<=n-i (1<=3 true)      
a[k]>a[k+1] (a[1]>a[2] true)      
obmen(a[k],a[k+1])
Инд. 1 2 3 4
Знач.        

 

   
k:=k+1      
k<=n-i (2<=3 true)      
a[k]>a[k+1] (a[2]>a[3] true)      
obmen(a[k],a[k+1])      
 
Инд. 1 2 3 4
Знач.        

 

   
k:=k+1      
k<=n-i (3<=3 true)      
a[k]>a[k+1] (a[3]>a[4] true)      
obmen(a[k],a[k+1])
Инд. 1 2 3 4
Знач.        

 

   
k:=k+1      
k<=n-i (4<=3 false)      
i:=i+1      
i <= N-1 (2<=3 true)      
k:=1      
a[k]>a[k+1] (a[1]>a[1] true)      
obmen(a[k],a[k+1])
Инд. 1 2 3 4
Знач.        

 

   
k:=k+1      
k<=n-i (2<=2 true)      
a[k]>a[k+1] (a[2]>a[3] false)      
k:=k+1      
k<=n-i (3<=2 false)      
i:=i+1      
i <= N-1 (3<=3 true)      
k:=1      
k<=n-i (1<=1 true)      
a[k]>a[k+1] (a[1]>a[2] false)      
k:=k+1      
k<=n-i (2<=1 false)      
i:=i+1      
i <= N-1 (4<=3 false)      
передача в основную программу значения массива а
Инд. 1 2 3 4
Знач.        

 

   






Дата добавления: 2015-08-12; просмотров: 449. Нарушение авторских прав; Мы поможем в написании вашей работы!



Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Классификация потерь населения в очагах поражения в военное время Ядерное, химическое и бактериологическое (биологическое) оружие является оружием массового поражения...

Факторы, влияющие на степень электролитической диссоциации Степень диссоциации зависит от природы электролита и растворителя, концентрации раствора, температуры, присутствия одноименного иона и других факторов...

Йодометрия. Характеристика метода Метод йодометрии основан на ОВ-реакциях, связанных с превращением I2 в ионы I- и обратно...

Подкожное введение сывороток по методу Безредки. С целью предупреждения развития анафилактического шока и других аллергических реак­ций при введении иммунных сывороток используют метод Безредки для определения реакции больного на введение сыворотки...

Принципы и методы управления в таможенных органах Под принципами управления понимаются идеи, правила, основные положения и нормы поведения, которыми руководствуются общие, частные и организационно-технологические принципы...

ПРОФЕССИОНАЛЬНОЕ САМОВОСПИТАНИЕ И САМООБРАЗОВАНИЕ ПЕДАГОГА Воспитывать сегодня подрастающее поколение на со­временном уровне требований общества нельзя без по­стоянного обновления и обогащения своего профессио­нального педагогического потенциала...

Studopedia.info - Студопедия - 2014-2024 год . (0.012 сек.) русская версия | украинская версия