Реферат Програма частотного словника сполучень слів

очетаній з порожніми рядками замість слів}

k: = 0; k <= length (frazi) - 1 do: = length (frazi [k]); ('', frazi [k]) = p then begin for i: = K +1 to Length (frazi) - 1 do [i-1]: = frazi [i]; (frazi, Length (frazi) - 1); end; inc (k);

;

t: = GetTickCount () - t;// кінець виміру часу

{Сортування фраз по алфавіту}

repeat

priz: = false;

fori: = 0 to length (frazi) - 2 do: = pos ('.', frazi [i]) +8;: = pos ('.', frazi [i +1] ) +8;: = copy (frazi [i], p, length (frazi [i]));: = copy (frazi [i +1], p1, length (frazi [i +1])); (s> ; s1) then: = frazi [i]; [i]: = frazi [i +1]; [i +1]: = buf;: = true;;; = false;

{Висновок словника в мемо}

Memo2. Clear;

fori: = 0 to length (frazi) - 1 do. Lines. Add ('');. Lines [i]: = frazi [i];;. Caption: = 'Времяработи t =' + inttostr (t);;

TForm1. Button4Click (Sender: TObject);// Зберегти: TSaveDialog;: = TSaveDialog. Create (self);. InitialDir: = GetCurrentDir;

// Разрешаемсохранятьфайлытипа.txt і.rtf. Filter: = 'Text Files | *. Txt | Text Files | *. Rtf';

// Відображення діалог збереження файлу

ifsaveDialog. Execute: = saveDialog. FileName;. Lines. SaveToFile (Slvr);;;

TForm1. Button5Click (Sender: TObject);// Сортування, p, p1: integer;, s, s1: string;: boolean;

{Сортіровкапоалфавіту} RadioGroup1. ItemIndex = 0 then begin: = false;: = 0 to length (frazi) - 2 do: = pos ('.', Frazi [i]) +8;: = pos ('.', Frazi [i +1] ) +8;: = copy (frazi [i], p, length (frazi [i]));: = copy (frazi [i +1], p1, length (frazi [i +1])); (s> ; s1) then: = frazi [i]; [i]: = frazi [i +1]; [i +1]: = buf;: = true;;; = false;

{Вивід в мемо}. Clear;: = 0 to length (frazi) - 1 do. Lines. Add ('');. Lines [i]: = frazi [i];;

begin

{Сортіровкапочастоте}: = false;: = 0 to length (frazi) - 2 do: = pos ('.', frazi [i]);: = pos ('.', frazi [ i +1]);

: = copy (frazi [i], 1, p-1);: = copy (frazi [i +1], 1, p-1); p

: = frazi [i]; [i]: = frazi [i +1]; [i +1]: = buf;: = true;; (s

{Вивід в мемо}. Clear;: = 0 to length (frazi) - 1 do. Lines. Add ('');. Lines [i]: = frazi [i];; end;;

TForm1. Button6Click (Sender: TObject);// Пошук: string;, k, j, p, p1: integer;, s1, buf: string;: boolean;. Caption: ='';: = false;: = 0 to length...