Комментарии. Дан файл, произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

26.03.2012, 16:03. Показов 1035. Ответов 0

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

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

Привет всем! помогите с комментариями к программе пожалуйста...

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.

Delphi
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
uses crt;
var
nr,nb,i:longint;rus,num:string;
f:file of byte;b:byte;
s:string;
begin
writeln('Анализ документа расположенного по адресу: ');
writeln('F:\Программы\[Pascal]\[Program]\ИДЗ№4\12.txt');
Writeln;
rus:='АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдежзиймлкнопрстуфхцчшщьыъэюя';
num:='123456789';
nr:=0;
nb:=0;
assign(f,'12.txt');reset(f);
repeat
read(f,B);
for i:=1 to length(rus) do if chr(B)=rus[i] then nr:=nr+1;
for i:=1 to length(num) do if chr(B)=num[i] then nb:=nb+1;
until eof(f);
close(f);
s:='В файле букв больше чем цифр';
if nb=nr then s:='В файле букв и цифр поровну';
if nb>nr then s:='В файле цифр больше чем букв';
writeln(s);
END.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

26.03.2012, 16:03

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

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

Дан файл, содержащий произвольный текст. Выяснить, чего в нём больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нём больше: русских букв или цифр.

дан произвольный текст, чего в нем больше: букв или цифр
( буквы латинские)

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

26.03.2012, 16:03

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

Файл: выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр Проверьте, правильно ли решение? uses...

Текстовый файл. Выяснить, чего в нем больше: русских букв или цифр
Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр

Дана строка. Выяснить, чего в нем больше: русских букв или цифр
Здравствуйте, буду очень благодарна если поможете)))) :) 1) Дана строка. Удалить из строки все слова, имеющие менее 5 букв. 2) Дана...

Файл. Выяснить, чего в нем больше: букв или цифр
Помогите решить завтра сдавать не получаетсь 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/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх