Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/17: Рейтинг темы: голосов - 17, средняя оценка - 4.94
mu
0 / 0 / 0
Регистрация: 20.01.2012
Сообщений: 20
1

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

08.06.2012, 22:12. Просмотров 3053. Ответов 4
Метки нет (Все метки)

Дан файл, содержащий произвольный текст. Выяснить, чего
в нем больше: русских букв или цифр
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2012, 22:12
Ответы с готовыми решениями:

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

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

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

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

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

4
UserABC
Pascal +
132 / 131 / 127
Регистрация: 16.03.2011
Сообщений: 461
08.06.2012, 22:21 2
Я уже писал такой код
Pascal
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
Program userabc;
Uses crt;
Const
  ts = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
Var s   : char; txt : text;
  i,j   : integer;
Begin
  assign(txt, 'c:txt.txt');
  reset(txt);
  i := 0;
  j := 0;
  While Not(EOF(txt)) Do
  Begin
    read(txt, s);
    If ord(s) In [128..175] Then
      i := i + 1;
    If ord(s) In [224..239] Then
      i := i + 1;
    If s In ts Then
      j := j + 1
  End;
  close (txt);
  If i > j Then
    writeln('Русских букв в тексте больше, чем цифр')
  Else writeln('Цифр в тексте больше, чем русских букв');
End.
0
mu
0 / 0 / 0
Регистрация: 20.01.2012
Сообщений: 20
08.06.2012, 23:22  [ТС] 3
Цитата Сообщение от UserABC Посмотреть сообщение
Я уже писал такой код
Pascal
1
Program userabc;...End.
попроще можно написать
0
UserABC
Pascal +
132 / 131 / 127
Регистрация: 16.03.2011
Сообщений: 461
10.06.2012, 22:46 4
Цитата Сообщение от mu Посмотреть сообщение
попроще можно написать
По-моему проще уже некуда
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
11.06.2012, 00:20 5
mu, разве что через множества, но пропроще ли это?...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const z: set of char=['0'..'9'];
      a: set of char=['А'..'Я','а'..'я'];
var f: text;
    c: char; kz,ka: byte;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      read(f,c);
      if c in z then inc(kz) else
         if c in a then inc(ka);
      end;
close(f);
if kz>ka then writeln('Цифр больше') else
   if kz<ka then writeln('Русских букв больше') else
      writeln('Одинаково');
end.
0
11.06.2012, 00:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2012, 00:20

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

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

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


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru