попробую Арсен удалить, но никак не сегодня... Мне просто во вторник её сдавать, завтра английский, надо чего-нибудь выучить, то это вообще труба.
=)Ясно..мне общем то без разницы..ладно...незачто...если что обращайся...).
Так чего по поводу графиков таблицы кстати???
Таблицу смоу сделать..завтра...а вот насчёт графиков сомневаюсь..забыл как их делать текстовом режиме...
Ну хотя таблицу, это ништяк вообщебудет...
Арсен ну как там, то мне сдавать завтра?
Сейчас таблицой скину.
{Заголовок обьявление}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.
