SALAST / COMMONS

{ Лабораторная работа по АиСД }
{Александра Циммермана }
{Суть - реализация алгоритма сортировки }
{ методом СЛИЯНИЯ & СЛИЯНИЯ-подобных }
{ Typed at 20.09.1996 }
{модуль общих перем.,констант e.c. }

Unit Commons;

Interface
Uses WObjects,WinTypes,WinProcs;
{$D CopyRight '96 by A.Tsimmerman}
{$R SortAll}
{$I SortAll.inc}
Function GetMaxInCollection : Real;
Procedure Sh(W : Real;P : PChar);
Function Log2(X : Real) : Real;
Function TestTheWest (hWindow : hWnd;SortNo : Integer) : Boolean;
Function Solution (N : Word; PercentOfMax : Real) : Word;
Type TBig = Array [1..30000] Of Word;
PBig = ^TBig;

Const SortNum = 8;
MassiwTypes = 5;
MassiwTypes1 = 7;
Const SortCurrent : Word = 0;
Const
SortName : Array [0..SortNum] Of PChar =
('Отсутствует' ,'Естественным двухпутевым слиянием',
'Простой вставкой','Быстрая Хоара',
'Шелла(бинарный обмен)','"Пузырьком"(стандартный обмен)',
'Простым выбором','Бинарной вставкой','Интерполяционной вставкой');
Difficult : Array [0..SortNum] Of PChar =
('<НЕИЗВЕСТНА>','O(n*log2(n))','O(n^2)',
'O(n*log2(n))','O(n*log2(n)^2)','O(n^2)',
'O(n^2)', 'O(n^2)', 'O(n^2)');
HighLimit : Array [0..SortNum] Of PChar =
('<НЕИЗВЕСТНО>','30000', '4000',
'30000' ,'30000', '4000',
'4000' ,'9000', '9000');
HighLimitW : Array [0..SortNum] Of Word =
( 0, 30000 , 4000 ,
30000 , 30000 , 4000 ,
4000 , 9000, 9000);
TypeMassiw : Array [1..4] Of PChar =
('НЕТ','произвольный','возрастающий','убывающий');
SortBestTypeMassiw : Array [0..SortNum] Of Word =
(1,3,3,2,3,3,1,3,3);
SortWorstTypeMassiw : Array [0..SortNum] Of Word =
(1,2,4,3,2,4,1,4,4);
TypeRequare : Array [1..4] Of PChar =
(' ','Использует только исходный массив',
'Дополнительный массив длины N','Большой стек из-за рекурсивности');
SortTypeRequare: Array [0..SortNum] Of Word =
(1,3,2,4,3,2,3,2,2);
DirectionName : Array [0..1] Of PChar =
('обратное','прямое');
ElMas : Array [1..MassiwTypes] Of PChar =
('Могут быть совпадающие','Все различные','Все одинаковые',
'Benchmarck #1','Benchmarck #2');
ElDiap : Array [1..MassiwTypes1] Of PChar =
('Равномерно','Около среднего','M(A) = 10% от Mmax',
'M(A) = 25% от Mmax','M(A) = 50% от Mmax','M(A) = 75% от Mmax',
'M(A) = 90% от Mmax');
MaxNum : Word = 30000;
AppName : PChar = 'Sort';
HasMassiw : Boolean = False; {is really array exist ?}
Var Massiw,Field,Trans : PBig;
HasSoundAtAll : Boolean;
HasSound : Boolean;
HasBMP : Boolean;
Type
TParams = Record
Length : Array [0..5] Of Char;
Value : Array [0..5] Of Char;
Col : PCollection;
Sel : Integer;
Col2 : PCollection;
Sel2 : Integer;
LengthW: Word;
ValueW : Word;
End;
Var Params : TParams;

Type
TResult = Record
Method : Array [0..40] Of Char;
StElMas : Array [0..30] Of Char;
StElDiap: Array [0..30] Of Char;
Length : Array [0..5] Of Char;
Value : Array [0..5] Of Char;
SortTime: Array [0..9] Of Char;
Direction:Array [0..10] Of Char;
End;
Var Result : TResult;

Type TSortParams = Record
Direct : Word;
Reverse: Word;
SaveIt : Word;
End;
Var SP : TSortParams;

Type
TMInfo = Record
Col : PCollection;
Sel : Integer;
End;
Var MInfo : TMInfo;
Type
PGraphicPoint = ^TGraphicPoint;
TGraphicPoint = Record
_SortIndex : Word;
_ElMasIndex : Word;
_ElDiapIndex: Word;
_SortTime : Array [0..9] Of Char;
_SortTimeR : Real;
_LengthW : Word;
_ValueW : Word;
_Length : Array [0..5] Of Char;
_Value : Array [0..5] Of Char;
_DirIndex : Word;
End;

Var Graphic : PCollection;

Implementation

Function GetMaxInCollection : Real;
Var P : PGraphicPoint;
i : Integer;
Max : Real;
Begin
Max := 0.00;
For i := 0 To Graphic^.Count-1 Do
Begin
P := Graphic^.At(i);
If Max<P^._SortTimeR Then Max := P^._SortTimeR;
End;
GetMaxInCollection := Max;
End;

Procedure Sh(W : Real;P : PChar);
Var St :String;
Begin
Str(W:5:2,St);
St[Length(St)+1] := #0;
If MessageBox(0,PChar(Addr(St[1])),P,mb_OKCancel)
= id_Cancel Then Halt;
End;

Function TestTheWest (hWindow : hWnd;SortNo : Integer) : Boolean;
Begin
TestTheWest := True;
SortCurrent := 0;
If Params.LengthW > HighLimitW[SortNo] Then
If MessageBox(hWindow,'Заданный массив слишком длинный для этой сортировки.'#13#10'Прервать сортировку ?',
'Внимание!',mb_YesNo OR mb_IconQuestion) = idYes Then TestTheWest := False;
End;

Function Log2(X : Real) : Real;
Begin
Log2 := Ln(X)/Ln(2);
End;

Function Solution (N : Word; PercentOfMax : Real) : Word;
Begin
Solution := Round(N*(1 - Sqrt(1-PercentOfMax))/2);
End;

Begin
End.