Сколько раз встречается в файле самое короткое слово

@Анастасия226 · Регистрация: 09.06.2010

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

Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое короткое слово.

@Quiet Snow · 29.11.2011, 18:29

содержащий текст на русском языке.

Да сколько можно, нет в досе русского языка, просто нет, запомните это.
Формат Ascii не стандартизован под русский язык. Каждая программа сама определяет
что значит русский, несёт в себе свой чарсет или русификатор знакогенератора.
Поэтому ФАЙЛ не может быть дан на русском, без привязки к самой программе или русификатору.

Добавлено через 1 минуту
Вот слов просто нету, преподы натуральнейшие бараны.

@кот Бегемот · 29.11.2011, 20:17

Сообщение от >Quiet Snow<

Да сколько можно, нет в досе русского языка, просто нет, запомните это.
Формат Ascii не стандартизован под русский язык. Каждая программа сама определяет
что значит русский, несёт в себе свой чарсет или русификатор знакогенератора.
Поэтому ФАЙЛ не может быть дан на русском, без привязки к самой программе или русификатору.

Добавлено через 1 минуту
Вот слов просто нету, преподы натуральнейшие бараны.

Глупости какие. Учите матчасть. Скрин расширенной таблицы кодов ASCII внизу.
А вот и программа:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
OPEN "input.txt" FOR INPUT AS #1
DIM a$(1000)
DO WHILE NOT EOF(1)
INPUT #1, b$
b$ = LTRIM$(RTRIM$(b$))
n = n + 1
FOR i = 1 TO LEN(b$)
IF MID$(b$, i, 1) = " " THEN n = n + 1 ELSE a$(n) = a$(n) + MID$(b$, i, 1)
NEXT
LOOP
CLOSE
min = LEN(a$(1))
w$ = a$(1)
FOR i = 1 TO n - 1
IF LEN(a$(i)) < min THEN min = LEN(a$(i)): w$ = a$(i)
NEXT
 
FOR i = 1 TO n - 1
IF a$(i) = w$ THEN k = k + 1
NEXT
PRINT k

ps файл проще всего создать в самом бейсике, сохранив его с именем input.txt, но можно и в блокноте, просто кодировка Windows будет другой, но на длину слов это никак не повлияет

@Quiet Snow · 29.11.2011, 22:32

Учите матчасть.

КБ не заставляй доказывать тебе некорректность твоего подхода.
Покажи мне, где это закреплено в стандарте, документ официальный тобишь, конкретно русские и
конкретно кодировка и конкретно ASCII.

Добавлено через 4 минуты
Я готов привести кучу примеров, когда твоё "русское" не будет соответствовать русскому вообще,
более того есть таблицы ASCII где русский алфавит начинается не со 128.
Но прежде чем я это сделаю, подожду твоих веских доводов, касательно стандарта,
ты же с серьёзным видом утверждаешь что я тут ахинею несу.

@кот Бегемот · 29.11.2011, 22:33

Вам, несомненно, известно, что кодовая таблица ASCII специально сделана расширенной, дабы включать в себя национальные алфавиты тех стран, где она (кроме Америки и стран с латиницей) используется. В России - это русские буквы, в арабских странах - арабские, это американцев не колышет, но утверждать, что этого нет - слишком ответственно.

@Quiet Snow · 29.11.2011, 23:01

ASCII специально сделана расширенной, дабы включать в себя национальные алфавиты

Где это прописано в стандарте? Если стандарта нет, то и нет такой гарантии, включите, любой
видеоадаптер по дефолту, где русский? А всякие кейрусы это самопал, пусть даже и
использующийся негласно, но стандартом тут и не пахнет, я этих русификаторов в своё время повидал
немало, каждый был по-гениальному своеобразен.

Расширенной кодовая таблица сделана для псевдографики, часто использующейся в текстовых редакторах, для математических символов и просто для user-defined символов, чтобы кто захотел смог перепрограммировать знакогенератор, как ему удобно.

Поэтому, кому учить матчасть как бы намекает само собой.

P.S: Вот тут внизу есть ссылки на оф. документы, вы толкаете гениальные перлы - вот и докажите нам, где там стандарт на
кириллицу.

@кот Бегемот · 29.11.2011, 23:31

Спасибо за ссылку на английском языке, который я никогда не изучал, а потому прочесть вашу ссылку, увы, не могу. Предлагаю простенький текст на русском, который для вас конечно не авторитет:
http://ru.wikipedia.org/wiki/ASCII
Почитайте там раздел "Национальные варианты ASCII"
Мне этого достаточно.

@Quiet Snow · 30.11.2011, 00:48

Спасибо за ссылку на английском языке, который я никогда не изучал

Ну что я могу на это ответить? Только вашу фирменную фразу: "учите матчасть"

Мне этого достаточно.

Ну вы это вы, вам стандарты не указ, вы сами их пишете))) и вездесущая википедия их пишет тоже)))) бугага

Тем не менее, по вашей же ссылке русским языком чёрном по белому написано:

Отсутствие единого стандарта размещения кириллических символов в таблице ASCII доставляло множество проблем с кодировками

Т.е. вам прямо говорят - нет такого стандарта, а вы всё равно за своё.

Добавлено через 26 минут
Речь была, между прочем, не о программе, которая схавает текст даже в кривой кодировке.
Речь была о людях, о наивных людях, которые дают такие задания, совершенно не представляя
как всё это работает и зачем нужно.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
DIM S AS STRING, Si AS STRING
OPEN "I", 1, "INPUT.TXT"
    WHILE NOT EOF(1)
      INPUT #1, Si
      Si = LTRIM$(RTRIM$(Si))
      IF Si <> "" THEN S = S + Si + " "
    WEND
Pz = 1
Ms = INSTR(1, S, " ")
Slv$ = LEFT$(S, Ms - 1)
    DO
      N = INSTR(Pz, S, " ")
      IF N - Pz < Ms THEN Ms = N - Pz: Slv$ = MID$(S, Pz, Ms): K = 0
      IF MID$(S, Pz, Ms) = Slv$ THEN K = K + 1
      Pz = N + 1
    LOOP UNTIL N = LEN(S)
 PRINT "Slovo  : "; Slv$
 PRINT "Kol-vo :"; K
CLOSE 1

Добавлено через 32 минуты
Программа в посте 3 работает некорректно.
Вот такой файл(с пустыми строками) обрабатывает неверно:

Code
1
2
3
4
5
6
7
8
9
amcixgjz >Quietaa aaSnow<
 
 
uggsusatsf filefddsd
 
 
вываыв
 
вываыв

Пишет 6 раз, а должна написать 2 раза.

@кот Бегемот · 30.11.2011, 02:22

а если сделать файл из 100 пустых строк, то 100 напишет
Любую идею можно довести до абсурда

@Quiet Snow · 30.11.2011, 03:37

Любую идею можно довести до абсурда

При чём тут идея? Условие задачи не выполнено полностью.

Дан файл, содержащий текст

Написано текст, практически в любом тексте есть пустые строки...
Впрочем, убираю пустые, прога всё равно не пашет,
видимо, на "текст" она всё таки не рассчитана.

@кот Бегемот · 30.11.2011, 11:41

достаточно одного if, чтобы комп не реагировал на пустые строки, но утяжелять программу не стану, файлы кроме вас никто не пишет с пустыми строками.

Что до того, что программа не пашет, оставлю на вашей совести или аккуратности. Я проверяю свои программы.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@Анастасия226 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 28

	Сколько раз встречается в файле самое короткое слово 29.11.2011, 16:52. Показов 1241. Ответов 10 Метки нет (Все метки) Дан файл, содержащий текст на русском языке. Определить, сколько раз встречается в нем самое короткое слово. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	29.11.2011, 22:33
	Вам, несомненно, известно, что кодовая таблица ASCII специально сделана расширенной, дабы включать в себя национальные алфавиты тех стран, где она (кроме Америки и стран с латиницей) используется. В России - это русские буквы, в арабских странах - арабские, это американцев не колышет, но утверждать, что этого нет - слишком ответственно. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	29.11.2011, 23:31
	Спасибо за ссылку на английском языке, который я никогда не изучал, а потому прочесть вашу ссылку, увы, не могу. Предлагаю простенький текст на русском, который для вас конечно не авторитет: http://ru.wikipedia.org/wiki/ASCII Почитайте там раздел "Национальные варианты ASCII" Мне этого достаточно. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	30.11.2011, 02:22
	а если сделать файл из 100 пустых строк, то 100 напишет Любую идею можно довести до абсурда 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	30.11.2011, 11:41
	достаточно одного if, чтобы комп не реагировал на пустые строки, но утяжелять программу не стану, файлы кроме вас никто не пишет с пустыми строками. Что до того, что программа не пашет, оставлю на вашей совести или аккуратности. Я проверяю свои программы. 0