Задача на текстовые файлы, Помогите решить, завтра последний день пересдачи..! Опции

[MAD-GTX]

Дан файл содержащий текст набранный заглавными английскими буквами. Провести частотный анализ текста, то есть указать (в %), сколько раз встречается та или иная буква. Помогите пожалуйста, препод двойку поставил за семестр и дал три задачи, одну нашел на форуме, одну решил сам. С этой никак не разберусь, ведь сначала надо подсчитать количество символов в тексте?

[мисс_граффити]

ну... например:
заводишь массив:

letters = array['A'..'Z'] of integer;

обнуляешь его.
пока не кончится файл, считываешь из него строки - S. далее - как-то так:

Код

for i:=1 to length(S) do
  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]

Спасибо! Но не очень понимаю, а как текст преобразовать в строку? Не, не могу разобраться, если можно поподробней и сильно не пинайте - я с 10 утра уже парюсь

[compiler]

а как текст преобразовать в строку?

прчитать из файла

read(fi, s);{fi -- файловая переменная }

[MAD-GTX]

Кто нибудь может разобраться и решить эту задачу ну оочень надо!

[compiler]

мисс_граффити тебе ее уже решила:)
осталось только немного дописать. Файлы тебе в помощь...

[MAD-GTX]

Ха! Разобрался, всем спс за ответы.

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.

Сообщение отредактировано: MAD-GTX - 11.01.2008 23:14

[volvo]

Строка

readln(s);

- просто лишняя... Без нее нет никаких ошибок, программа прекрасно работает (если файл состоит из одной строки... Если больше - то надо зациклить чтение строки из файла и подсчет количества букв...)

[MAD-GTX]

Действительно обрабатывает только 255 символов! А как зациклить чтение из файла и подсчет букв? Ответьте пожалуйста!