Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на текстовые файлы
Автор: MAD-GTX 12.01.2008 0:20
Дан файл содержащий текст набранный заглавными английскими буквами. Провести частотный анализ текста, то есть указать (в %), сколько раз встречается та или иная буква. Помогите пожалуйста, препод двойку поставил за семестр и дал три задачи, одну нашел на форуме, одну решил сам. С этой никак не разберусь, ведь сначала надо подсчитать количество символов в тексте?
Автор: мисс_граффити 12.01.2008 0:52
ну... например:
заводишь массив:
letters = array['A'..'Z'] of integer;
обнуляешь его.
пока не кончится файл, считываешь из него строки - S. далее - как-то так:
letters[S[i]]:=letters[S[i]]+1;
sum:=sum+length(S);
//конец работы с файлом
for ch:='A' to 'Z' do
writeln(ch, ':', ((letters[ch]/sum)*100):4:2, '%');
код не проверяла, набросала прямо здесь.
и не делала проверок на наличие других символов - а они будут (пробелы как минимум).
Автор: MAD-GTX 12.01.2008 0:57
Спасибо! Но не очень понимаю, а как текст преобразовать в строку? Не, не могу разобраться, если можно поподробней и сильно не пинайте - я с 10 утра уже парюсь
Автор: compiler 12.01.2008 2:11
read(fi, s);{fi -- файловая переменная }
Автор: MAD-GTX 12.01.2008 2:28
Кто нибудь может разобраться и решить эту задачу ну оочень надо!
Автор: compiler 12.01.2008 2:36
мисс_граффити тебе ее уже решила:)
осталось только немного дописать. http://forum.pascal.net.ru/index.php?showtopic=3584 тебе в помощь...
Автор: MAD-GTX 12.01.2008 2:56
Ха! Разобрался, всем спс за ответы.
Program lab;
uses crt;
var letters:array[0..26] of word;
s:string;
t,all:word;
f:text;
begin
clrscr;
assign(f,'D:\File.txt');
reset (f);
read(f,s);
for t:=1 to length(s) do
if((upcase(s[t])>='A')and(upcase(s[t])<='Z')) then
begin
inc(letters[ord(upcase(s[t]))-ord('A')]);
inc(all);
end;
writeln('--------------------------------');
for t:=0 to 25 do
if(letters[t]>0)then
writeln(chr(t+ord('A')),': ',letters[t]:3,' ',letters[t]/all*100:3:0,'%');
Writeln;
writeln('all char: ',all);
readln;
end.
Автор: volvo 12.01.2008 3:01
Строка
readln(s);- просто лишняя... Без нее нет никаких ошибок, программа прекрасно работает (если файл состоит из одной строки... Если больше - то надо зациклить чтение строки из файла и подсчет количества букв...)
Автор: MAD-GTX 12.01.2008 3:17
Действительно обрабатывает только 255 символов! А как зациклить чтение из файла и подсчет букв? Ответьте пожалуйста!