Блог

Я не знаю, как сделать процесс сортировки видимым на выходе.. (как вы можете видеть шаг за шагом каждую фазу сортировки на выходе).

Ниже приведен пример аналогичной программы.

И вот мой текущий прогресс:

 program insertsort; const   max = 100;  type   arr = array [1..max] of integer;  var  data : arr;  n, i, j : integer;   procedure InsertionSort(size : integer);  var   i, j, index : integer;   begin  for i := 2 to size do  begin  index := data[i];  j := i;   while ((j gt; 1) and (data[j-1] lt; index)) do  begin  data[j] := data[j-1];  j := j - 1;  end;   data[j] := index;  end;   end;   begin  write('Input Data : ');   readln(n);   for i := 1 to n do  begin  write ('Data-',i,' = '); readln(data[i]);  end;    writeln;  write ('Unsorted : ');    for i := 1 to n do  write(data[i],' ');   InsertionSort(max);   writeln;  writeln;  writeln;  write('Sorted : ');    for i := 1 to n do  write(data[i],' ');    readln;  end.