Лабораторная работа на delphi
№ 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));
частота встречаемости
Далее идет обработка и подсчет открытого файла.
Читать далее »
Популярность: 9%
