Сколько раз в текстовом файле встречается каждая б, Курсовая... Опции

[Ксанка]

Ребят, я никак не разберусь, можете помочь мне в этом вопросе? Пожалуйста.....Курсовую через две недели сдавать....
Задание: Определить, сколько раз в текстовом файле встречается каждая буква....

Сообщение отредактировано: Ксанка - 21.05.2005 21:32

[volvo]

Дож,
можно проще:

const
  alpha: set of char =
    ['а' .. 'п', 'р' .. 'я', 'А' .. 'П', 'Р' .. 'Я', 'a' .. 'z', 'A' .. 'Z'];
var
 cnt: array[char] of integer;
 ch: char;
 f: file of char;
begin
 { open file ... }
 while not eof(f) do begin
   read(f, ch); inc(cnt[ch]);
 end;
 { close file ... }
 for ch := #32 to #255 do
   if ch in alpha then writeln('letter - ', ch, ' counter: ', cnt[ch]:4);
end.

Кстати, работать будет побыстрее, потому что наличие элемента во множестве определяется намного быстрее, чем проход по alphabet в поисках буквы...