Расставить слова по возрастанию количества букв

@Rekold · Регистрация: 07.04.2015

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

Пожалуйста помогите с задачей. Вводится текст, конец ввода F5. Расставить слова по возрастанию количества букв.

@АлександрЯ · 17.10.2015, 08:50

Pascal

program textForum;
var text,s:string[255];
var i,j,l,k,n:integer;
var m:array[1..100] of string;
begin
Write('Введите текст: ');
Readln(text);
k:=1;
j:=0;
for i:=1 to length(text) do
begin
if (text[i] = ' ') or (text[i] = '.') or (text[i] = ',') or (text[i] = ':') or (text[i] = '«') or (text[i] = '«') or (text[i] = '»') then
begin
  m[k]:=copy(text,j,i-j);
  j:=i+1;
  k:=k+1;
end;
end;
 
for i:=1 to k do
begin
    for n:=1 to k do 
    begin
    if length(m[n]) > length(m[n+1]) then
    begin
    s := m[n];
    m[n] := m[n+1];
    m[n+1] := s;
    end;
    end;
    end;
for i:=1 to k do
begin
writeln(m[i]);
end;
end.

ФедосеевПавел · 17.10.2015, 13:43

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

конец ввода F5.

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

Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .

@Rekold 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 3
		1
	Расставить слова по возрастанию количества букв 10.10.2015, 16:24. Показов 3343. Ответов 2 Метки нет (Все метки) Пожалуйста помогите с задачей. Вводится текст, конец ввода F5. Расставить слова по возрастанию количества букв. 0

ФедосеевПавел Модератор 8561 / 4409 / 1655 Регистрация: 01.02.2015 Сообщений: 13,699 Записей в блоге: 9
	17.10.2015, 13:43	3
	Сообщение от Rekold конец ввода F5. Возможно, имеется ввиду потоковая обработка ввода, когда символы считываются по одному (или строки считываются по одной - пока не соображу), выполняется анализ для выделения слова и новое слово "вставляется" в отсортированный массив (список). А по окончанию ввода (по eof(input)) массив просто выводится - он уже отсортирован, т.к. это состояние поддерживалось при добавлении новых элементов. 0

Расставить слова по возрастанию количества букв

Решение