Сортировка-метод вставок

[diliana]

Приветик всем!

Вот мое задание
сортировка массивов - вставками:
1. создать исходный массив случайных целых чисел с заданным числом элементов
2. вывод исходного массива на экран
3. исходный массив должен обрабатываться с подсчетом и выводом фактического числа выполненных сравнений и пересылок. Все действия оформляются как подпрограммы.

Я практически все сделала, только не знаю как сделать третий пункт.

Подскажите пожалуста, как это сделать

program Project_Sort;

const
  max=10000;
type
  TMassivInt=array [1..max] of integer;
var
  massiv: TMassivInt;
  key: byte;
  x:integer;

{сгенерировать исходный массив}
Procedure Create(var massiv: TMassivInt; n:integer);
var
  i: integer;
begin
  writeln ('Sozdat massiv');
  write ('Zadat chislo elementov v massive: ');
  readln (n);
  Randomize;
  for i := 1 to n do massiv[i]:=random (100);{генерация массива случайных чисел}
  writeln ('sozdan!');
  writeln;
end;

{вывод}
Procedure Show(var massiv: TMassivInt; n:integer);
var
  i: integer;
begin
  writeln ('Prosmotr massiva');
  write ('Vvesti chislo elementov v massive: ');
  readln (n);
  write ('Prosmotr: ');
  for i := 1 to n do Write (massiv[i],' ');{вывод на экран}
  writeln;
  writeln;
end;

{сортировка метод: вставок }
procedure Sort(var massiv: TMassivInt; n:integer );
var
  i, j, temp:integer;
begin
  writeln ('Sortirovka massiva');
  write ('Vvesti chislo elementov v massive: ');
  readln (n);
  for i:=2 to n do
  begin
   temp:=massiv[i];
   j:=i-1;
    while (j>=1) and (massiv[j]>temp) do
     begin
      massiv[j+1]:=massiv[j];
      j:=j-1;
     end;
   massiv[j+1]:=temp;
  end;
end;

BEGIN
 Repeat
 Writeln ('===================');
 Writeln ('PROGRAM Sortirovka');
 Writeln ('===================');
 Writeln ('1: Sozdat massiv');
 Writeln ('2: Prosmotr massiva');
 Writeln ('3: Sortirovka massiva');
 Writeln ('0: Exit');
 Writeln ('===================');
 Write('Vibrat kommandu: ');
 Readln (key);
   case key of
    1: Create (massiv, x);
    2: Show (massiv, x);
    3: Sort (massiv, x);
   end;
 until key=0;
end.

[Stilet]

с подсчетом и выводом фактического числа выполненных сравнений и пересылок.

Насколько я понял, тебе просто нужно подсчитывать сколько раз выполнится строка massiv[j+1]:=massiv[j];
Т.е. введи туда переменку:

var cnt:integer;
...
 while (j>=1) and (massiv[j]>temp) do
     begin
      massiv[j+1]:=massiv[j];
      inc(cnt);
      j:=j-1;
     end;
...
Write('фактическое число выполненных сравнений и пересылок',cnt);

[puporev]

Write('фактическое число выполненных сравнений и пересылок',cnt);

Количество сравнений и пересылок это не одно и тоже. Например в отсортированном в нужном направлении массиве из 10 элементов сравнений будет 9, а пересылок 0, в массиве отсортированном в обратном направлении сравнений тоже будет 9, а пересылок 63.

[Anatole]

diliana Разрешите небольшой совет: Сделайте описание процедуры следующим образом:

Procedure Create(var massiv: TMassivInt; var n:integer);

Тогда привыходе из процедуры у вас сохранится значение количества введённых элементов в основной программе и отпадёт необходимость в каждой последующей процедуре его спрашивать заново.

[Stilet]

puporev

Лады. Тогда так:

  
Var Cnt,Cnt2:integer;
...
for i:=2 to n do
  begin
   temp:=massiv[i];
   j:=i-1;
   inc(cnt1);
    while (j>=1) and (massiv[j]>temp) do
     begin
      massiv[j+1]:=massiv[j];
      j:=j-1;
   inc(cnt2);
     end;
   massiv[j+1]:=temp;
  end;
...
Write('фактическое число выполненных сравнений ',cnt2,' и пересылок',cnt1);

[diliana]

puporev
Anatole
Stilet
спасибо вам за внимание и помощь

а вот так правильно?

{сортировка методом вставок}
procedure Sort(var massiv: TMassivInt; var n:integer );

[Stilet]

а вот так правильно?

Результат выдает правильный? Если да то танцуй

[diliana]

а вот так правильно?

себе же отвечаю - нет неправильно!

[puporev]

Здесь
massiv[j+1]:=temp;
добавить
inc(pr);
Сравнения пишем 1 раз, когда идем по массиву, а присваивания 2 раза, пому что сначала присваиваем значение одному элементу другого, а потом наоборот.

[Stilet]

Вот подкрутил:

program Project1;

uses
  Crt;

const
  max=10000;
type
  TMassivInt=array [1..max] of integer;
var
  massiv: TMassivInt;
  key: byte;
  x:integer;

{сгенерировать исходный массив}
Procedure Create(var massiv: TMassivInt; n:integer);
var
  i: integer;
begin
  //readln (n);
begin
  //readln (n);
  Randomize;
  for i := 1 to n do massiv[i]:=random (100);{генерация массива случайных чисел}
  writeln ('sozdan!');
  writeln;
end;

{вывод}
Procedure Show(var massiv: TMassivInt; n:integer);
var
  i: integer;
begin
  for i := 1 to n do Write (massiv[i],' ');{вывод на экран}
  writeln;
  writeln;
end;

{сортировка метод: вставок }
procedure Sort(var massiv: TMassivInt; n:integer );
var
  q,w,i, j, temp:integer;
begin  q:=0;w:=0;
  for i:=2 to n do
  begin     inc(q);
   temp:=massiv[i];
   j:=i-1;
    while (j>=1) and (massiv[j]>temp) do
     begin  inc(w);
      massiv[j+1]:=massiv[j];
      j:=j-1;
     end;
   massiv[j+1]:=temp;
  end;
  writeln;write('itterrations=',q,' whiles=',w);writeln;
end;

BEGIN
  x:=5;
    Create (massiv, x);
    Show (massiv, x);
    Sort (massiv, x);
    Show (massiv, x);
    readln;
end.

Увидела свои ошибки?