Технология выполнения индивидуальных заданий. Часть 1 - 32 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

32
Задача 9 Дан массив, упорядоченный по неубыванию элементов. Вставить
в массив последовательность из m элементов так, чтобы не нарушилась упорядо-
ченность.
Входные данные: n – размер массива,
а – целочисленный массив,
m – количество элементов последовательности.
Выходные данные: а – целочисленный массив.
Метод решения
Определяется процедура вставки элемента в упорядоченный массив:
procedure Ins_Sort(x: T_El; var n:integer; var a:vect);
Поиск места для элемента x в массиве a осуществляется с одновремен-
ным сдвигом элементов вправо. Сдвиг продолжается до тех пор, пока выполня-
ется условие: i > 0 и a
i
> x (используется упорядоченность массива).
Далее a
i +1
:= x и n увеличивается на 1.
Метод решения задачи заключается в просмотре каждого элемента после-
довательности и вставки его в упорядоченный массив.
Текст программы
program Vect_3;
const nmax=10;
type T_El=integer;
vect=array[1..nmax] of T_El;
var n,m,i:integer;
a:vect;
x:T_El;
procedure Ins_Sort(x: T_El; var n:integer; var a:vect);
var i:integer;

Страницы