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

@FARKRAI · Регистрация: 21.06.2010

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

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

@кот Бегемот · 21.06.2010, 20:15

или множествами, или с помощью кодов ASCII легко считается и то, и то

@Puporev · 26.06.2010, 10:44

Обсуждение личных проблем переносим в личные сообщения.

@CepbIu · 26.06.2010, 10:49

Сообщение от FARKRAI

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

Pascal

assign(f,'1');
reset(f);
while not eof(f) do begin
readln(f,str);
for i:=1 to length(str) do begin
if str[i] in [а..я] then inc(counter1);
if str[i] in [0..9] then inc(counter2);
end;
end;

Жду от тебя личного сообщения с просьбой о телефоне

@Puporev · 26.06.2010, 11:37

CepbIu, Ты эту ерунду для чего написал?

@FARKRAI 1 / 1 / 2 Регистрация: 21.06.2010 Сообщений: 16
		1
	Выяснить, чего в файле больше: русских букв или цифр. 21.06.2010, 19:26. Показов 1099. Ответов 4 Метки нет (Все метки) Текстовые файлы дан файл, содержащий произвольный текст. Выяснить. чего в нем больше: русских букв или цифр. 0

@кот Бегемот Платежеспособный зверь 8956 / 4382 / 1649 Регистрация: 28.10.2009 Сообщений: 11,624
	21.06.2010, 20:15	2
	или множествами, или с помощью кодов ASCII легко считается и то, и то 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2010, 10:44	3
	Обсуждение личных проблем переносим в личные сообщения. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	26.06.2010, 11:37	5
	CepbIu, Ты эту ерунду для чего написал? 0

Опции темы