№ 2. Задание: Написать приложение, с помощью которого можно открыть любой текстовый файл и рассчитать частоту встречаемости букв. По полученному результату строить график (диаграмму) в отдельном окне программы.
Решение: В качестве отдельного окна я использовал отдельную форму создаваемую через меню File -> New -> Form. После этого поместил в раздел uses, сразу после implementation в unit1 uses unit2; , а в unit2 uses unit1;. В обработчике события создании формы написал код заполнения алфавитом стринггрид. Этот цикл заполняет stringgrid русскими буквами, рассчитывая их ASCII код.
for i:=0 to 32 do
stringgrid1.Cells[0,i]:=(chr(i+224));
частота встречаемости
Далее идет обработка и подсчет открытого файла. (далее…)
Задание. Заполнить массив StringGrid случайными числами. Нижняя граница заполнения выбирается случайно, верхняя тоже. Через функцию random. Посчитать сколько раз встретилась нижняя и верхняя граница в полученных числах. На основе данных определить частоту встречаемости.
