42548

Сортування методом вставок

Лабораторная работа

Информатика, кибернетика и программирование

Завдання: розробити програму, що забезпечує сортування вхідного файлу методом вставок. Вхідний файл містить в собі двовимірний масив чисел цілого типу, всі елементи якого слід відсортувати за зростанням, причому зробити це окремо в кожному стовпці.

Украинкский

2013-10-30

29.5 KB

2 чел.

Міністерство освіти і науки України

Хмельницький національний університет

Кафедра системного програмування

Лабораторна робота №1

З дисципліни структури даних і алгоритми

Тема: 

«Сортування методом вставок»

 

                                                                                       Виконав ст. гр. КІ-10-3

                                                                    Матвєєв П.

       Перевірив Кльоц Ю. П.

Хмельницький 2011

Завдання: розробити програму, що забезпечує сортування вхідного файлу методом вставок. Вхідний файл містить в собі двовимірний масив чисел цілого типу, всі елементи якого слід відсортувати за зростанням, причому зробити це окремо в кожному стовпці.

Лістинг програми:

uses crt;

const n=8;

type mas=array[1..n,1..n] of integer;

var m:mas;

    i,j: integer;

    t: text;

procedure gen(var m:mas; var t:text);

var i,j:integer;

 begin

 randomize;

 rewrite(t);

 for i:=1 to n do begin

 for j:=1 to n do begin

 m[i,j]:=random(10);

 write(t,m[i,j],' ');

 end;

 writeln(t);

 end;

 close(t);

end;

procedure sort(var m:mas; var j:integer);

var i,k,temp,p:integer;

    tmas:array[1..n] of integer;

 begin

 for i:=1 to n do tmas[i]:=m[i,j];

 for k:=2 to n do begin

  temp:=tmas[k]; p:=k-1;

  While (p>0) and (temp<tmas[p]) do begin

   tmas[p+1]:=tmas[p];p:=p-1;

   end;

  tmas[p+1]:=temp;

 end;

 for i:=1 to n do m[i,j]:=tmas[i];

 end;

 procedure regen(var m:mas; var t:text);

 var i,j:integer;

  begin

  rewrite(t);

  for i:=1 to n do begin

  for j:=1 to n do begin

  write (t,m[i,j],' ');

  end;

  writeln(t);

  end;

  close(t);

 end;

begin

assign(t,paramstr(1));

gen(m,t);

for j:=1 to n do sort(m,j);

regen(m,t);

end.

Результат:

Вміст вихідного файлу:

0 4 0 0 0 1 0 0

2 6 0 1 1 2 0 2

3 6 1 3 1 3 1 2

3 7 2 3 6 4 1 4

4 7 5 5 6 5 1 5

5 7 5 6 7 5 2 5

8 7 6 9 8 7 3 7

9 8 7 9 9 7 9 9


 

А также другие работы, которые могут Вас заинтересовать

83295. Информационные технологии как фактор повышения мыслительной деятельности учащихся на уроках познание мира 2.58 MB
  Изучить психолого–методическую и научно–методическую литературу о роли информационных технологий в учебном процессе. Раскрыть роль и значение информационных технологий в повышении результативности в обучении школьников. Экспериментальная проверка роли информационных технологий как фактора повышения качества знаний школьников на уроках познание мира.
83296. Факторы и последствия изменения климата 56.59 KB
  Изучением изменений климата занимается наука палеоклиматология. Причиной изменения климата являются динамические процессы на Земле внешние воздействия такие как колебания интенсивности солнечного излучения и с недавних пор деятельность человека.
83298. Организация контроля за деятельностью подразделений предприятия ИП «Г.Г.Соколова» 49.58 KB
  Управленческий контроль это одна из функций управления без которой не могут быть реализованы в полной мере все другие функции управления: планирование организация руководство и мотивация. Контроль призван обеспечивать правильную оценку реальной ситуации и тем самым создавать предпосылки...
83299. Технология создания программы в жанре телеинтервью (на примере программы «Познер») 55.06 KB
  Актуальность теоретического исследования технология создания программы в жанре телеинтервью заключается в том, что в настоящее время жанр интервью является самым распространенным и популярным в журналистике. Всё более возрастающий интерес к нему требует от интервьюеров создания качественного материала...
83300. Электроснабжение комбината цветной металлургии 744.25 KB
  В системе цехового распределения электроэнергии широко используют комплектные распределительные устройства, подстанции и силовые токопроводы. Это создает гибкую и надежную систему распределения, в результате чего экономиться большее количество проводов и кабелей.
83301. Исследование силы мышц и гибкости позвоночника у детей дошкольного возраста на хореографических занятиях 68.22 KB
  В процессе роста и развития разные группы мышц развиваются неравномерно у детей дошкольного возраста. Масса нижних конечностей по отношению к массе тела увеличивается интенсивнее, чем масса верхних конечностей. Характеристикой функционального созревания мышц служит мышечная выносливость.
83302. Организация сестринской помощи за пациентами с описторхозом 85.54 KB
  В приемном отделении на больного медицинская сестра заводит историю болезни и его осматривает врач. Процедурная медицинская сестра выполняет парентеральное введение лекарственных средств: внутривенное струйное и капельное подкожное внутримышечное введение.
83303. Антимонопольне регулювання як складова конкурентної політики держави 394.49 KB
  Роль конкуренції та конкурентної політики держави в сучасній економічній системі. Теоретичні засади вивчення природи конкуренції заклали класики економічної теорії. Під час дослідження даної теми були поставлені такі завдання: визначити суть значення конкуренції та конкурентної поітики...