Текстовый файл Опции

[Rocket]

Дан текстовый файл. Посчитать число повторений в нём строчных английских букв ("a"-"z") и создать строковый файл, элементы которого имеют вид "буква"-"число повторений буквы". Буквы,отсутствующие в тексте не включать. Строки упорядочить по возрастанию кодов букв.

Подскажите метод решения или натолкните на мысль.

[Артемий]

Ну попробуй вот так, если то..

var
arr: array [1..20] of string[255];
ch,c: Char;
count,d,a,i,o: Integer;
st,s: String;
t: text;
fs: file of string[255];
begin
a:=0; o:=0; count:=0;
assign(t,'ban.dat');
assign(fs,'words.dat');
reset(t);
rewrite(fs);
while not eof(t) do begin
 Inc(a);
 readln(t,arr[a]);
end;
for ch:='a' to 'z' do begin
 for d:=1 to 20 do begin
  st:=arr[d];
  if not (st='') then begin
  repeat
   inc(o);
   if st[o]=ch then begin inc(count); end;
  until o=length(st);
  o:=0;
  end else Break;
 end;
if not (count=0) then begin
str(count,s);
s:='Word '+ch+' - '+s+' raz.';
write(fs,s);
count:=0;
end else count:=0; Continue;
end;

Добавлено через 5 мин.

Строки упорядочить по возрастанию кодов букв.

Пока сделано без этого

Сообщение отредактировано: Артемий2 - 11.03.2007 16:55

[Rocket]

Что-то она не работает...Ничего не записывает в новый файл... А по алфавиту вроде бы должна раставлять.

Сообщение отредактировано: volvo - 14.01.2009 10:04