тування' + FormatFloat ('0 .00000000000 ', (T2 - T1)/iCounterPerSec) +' сек. ', mtInformation, [mbOK], 0);. Lines.Clear; i: = 1 to kol do.Lines.Add (mas [i]) ;; TMainForm.Button3Click (Sender: TObject);, j, min: integer;: String; (iCounterPerSec); (T1); i: = 1 to kol-1 doj: = 1 to kol-i domas [j +1 ] = 0) and (mas [j]> temp) do [j +1]: = mas [j];: = j-1; [j +1]: = temp;; ( T2); CheckBox1.Checked = true then ('Час сортування' + FormatFloat ('0 .00000000000 ', (T2 - T1)/iCounterPerSec) +' сек. ', mtInformation, [mbOK], 0);. Lines.Clear; i : = 1 to kol do.Lines.Add (mas [i]);; TMainForm.Button5Click (Sender: TObject);, j, min: integer;: array [0 .. 10000] of String;: array [0. .10000] of integer; (iCounterPerSec); (T1); i: = 1 to kol do [i]: = 0; i: = 1 to kol-1 doj: = i +1 to kol domas [i] < mas [j] then (count [j]) (count [i]);; i: = 1 to kol do [count [i]]: = mas [i]; (T2); CheckBox1.Checked = true then ( 'Час сортування' + FormatFloat ('0 .00000000000 ', (T2 - T1)/iCounterPerSec) +' сек. ', mtInformation, [mbOK], 0);. Lines.Clear; i: = 1 to kol do [i]: = temp [i-1];. Lines.Add (mas [i]);;; TMainForm.Button6Click (Sender: TObject);, i, j: integer;: word;: String; (iCounterPerSec); (T1) ;: = kol div 2; d> 0 doi: = 0 to kol-d do: = i; (j> = 0) and (mas [j]> mas [j + d]) do: = mas [j]; [j]: = mas [j + d]; [j + d]: = temp;: = jd;;;: = d div 2;; (T2); CheckBox1.Checked = true then (' Час сортування '+ FormatFloat ('0 .00000000000', (T2 - T1)/iCounterPerSec) + 'сек.', mtInformation, [mbOK], 0);. Lines.Clear; i: = 1 to kol do.Lines.Add ( mas [i]);; TMainForm.Button7Click (Sender: TObject);: String;, line: integer;: array [0 .. 10000] of String; Memo1.Text <>'' theni: = 1 to Memo1 . Lines.Count do [i]: = Memo1.Lines [i-1];: = Memo1.Lines.Count; ('Не введений список!', mtWarning, [mbOK], 0); LE_Shablon.Text ='' then ('Не заданий шаблон пошуку', mtWarning, [mbOK], 0): = LE_Shablon.Text; i: = 1 to kol dotemp [i] = str then; i <= kol then.SelStart: = Memo1.Perform (EM_LINEINDEX, i-1, 0);. SelLength: = Length (Memo1.Lines [i-1]);. SetFocus; ('Шаблон пошуку не знайдено!', mtWarning, [mbOK], 0);;; TMainForm . Button9Click (Sender: TObject);, high, mid, i: integer;, flag: boolean;: String;
begin
// перевірка на отсортірованності.
flag: = true;
for i: = 1 to kol-1 domas [i]> mas [i +1] then: = false;;;; flag thenLE_Shablon.Text ='' then ('Не заданий шаб...
