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

12.05.2016, 13:36. Показов 656. Ответов 0

Метки нет (Все метки)

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

Программа запрашивает имя файла, в котором вы хотите
пересчитать количество русских букв. Файл должен быть
в текущем каталоге. После чего программа пересчитывает
буквы независимо от регистра (заглавные и строчные).
Кроме того Пробел считается тоже буквой. Наконец программа
создает файл OTV.txt, в котором записан русский алфавит и
напротив количество каждой буквы в тексте (в верхней строке
число пробелов) Особый интерес программа может представить
для тех, кто интересуется криптографией...

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
REM
REM  Программа подсчитывает количество русских букв
REM  в тексте и распечатывает их в файле OTV.txt
REM
 
CLS
DIM nam AS STRING
DIM SHARED S AS STRING
DIM b AS STRING
DIM N(191 TO 223)
INPUT "NAME = "; nam
 
OPEN nam + ".txt" FOR INPUT AS #1
OPEN "OTV.txt" FOR OUTPUT AS #2
 
DO
   LINE INPUT #1, S
 
   FOR i = 1 TO LEN(S)
      b = MID$(S, i, 1)
      kod = ASC(b)
 
      IF kod = 32 THEN
         N(191) = N(191) + 1
      ELSEIF kod > 191 THEN
         IF kod >= 224 THEN kod = kod - 32
         N(kod) = N(kod) + 1
      END IF
   NEXT i
LOOP UNTIL EOF(1)
 
PRINT #2, "  = "; N(191)
 
FOR i = 192 TO 223
   PRINT #2, CHR$(i); " ="; N(i)
NEXT i
 
END

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

12.05.2016, 13:36

Ответы с готовыми решениями:

Замена русских букв на латинские в текстовом файле
Здравствуйте, нужно сделать прогу, чтобы в текстовике ру буквы меняло на англ. Например букву Б на B или букву Щ на SHH Думаую сделать...

В текстовом файле вместо русских букв знаки вопроса
Доброго времени суток форумчане. У меня такая проблемка: Решил попробовать какую нить ОС linux, посоветовали мне Kubuntu, ибо до этого...

Подсчитать число повторений в текстовом файле строчных русских букв
Дан текстовый файл с именем NameT. Подсчитать число повторений в нем строчных русских букв ("а"–"я") и создать...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

12.05.2016, 13:36

Помогаю со студенческими работами здесь

Подсчёт букв в текстовом файле
Разработать программу, которая читает текстовый файл и проводит частотный анализ текста, т. е. указывает (в процентах), сколько раз...

Подсчет и сравнение количества букв ‘А’ и ‘О’ в текстовом файле
Составить программу подсчета и сравнения количества букв ‘А’ и букв ‘О’ в заданном текстовом файле произвольной длины. Результат оформить...

Подсчет заглавных русских букв в файле и вывод их в виде сообщения. Несоответствие типов
Программа подсчитывает заглавные русские буквы в файле и выводит их в виде сообщения. В конце говорит про несоответствие типов, но как?...

Перевод русских букв на латиницу и подсчёт количества букв
Написал программу в паскале, которая переводит при вводе имени русские буквы на латиницу и считает количество букв , но выдаёт непонятную...

Подсчет русских букв в строке
Всем привет :) Есть такая задача: Ввести с клавиатуры строку. Определить, сколько в этой строке гласных, согласных, строчных и прописных...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Наверх