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


 

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

71786. ПОНЯТИЕ И ПРИЗНАКИ НОРМАТИВНОГО ПРАВОВОГО АКТА ФЕДЕРАЛЬНОГО ОРГАНА ИСПОЛНИТЕЛЬНОЙ ВЛАСТИ И ЕГО РОЛЬ В МЕХАНИЗМЕ АДМИНИСТРАТИВНО-ПРАВОВОГО РЕГУЛИРОВАНИЯ 146.5 KB
  Административно-правовое регулирование общественных отношений в сфере публичного управления проводится в определенных формах и с помощью методов административно-правового регулирования. В связи с этим повышенный интерес правоведов вызывает концепция нормативного правового акта...
71787. ОБСТОЯТЕЛЬСТВА, ХАРАКТЕРИЗУЮЩИЕ ЛИЧНОСТЬ ОБВИНЯЕМОГО, И ИХ РОЛЬ В РАССЛЕДОВАНИИ МОШЕННИЧЕСТВ, СОВЕРШЕННЫХ С ИСПОЛЬЗОВАНИЕМ КОМПЬЮТЕРНОЙ ТЕХНИКИ 140 KB
  В уголовном праве личность обвиняемого изучается при помощи анализа признаков субъекта преступления. Что касается факультативных признаков субъекта преступления то они должны указываться в диспозициях норм Особенной части Уголовного кодекса и являются признаками ...
71788. К ВОПРОСУ О РАЗГРАНИЧЕНИИ ПОНЯТИЙ ДОЛЖНОСТНОГО ЛИЦА И ЛИЦА, ИСПОЛНЯЮЩЕГО УПРАВЛЕНЧЕСКИЕ ФУНКЦИИ, КАК СУБЪЕКТОВ ПРЕСТУПЛЕНИЙ ПРОТИВ ИНТЕРЕСОВ ГОСУДАРСТВЕННОЙ И МУНИЦИПАЛЬНОЙ СЛУЖБЫ ЛИБО СЛУЖБЫ В КОММЕРЧЕСКИХ И ИНЫХ ОРГАНИЗАЦИЯХ 99.5 KB
  Известно что частью преступлений экономической направленности и важным фактором совершения многих иных преступлений являются преступления против интересов государственной и муниципальной службы а также службы в коммерческих и иных организациях.
71789. ПОНЯТИЕ АКЦИИ И АКЦИОНЕРНОГО КАПИТАЛА ПО ПРАВУ США 94.5 KB
  Мнения о времени появления акций в США, о происхождении и сущности их в высшей степени разноречивы. Фремери (Fremery) относит появление акций ко времени возникновения первой Голландско-Ост-Индийской компании, т. е. к 20 марта 1602 г.
71790. ПОНЯТИЕ ЧЕСТИ И ДОСТОИНСТВА, ЕГО СОДЕРЖАНИЕ И РАЗВИТИЕ В РОССИЙСКОЙ ПРАВОВОЙ СИСТЕМЕ 195 KB
  Права человека органично вплетены в повседневную деятельность людей в их общественные отношения. Такие права как право на жизнь честь и достоинство личности свободу совести мнений убеждений автономию личной жизни право на участие в политических процессах необходимые условия...
71791. О ПОНЯТИИ АДМИНИСТРАТИВНОЙ ОТВЕТСТВЕННОСТИ 110.5 KB
  Обобщив наиболее распространенные в научной среде определения административной ответственности последнюю можно было бы предварительно определить как вид юридической ответственности которая выражается в применении органом управления должностным лицом административного наказания...
71792. ОСНОВАНИЯ ВОЗНИКНОВЕНИЯ, ИЗМЕНЕНИЯ И ПРЕКРАЩЕНИЯ НАЛОГОВЫХ ПРАВООТНОШЕНИЙ 75.5 KB
  Под таковыми понимаются факты фактические обстоятельства имеющие согласно закону юридическое значение в качестве правового основания условия необходимого для реализации нормы права. В налоговом праве можно выделять юридические факты двух видов действия бездействие и события.
71793. ОСОБЕННОСТИ ПРАВОВОГО РЕГУЛИРОВАНИЯ ЭКОНОМИКИ НА УРОВНЕ СУБЪЕКТОВ РОССИЙСКОЙ ФЕДЕРАЦИИ 134 KB
  Государственное регулирование экономики и его методы могут быть разными в различных государствах. Принципы такого разграничения устанавливаются Конституцией в ней же закреплены основные предметы ведения и полномочий отнесенные к компетенции Федерации и ее субъектов.
71794. ПОНЯТИЕ ПРАВА РЕГИОНАЛЬНОГО ИНТЕГРАЦИОННОГО ОБЪЕДИНЕНИЯ 229 KB
  Понятие права регионального интеграционного объединения имеет особое значение поскольку затрагивает соотношение полномочий объединения как международной организации с одной стороны и государств-членов с другой.