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

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

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


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

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

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

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

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

2
Pascal +
133 / 132 / 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
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,000
Записей в блоге: 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2012, 13:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

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

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

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

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

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


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

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

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