Найти количество русских букв и количество цифр в текстовой строке

@Owod · Регистрация: 20.01.2014

Author24 — интернет-сервис помощи студентам

Найти количество российских букв и количество цифр в текстовой строке

@erl27 · 30.05.2014, 02:05

Pascal

var
  S: string;
  i, n, m: integer;
  
begin
  cls;
  writeln('Введите строку:');
  readln(S);
  n := 0; m := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then inc(n)
    else
    if s[i] in ['а'..'я'] then inc(m);
  writeln;
  writeln('Количество цифр: ', n);
  writeln('Количество русских букв: ', m)
end.

@Cyborg Drone · 31.05.2014, 01:44

erl27, поправка: для Unicode и CР 1251 правильно так:

Pascal

1	if s[i] in ['А'..'я', 'Ё', 'ё']

И ещё. На форуме до сих пор в ходу досовские версии паскаля, так что в целях совместимости неплохо бы учесть и CP 866:

Pascal

1	if s[i] in ['А'..'п', 'р'..'я', 'Ё', 'ё']

@erl27 · 31.05.2014, 03:38

Для PascalABC обычно пишу так:

Pascal

1	if LowCase(s[i]) in ['а'..'я']...

Но здесь что-то забыл, спасибо.

@Cyborg Drone · 31.05.2014, 04:13

erl27, опять Ё и ё забыли, они тоже русские буквы...

Добавлено через 4 минуты
Да и зачем LowCase, если русские буквы идут подряд от А (большого) до я (маленького) безо всяких инородных включений? Всё ж проще ['А'...'я'] без никакого LowCase. Правда, несчастная ё...

Новые блоги и статьи
Что такое внедрение зависимостей и для чего оно применяется bytestream 27.01.2025 В современной разработке программного обеспечения одной из ключевых проблем является управление зависимостями между различными компонентами системы. Внедрение зависимостей (Dependency Injection, DI). . .	Как установить cellpadding и cellspacing в CSS bytestream 27.01.2025 При создании веб-страниц с табличными данными разработчики часто сталкиваются с необходимостью правильного оформления внутренних и внешних отступов в таблицах. В традиционной разметке HTML для этих. . .	Чем отличаются public, protected, package-private и private в Java bytestream 27.01.2025 В языке программирования Java механизм модификаторов доступа играет ключевую роль в реализации одного из фундаментальных принципов объектно-ориентированного программирования - инкапсуляции. . . .	Зачем нужно explicit в C++. Преобразование типов bytestream 27.01.2025 В мире программирования на C++ управление преобразованием типов данных играет crucial роль в создании надежного и безопасного кода. Язык C++ предоставляет множество механизмов для контроля над. . .	Как создать удалённую (remote) ветку в Git bytestream 27.01.2025 Система контроля версий Git стала неотъемлемой частью современной разработки программного обеспечения, предоставляя разработчикам мощные инструменты для управления кодовой базой. Одним из ключевых. . .	Как создать утечку памяти в Java bytestream 27.01.2025 Утечка памяти в Java представляет собой ситуацию, когда программа неэффективно использует доступную память, удерживая ссылки на объекты, которые больше не нужны для работы приложения. Несмотря на. . .
КуМир: как решать задачи на числа bytestream 27.01.2025 КуМир (Комплект Учебных МИРов) представляет собой уникальную образовательную среду программирования, разработанную специально для обучения основам алгоритмизации и программирования. Эта система. . .	Исполнитель Черепаха в КуМир: как решать задачи bytestream 27.01.2025 Исполнитель Черепаха в системе КуМир представляет собой мощный образовательный инструмент, который помогает освоить основы программирования через визуальное представление результатов выполнения. . .	КуМир: как решать задачи на массивы bytestream 27.01.2025 Массивы представляют собой важнейшую структуру данных в программировании, и система КуМир предоставляет удобные инструменты для работы с ними. В контексте КуМир массив можно представить как. . .	[golang] 26. Remove Duplicates from Sorted Array alhaos 27.01.2025 Необходимо удалить дубликаты из предоставленного целочисленного отсортированного по взрастанию слайса, нужно изменить значения в слайсе и вернуть количество элементов. / / . . .	КуМир, исполнитель Робот. Решение задач bytestream 27.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения программированию, которая была создана в Отделении информатики Российской Академии наук. Эта система разработана. . .	Асинхронное программирование и async/await в JavaScript bytestream 27.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в современной разработке на JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока. . .

@Owod 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 20
		1
	Найти количество русских букв и количество цифр в текстовой строке 30.05.2014, 01:34. Показов 3577. Ответов 4 Метки нет (Все метки) Найти количество российских букв и количество цифр в текстовой строке 0

@Cyborg Drone Модератор 10092 / 5430 / 3359 Регистрация: 17.08.2012 Сообщений: 16,608
	31.05.2014, 04:13	5
	erl27, опять Ё и ё забыли, они тоже русские буквы... Добавлено через 4 минуты Да и зачем LowCase, если русские буквы идут подряд от А (большого) до я (маленького) безо всяких инородных включений? Всё ж проще ['А'...'я'] без никакого LowCase. Правда, несчастная ё... 0