Отсортировать одномерный массив бинарным методом

Категория: Delphi/Pascal
2011-09-04 15:55:33

Отсортировать одномерный массив А[n] бинарным методом (n=30). Массив получить с помощью генератора псевдослучайных чисел.

code: #pascal
  1. program sort2;
  2.  uses crt;
  3.  const max_n=100;
  4.  type
  5.  mass=array[1..max_n] of integer;
  6.  var
  7.  a:mass;
  8.  p,k,i,j,n:integer;
  9.  begin
  10.   clrscr;
  11.   randomize;
  12.   textcolor(lightcyan);
  13.   write('VVEDITE RAZMERNOSTY MASSIVA->>>');
  14.   textcolor(yellow);
  15.   readln(n);
  16.   textcolor(lightcyan);
  17.   write('a{');
  18.   textcolor(yellow);
  19.   for i:=1 to n do begin
  20.   a[i]:=random(100);
  21.   write(a[i],' ');
  22.  end;
  23.   textcolor(lightcyan);
  24.   writeln('}');
  25.   for i:=2 to n do
  26.   for j:=1 to i-1 do
  27.   if a[i]<a[j] then begin
  28.   p:=a[i];
  29.   for k:=i-1 downto j do
  30.   a[k+1]:=a[k];
  31.   a[j]:=p;
  32.  end;
  33.   textcolor(lightcyan);
  34.  write('a{');
  35.   textcolor(yellow);
  36.   for i:=1 to n do
  37.  write(a[i],' ');
  38.   textcolor(lightcyan);
  39.  writeln('}');
  40.  readkey;
  41.  end.
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, студенты, консольное приложение, сортировка, бинарный метод