Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 24.04.2007, 22:41   #1
гера
 
Регистрация: 14.04.2007
Сообщений: 5
По умолчанию Подсчёт русских букв в строках файла

{задан текстовый файл "a.txt". написать программу,
которая считает руские буквы в строках}
program ta;
uses wincrt;

Var f : text;
M:set of 'а'..'я';
i, k : byte;
c : char;
st : string;
Function Count (var f : text) : byte;
Begin k := 0;
Reset (f);
While not Eof (f) do begin
Readln (f, st);
for i := 1 to Length (st) do
if st [i] in ['а'..'я']

then M := M +[ st[i] ]
end;
For c :='а' to 'я' do if c in M then inc(k);
Count := k;
End;
Begin
Assign (f, 'a.txt');
Writeln ('Всего= ', Count(f));
Close (f);
End.



помогите сделать чтоб заглавные буквы тоже искались. я уже по-разному делала не получается((
гера вне форума Ответить с цитированием
Старый 25.04.2007, 00:19   #2
RSLoader
_________
Пользователь
 
Аватар для RSLoader
 
Регистрация: 27.03.2007
Сообщений: 69
По умолчанию

Так проще немного:
Код:
var
  f:Text;
  ch:Char;
  i:Integer;
begin
  Assign(f,'Text.txt');
  Reset(f);
  while not EOF(f) do
  begin
    Read(f,ch);
    if ch in [#192..#255,#168,#184] then Inc(i);
  end;
  Close(f);
  Writeln('Russkih bukv: ',i);
  Readln;
end.

Последний раз редактировалось RSLoader; 25.04.2007 в 21:18.
RSLoader вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсчет русских и английских букв в текстовом файле. Ветас Помощь студентам 6 15.01.2009 22:08
Ввод русских букв в Delphi Аццкий Нуп Помощь студентам 3 25.06.2008 22:27
Регистр для русских букв Kulibim Общие вопросы Delphi 2 28.10.2007 17:36
Подсчёт трафика Альберт Работа с сетью в Delphi 2 10.09.2007 10:35
Автонумерация при скрытых строках. DiVinyl Microsoft Office Excel 1 17.03.2007 18:02


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS