Подсчет букв в файле.

@Дмитрий90 · Регистрация: 12.11.2009

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

привет! ребята, помогите кто-нибудь, бьюсь третий день над программой

, не получается.
если кто может, помогите: нужно написать программу которая выдает количество букв из текстового файла всего алфавита( пример: а=4 б=7 в=9 г=2 и так далее...), а потом двух буквенная комбинация(пример: аа=0 аб=0 ав=1 .... и так до яю=0 яя=0).
заранее спасибо!!!

@Puporev · 17.11.2009, 11:02

1. Заводим строку константу

Pascal
1
const bk:string=''абвгдеё......эюя;//33 буквы

2. Заводим массив встречаемости буквы

Pascal
1
var a:array[1..300] of integer;

3. Читаем файл построчно

Pascal
1
2
3
while not eof(f) do
 begin
  readln(f,s);

.............
4. Идем по строке и каждый символ сравниваем с константой, какой номер по порядку, в такую ячейку массива добавляем 1.
5.Закрываем файл, делаем вывод.

Pascal
1
2
for i:=1 to 33 do
writeln(bk[i],'=',a[i]);

С отдельными символами все.
5. Для пар символов заводим матрицу

Pascal
1
var m:array[1..33,1..33] of integer;

6.открываем файл и опять построчно читаем.
7. смотрим пару символов, сравниваем каждый с константой, записываем в ячейку с номером
[номер первой буквы, номер второй буквы];
пары смотрим со смещением на один символ, например абв это аб в ячейку [1,2], бв в ячейку [2,3].
8. Также выводим

Pascal
1
2
3
for i:=1 to 33 do
for j:=1 to 33 do
writeln( bk[i],bk[j]'=',m[i,j]);

Вот примерно так и делайте.
Проблема будет в том, что программа не может правильно читать русские буквы из текстового файла. Нужно его либо перекодировать из Win в Dos, либо писать в Dos редакторе, например в Паскале, либо писать процедуру конвертации русского текста из ANSI в ASCII.

@Дмитрий90 · 19.11.2009, 20:09 **[ТС]**

спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Дмитрий90 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 11

	Подсчет букв в файле. 17.11.2009, 07:48. Показов 1557. Ответов 2 Метки нет (Все метки) привет! ребята, помогите кто-нибудь, бьюсь третий день над программой, не получается. если кто может, помогите: нужно написать программу которая выдает количество букв из текстового файла всего алфавита( пример: а=4 б=7 в=9 г=2 и так далее...), а потом двух буквенная комбинация(пример: аа=0 аб=0 ав=1 .... и так до яю=0 яя=0). заранее спасибо!!! 0

@Дмитрий90 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 11
	19.11.2009, 20:09 [ТС]
	спасибо!!! 0

Подсчет букв в файле.

Решение