Страница 1 из 1
курсовая!очень надо!!!!!
Добавлено: 07 дек 2009, 01:13
ирчик
Разработать программу анализа текстового файла: определения частоты пары соседних символов в каждой строке и формирования файла частот построчно. Предусмотреть проверку существования исходного файла и файла частот с выдачей диагностических сообщений.
{еще очень надо написать протокол тестирования и отладки,какие ошибки были допущены в ходе работы с программой}
Re: курсовая!очень надо!!!!!
Добавлено: 07 дек 2009, 11:56
Хыиуду
И на чем вся эта радость?
Re: курсовая!очень надо!!!!!
Добавлено: 08 дек 2009, 20:14
ирчик
Хыиуду писал(а):И на чем вся эта радость?
да кстати!все это на Паскале...
Re: курсовая!очень надо!!!!!
Добавлено: 09 дек 2009, 11:22
Хыиуду
Код: Выделить всё
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 изменение регистра русских букв - дело нетривиальное.