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


 

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

80706. Lexicology as a branch of linguistics. Parts /branches of lexicology. The connection of lexicology with other branches of linguistics 32.51 KB
  Special lexicology – the lexicology of a particular language, i.e. the study and description of its vocabulary and vocabulary units, primarily words as the main units of language.; special lexicology is based on the principles worked out and laid down by general lexicology, a general theory of vocabulary. Special lexicology employs synchronic (q.v.) and diachronic (q.v.) approaches
80708. The word as an arbitrary and motivated sign. Naming. Types of motivation 34.58 KB
  The process of motivation depends on the inner form of the word. The inner form is central point in the lexical meaning which helps to get inside in to the features chosen as the basis of nomination. In linguistics the term MOTIVATION is used to denote the relationship
80709. Бухгалтерская отчетность 121.5 KB
  Бухгалтерская отчетность Адреса и сроки представления бухгалтерской отчетности Состав бухгалтерской отчетности Статистическая отчетность Срок хранения первичных документов Исправление бухгалтерских ошибок. Адреса и сроки представления отчетности Все организации за исключением бюджетных представляют годовую бухгалтерскую отчетность в соответствии с учредительными документами учредителям участникам организации или собственникам ее имущества а также территориальным органам государственной статистики по месту их регистрации...
80710. Учетная политика предприятия 125 KB
  Под учетной политикой организации понимается принятая ею совокупность способов ведения бухгалтерского учета первичного наблюдения стоимостного измерения текущей группировки и итогового обобщения фактов хозяйственной деятельности. К способам ведения бухгалтерского учета относятся способы группировки и оценки фактов хозяйственной деятельности погашения стоимости активов организация документооборота инвентаризации способы применения счетов бухгалтерского учета системы учетных регистров обработки информации и иные соответствующие...
80711. Малые предприятия: бухгалтерский учет и особенности налогообложения 122.5 KB
  Малые предприятия: бухгалтерский учет и особенности налогообложения Основные понятия о малом предпринимательстве Условия и показатели для применения упрощенной системы налогообложения Условия для применения простой формы бухгалтерского учета Ведение учета частными предпринимателями Изменения в налогообложении в связи с введением единого налога на вмененный доход Основные понятия о малом предпринимательстве...
80712. Бухгалтерский учет и его основные задачи 69.5 KB
  Основной целью хозяйственного учета является формирование качественной и своевременной информации о финансовой и хозяйственной деятельности предприятия, необходимой для управления рыночной экономикой, для подготовки, обоснования и принятия управляющих решений на различных уровнях, для определения поведения на рынке, определения своего места среди конкурентов и т.п.
80713. Бухгалтерский баланс 75.5 KB
  Понятие и виды бухгалтерского баланса Строение бухгалтерского баланса. Понятие и виды бухгалтерского баланса. Учетное понятие баланса это момент счетного отражения имущественного состояния хозяйства. Составлением вступительного организационного баланса открывается ведение бухгалтерского учета на данном предприятии.
80714. Система счетов и двойная запись 64 KB
  Понятие о счетах БУ и двойной записи. Понятие о счетах бухгалтерского учета и двойной записи Для текущего учета и контроля используется система счетов БУ. Счет это также накопитель информации который затем обобщается и используется для составления различных сводных показателей и отчетности СЧЕТ Д К Для обозначения остатков на счетах БУ пользуются термином сальдо Для отражения хозяйственных операций на счетах необходимо документальное подтверждение в качестве которого могут быть бумажные первичные документы магнитные носители и т. В...