курсовая!очень надо!!!!!

[ирчик]

Разработать программу анализа текстового файла: определения частоты пары соседних символов в каждой строке и формирования файла частот построчно. Предусмотреть проверку существования исходного файла и файла частот с выдачей диагностических сообщений.

{еще очень надо написать протокол тестирования и отладки,какие ошибки были допущены в ходе работы с программой}

[Хыиуду]

И на чем вся эта радость?

[ирчик]

И на чем вся эта радость?

да кстати!все это на Паскале...

[Хыиуду]

Код: Выделить всё

var frequencies:array[A..Z, A..Z] of integer;
var c1, c2: char; s:string; i:byte;
...
Открыли файл f для чтения
while not(eof(f)) do
begin
  readln(f,s);
  c1:=s[1];
  for i:=2 to length(s) do
  begin
    c2:=s[i];
    inc(frequencies[upcase(c1),upcase(c2)]);
    c1:=c2;
  end;
end;

Не забудьте предусмотреть свою функцию Upcase, если обрабатываете тексты на русском языке. В OEM-866 изменение регистра русских букв - дело нетривиальное.