Mail

В этот день много лет назад...
26 ноября. В 1976 году (48 лет назад) - В США регистрируется торговая марка "Майкрософт".

Turbo Pascal Examples

Графика:
Построение графика функции
Прыгающий по экрану мячик.
Качание маятника.
Вложенные цветные круги.
Броуновское движение. Использование объектов.
Матрицы и массивы:
Сортировка элементов массива.
Удаление одинаковых элементов.
Простой пример на поворот матрицы.
Сортировка методом Шелла. +функции измерения временных интервалов.
Проверка выпуклости многоугольника.
Перемоножение матриц
Вычисление определителя матрицы. Рекурсия.
Нахождение обратной матрицы.
Задача об автостоянке.
Рекурсия. Подземелье сокровищ.
Численные методы:
Задачка на определение угла между стрелками часов.
Проверка на принадлежность точки многоугольнику.
Нахождение точки пересечения двух отрезков на плоскости.
Сортировка методом Шелла. +функции измерения временных интервалов.
Сортировка методом "пузырька". Пример на динамические структуры данных. Связанные списки.
Нахождение корня функции методом половинного деления.
Вычисление арккосинуса
Нахождение суммы цифр натурального числа.
Работа с фалами:
Рекурсивное сканирование директорий.
Работа со строками:
Работа со словами в предложении с разделителями.
Простейший синтаксический анализатор для распознавания и вычисления многчлена.
Синтаксический анализатор для распознавания и вычисления многчлена.
Работа со строками: смена кодировки, удаление тегов из HTML текста, обработка
Переименование файлов из кириллицы в латиницу.
Выдача контекстной подсказки.
Частотный словарь символов.
Подсчет повторяющихся символов в строке.
Ссылочные переменные:
Моделирование стека.
Пасьянс "Косынка".
Игры:
Пасьянс "Косынка".
Игра "Питон"
Игра "Анацефал". Пример использования объектов.
Игра "Минное поле"
Большие проекты:
Электронная картотека (без исходника)

Подсчет частоты повторения символов в тексте.
Есть текст. Для простоты будем считать, что он записан в файле text.txt. Задача состоит в подсчете частоты повторения каждой встреченной буквы в данном тексте.
Задача сама по себе не очень сложна. Однако, мне доставило истинное удовольствие просчитать частоты повторений той или иной буквы для различных текстов. Для этого я даже написал еще одну программу для переформатирования текста. Данные по частотам я привожу в таблице внизу.
В свое время я читал книгу Ч. Уэзерелла "Этюды для программистов", в котором один этюд мне вспомнился в связи с этой программой. Речь идет о криптографии. Частоты символов могут помочь раскрыть простейший шифр, который образуется путем простой замены (вернее сдвига) одних букв на другие. Ну, например, пусть есть два алфавита:
АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
ЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯАБВГДЕЁЖЗИ
Записав текст, заменяя каждую букву верхнего ряда на букву нижнего, мы получим совершенно не читаемый текст, который может быть прочитан, если у вас есть значение "сдвига". Беспорядочно перемешав нижний алфавит, можно усложнить шифр, тогда замена будет не такой тривиальной как сдвиг. Однако такой шифр легко раскрывается для достаточно больших текстов, в которых частота повторения букв будет близкой к стандартной. Экспериментально найти это стандартное распределение может данная программа.

const d=59;
var f:text;
    s,al,al_u:string;
    fr:array[1..d] of longint;
    k,i:byte;
    ncom:longint;
  begin
  al_u:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ';
  al  :='абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz';
  for i:=1 to d do
    fr[i]:=0;
  ncom:=0;
  assign(f,'text.txt');
  reset(f);
  while not eof(f) do
    begin
    readln(f,s);
    for i:=1 to length(s) do
      begin
      k:=Pos(s[i],al_u);
      if (k=0) then k:=Pos(s[i],al);
      if (k>0) then
        begin
        inc(ncom);
        inc(fr[pos(s[i],al)]);
        end;
      end
    end;
  close(f);
  assign(f,'freq.txt');
  rewrite(f);
  for i:=1 to d do
    writeln(f,i:2,' ',al[i],':',fr[i]/ncom:7:5,' ',fr[i]:8);
  writeln(f,' Total: ',ncom,' letters');
  close(f);
  end.

	Текст 1	Текст 2	Текст 3	Текст 4	Мастер и Маргарита	Песни Окуджавы	Гарри Поттер 1	Гарри Поттер 4
а	0.08882	0.08075	0.08154	0.08140	0.08465	0.07898	0.07839	0.07899
б	0.01659	0.01341	0.01389	0.01354	0.01453	0.01815	0.01599	0.01651
в	0.04655	0.04582	0.04479	0.04570	0.04471	0.04270	0.03802	0.03937
г	0.01445	0.01538	0.01614	0.01551	0.01850	0.01724	0.01717	0.01750
д	0.03371	0.02540	0.02438	0.02529	0.02729	0.03095	0.03000	0.02901
е	0.08293	0.08190	0.08105	0.08212	0.08094	0.08497	0.07834	0.07148
ё	0.00000	0.00005	0.00003	0.00006	0.00001	0.00000	0.00008	0.00511
ж	0.00803	0.00665	0.00609	0.00656	0.00893	0.00999	0.00903	0.00907
з	0.01766	0.01425	0.01464	0.01440	0.01746	0.01518	0.01685	0.01720
и	0.05832	0.07620	0.07433	0.07493	0.06632	0.05871	0.06657	0.06821
й	0.00696	0.01547	0.01568	0.01515	0.01172	0.01515	0.01006	0.00917
к	0.03210	0.03200	0.03398	0.03249	0.03507	0.03848	0.03236	0.03063
л	0.02943	0.03480	0.03482	0.03388	0.05204	0.04015	0.05430	0.05307
м	0.03745	0.02651	0.02491	0.02534	0.02809	0.02976	0.02972	0.03186
н	0.05993	0.06110	0.06000	0.06132	0.06154	0.06047	0.06086	0.06041
о	0.09684	0.09434	0.09303	0.09365	0.10943	0.09653	0.10879	0.11070
п	0.02461	0.02615	0.02571	0.02565	0.02631	0.02556	0.02622	0.02663
р	0.05190	0.05682	0.05558	0.05649	0.04697	0.04490	0.05216	0.05420
с	0.05993	0.05366	0.05202	0.05210	0.04932	0.04895	0.04917	0.05133
т	0.05832	0.05695	0.05385	0.05627	0.05914	0.06043	0.05690	0.05544
у	0.02033	0.02110	0.02078	0.02110	0.02975	0.02930	0.02860	0.02882
ф	0.00321	0.00326	0.00293	0.00328	0.00192	0.00102	0.00265	0.00182
х	0.00856	0.00779	0.00715	0.00712	0.00812	0.00930	0.00741	0.00728
ц	0.00321	0.00618	0.00656	0.00578	0.00330	0.00283	0.00271	0.00290
ч	0.01017	0.00882	0.00907	0.00886	0.01551	0.01453	0.01444	0.01416
ш	0.00535	0.00506	0.00493	0.00487	0.00866	0.00897	0.00891	0.00803
щ	0.00054	0.00246	0.00213	0.00250	0.00352	0.00323	0.00302	0.00344
ъ	0.00054	0.00048	0.00062	0.00053	0.00032	0.00010	0.00028	0.00025
ы	0.01284	0.01502	0.01442	0.01433	0.01730	0.02330	0.01809	0.01723
ь	0.01391	0.00987	0.00948	0.00941	0.01776	0.02026	0.02030	0.01944
э	0.00214	0.00186	0.00167	0.00173	0.00271	0.00169	0.00263	0.00308
ю	0.00589	0.00702	0.00675	0.00689	0.00528	0.00801	0.00473	0.00505
я	0.01980	0.01833	0.01884	0.01924	0.01849	0.01963	0.01969	0.01917
всего букв	1869	275829	202570	221570	598192	89382	358778	860815

Прислано strike

Нижеследующая таблица- результат исследования > 10 МБ текста (преимущественно компьютерного). Возможно она окажется кому-то полезной. (Таблица взята из книги Е.П. Липко "Практикум по программированию")

символ            о       е       а       и       т       
на 10000          974     910     805     776     653     

символ            н       р       с       в       л  
на 10000          631     540     513     438     384

символ            м       п       к       д       ы  
на 10000          362     341     335     297     228

символ            я       у       з       б       ь  
на 10000          227     223     177     148     137

символ            г       ч       й       ж       ц  
на 10000          128     124     123     80      77 

символ            ю       х       ф       щ       ш 
на 10000          74      70      56      53      38

символ            э       ъ
на 10000          31      8

Средняя встречаемость букв на 10000 символов компьютерного текста