Подсчет русских и английских букв в текстовом файле.

[Ветас]

Скажите, пожалуйста, каким образом можно подсчитать количество русских и английских букв в текстовом файле?

[puporev]

Для начала нужно четко определить, что такое русская буква, а что такое английская, например а,с,Н,о и т.д.

[Stilet]

Ветас

Ну загрузи файл в массив символов и в цикле пройди по каждому проверяя к какой части раскладки он относится, русской или латинской

[SNUPY]

Вот держи:

Const
   Eng='ABCDEFG....{ну и т.д.  весь алфавит короче}';
   Rus='АБВГДЕ...{таже самая мысль :D}';
...
Var F:TextFile;
     Adr:string;
     S:string;
     EngCount, RusCount:cardinal;
...
Function LanguageLetterCount(S,  LanguageAlphabet:string):Cardinal;
var
   I:cardinal;
begin
   Result:=0
   S:=Uppercase(S);
   For I:=1 to Length(S) do
   Begin 
      if Pos(S[i],LanguageAlphabet)>0 then Inc(result);
   End;
end;
....
Begin
   EngCount:=0; 
   RusCount:=0;

   Writeln('Адрес?');
   Readln(Adr); 

   AssingFile(f, Adr);
   Reset(f);

   While not EOF(f) do
   begin
      Readln(f,s);
      RusCount:=RusCount+LanguageLetterCount(Rus);
      EngCount:=EngCount+LanguageLetterCount(Eng);
   end;

   CloseFile(f);

   Writeln(RusCount);
   Writeln(EngCount);
end.

[Alter]

Вот ещё проще, с помощью множеств. SNUPY нелень ведь писать весь алфавит .
Код работает и на Паскаль, написано в Delphi. Надо только Диалог убрать, и вывод консольный сделать, и запрос пути чрез Read или ReadLN.

[SNUPY]

Ну если на то пошло, то можно вообще взять код символа и сделать здвиг на N))))

[Askar_g]

Const
   Eng='A..Z';
   Rus='А..Я';

Так тоже можно.