Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
katushaa
3 / 3 / 0
Регистрация: 10.01.2012
Сообщений: 46
1

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

31.05.2012, 10:08. Просмотров 638. Ответов 2
Метки нет (Все метки)

Дан файл, содержащий произвольный текст. Выяснить, чего
в нем больше: русских букв или цифр
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2012, 10:08
Ответы с готовыми решениями:

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

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

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

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

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

2
UserABC
Pascal +
132 / 131 / 127
Регистрация: 16.03.2011
Сообщений: 461
31.05.2012, 22:00 2
Лучший ответ Сообщение было отмечено katushaa как решение

Решение

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
CodeR
Фрилансер
3383 / 2784 / 3000
Регистрация: 08.02.2012
Сообщений: 6,825
Записей в блоге: 1
09.06.2012, 13:16 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var f:text;
    s:string;
    i,j,k:integer;
Begin
    Assign(f,'a.txt');Reset(f);
    i:=0;j:=0;
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=1 to length(s) do
       Begin
        if s[i] in ['а'..'я','А'..'Я'] then inc(j);
        if s[i] in ['0'..'9'] then inc(k);
       End;
     End;
    if j>k then writeln('Русских букв больше') 
     else if j<k then writeln('Цифр больше') 
      else writeln('Одинаковое кол-во');
    Close(f);
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2012, 13:16

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

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

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


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

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

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