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

r, Razdel: string;: array of string;

{$ R *. dfm}

TForm1. Button1Click (Sender: TObject);// Відкрити: TOpenDialog;: TextFile;: string;

. Clear;. Lines. Add ('');: = TOpenDialog. Create (self);. InitialDir: = GetCurrentDir;

// Тільки дозволені існуючі файли можуть бути обрані

openDialo g. Options: = [ofFileMustExist];

// Дозволено вибрати только.txt і.rtf файли

openDialog. Filter: =

'Text Files | *. txt; *. rtf';

// Діалоготкритіяфайла. Execute: = openDialog. FileName; (Tekst, Fail); (Tekst);

not eof (Tekst) do (Tekst, s);. Lines. Add (s);;. Lines. Delete (0);

;

;

TForm1. Button2Click (Sender: TObject);// Налаштування: TOpenDialog;: TextFile;: string;

Memo3. Lines. Count = 0 then Memo3. Lines. Add ('');: = TOpenDialog. Create (self);. InitialDir: = GetCurrentDir;

// Тільки дозволені існуючі файли можуть бути обрані

openDialog. Options: = [ofFileMustExist];

// Дозволено вибрати только.txt і.rtf файли

openDialog. Filter: =

'Text Files | *. txt; *. rtf';

// Діалоготкритіяфайла. Execute: = openDialog. FileName; (Tekst, Razdel); (Tekst);

not eof (Tekst) do (Tekst, s);. Lines. Add (s);;. Lines. Delete (0);

;; TForm1. Button3Click (Sender: TObject);// Пуск

, p, j, k, e, p1, h, x, t: integer;: array of string;: array of char;, s1: string;: string;: boolean;

. Clear; (slova, 0);// обнулення словника

setlength (razd, 0);// обнулення списку роздільників

i: = 0;: = 0;: = 1;

////////////////////////////: = memo3. Lines [0];// j <= length (s) do////

setLength (razd, p +1);//

razd [p]: = s [j];//// створення масиву з роздільниками

p: = p +1;//: = j +2;//;//

///////////////////////////(razd, length (razd) +1); [length (razd ) - 1]: = # 13; (razd, length (razd) +1); [length (razd) - 1]: = # 9;

: = 0;

j: = 1;

i: = 0;

t: = GetTickCount ();// початок відлік часу

whilei <> memo1. Lines. Count do: = memo1. Lines [i];// просмотрi-го рядка

('', s) = 1 do delete (s, 1,1);// удаляемотступи

{Щоб символ '-' б не ви...