Арсен ну как там, то мне сдавать завтра?
Сейчас таблицой скину.
{Заголовок обьявление}uses crt;const size=10;Type arrType Array[1 .. size] Of Integer;type t1=array [1..size] of longint;var m,z:arrType; i:longint; A:t1;{массив, который сортируем} n: longint;{количество элементов массиве}{Процедура сортировки "Пирамидальная"}Procedure HeapSort(Var ar: arrType; n: Integer);Var i, Left, Right: integer; x: Integer; Procedure sift; Var i, j: Integer; Begin := Left; := 2*i; := ar[i]; While <= Right Do Begin If < Right Then If ar[j] < ar[Succ(j)] Then Inc(j); If >= ar[j] Then Break; ar[i] := ar[j]; := j; := End; ar[i] := End;Var T: Integer;Begin Left := Succ(n
магазин мужские футболки div 2); Right := n; While Left > Do Begin Dec(Left); sift End; While Right > Do Begin := ar[ Left ]; ar[ Left := ar[ Right ]; ar[ Right := T; Dec(Right); sift EndEnd;{Процедура сортировки "Хоара"}Procedure HoarFirst(Var ar: arrType; n: integer); Procedure sort(m, l: Integer); Var i, j, x, w: Integer; Begin := m; := l; := ar[(m+l) div 2]; Repeat While ar[i] < Do Inc(i); While ar[j] > Do Dec(j); If <= Then Begin := ar[i]; ar[i] := ar[j]; ar[j] := w; Inc(i); Dec(j) End Until > j; If < Then Sort(m, j); If < Then Sort(i,
магазин мужские футболки l) End;Begin sort(1, n)End;{Начало программы}begin n:=size;clrscr; randomize;Writeln('---Пирамидальная сортировка---');writeln('Сгенерировапнный начальный массив ');for i:=1 to size do begin m[i]:=random(30)-random(15)+random(45); write(m[i]:4); end;for i:=1 to size do z[i]:=m[i];heapsort(m,size);writeln;writeln('Отсортированный массив ');for i:=1 to size do write(m[i]:4);writeln; writeln('----------------------------------------'); Writeln('---Метод сортировки Хоара---'); writeln('Сгенерировапнный начальный массив ');for i:=1 to size do begin m[i]:=z[i]; write(m[i]:4); end;hoarfirst(m,size);writeln;writeln('Отсортированный массив ');for i:=1 to size do write(m[i]:4);writeln; writeln('----------------------------------------'); writeln('Таблица 1.'); writeln(' Min Avg Max |'); writeln('Сортировка Хоара|',(size-7)*ln(size):3:3,' |',(size-5)*ln(size):3:3,' |',size*ln(size):3:3,' |'); writeln('Пирамидальная |',2*i*size-7*ln(size):3:3,' |',2*i*size-5*ln(size):3:3,'|',2*i*size*ln(size):3:3,'|'); readkey;end.
Ээээээ)) и мне как капитану)).
Так нечестно!!! Кстати, у малого 1 февраля день рождения. Команда, это я, так сказать, немного намекаю............
Ну вот и решили))) Мне, Ваньке и Вадику))).
А вам как начнете нормально работать и перестаните спорить с нами).