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

[Ксанка]

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

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

[Дож]

Код

Const letters=100;
        alphabet: array[1..letters] of char=
        ('А','Б','В','Г','Д','Е'.......,'x','y','z');
Var f              : file;
     letterNum : array[1..letter] of word;
...
...
While not(eof(f)) do begin
read(f,C);
j:=0;
While j<>Letters do begin
j:=j+1;
If alphabet[j]=C then letterNum[j]:=letterNum[j]+1;
end;
end;
...
...

В результате букв Alphabet[i] будет равно letterNum[i]. Но при этом решение не предусматриваются большие и маленькие буквы. Это является условием?
{Надеюсь, файл откроешь сама ;)}