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

[MAD-GTX]

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

[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