Несмотря на запрет азартных игр в нашей стране, существует огромное количество людей, которые волей судьбы вынуждены играть в эти игры как минимум шесть раз в год. Эти люди – студенты. Хотя ни один преподаватель не предполагает, что его экзамен является лотереей, студенты делают все, чтобы это было правдой. Самое интересное, что в отличие от «6 из 36» вероятность выигрыша студент может выбрать по своему усмотрению: все зависит от количества выученных вопросов. Почему бы не сделать свои шансы стопроцентными и не выучить все вопросы? Ответ на этот вопрос (далее…)
№ 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. Посчитать сколько раз встретилась нижняя и верхняя граница в полученных числах. На основе данных определить частоту встречаемости.
