program Project1; const //Множество разделителей слов. D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13]; var S, StrW, StrWMax : String; i, Pos1, Len, LenW, LenWMax, Cnt : Integer; begin repeat Writeln('Задайте текст:'); Readln(S); //Обработка текста. Len := Length(S); LenWMax := 0; StrWMax := ''; Cnt := 0; Pos1 := 0; for i := 1 to Len do begin //Пропускаем разделители. if S[i] in D then Continue; //Отслеживаем начало слова. if (i = 1) or (S[i - 1] in D) then Pos1 := i; //Отслеживаем конец слова. if (i = Len) or (S[i + 1] in D) then begin //Вычисляем длину слова. LenW := i - Pos1 + 1; //Выделяем слово. StrW := Copy(S, Pos1, LenW); //Если слово совпадает с текущим наибольшим по длине, //тогда увеличиваем счётчик. if StrW = StrWMax then begin Cnt := Cnt + 1; end else if LenW > LenWMax then begin //Если это очередное слово длиннее всех ранее найденных слов, то //запоминаем его и его длину и сбрасываем счётчик. StrWMax := StrW; LenWMax := LenW; Cnt := 1; end; end; end; //Показываем результат. if StrWMax <> '' then begin Writeln('Первое из самых длинных слов: "', StrWMax, '".'); Writeln('Это слово встречается в тексе ', Cnt, ' раз.'); end else begin Writeln('В строке нет слов.'); end; Writeln('Повторить - Enter, выход - любой символ + Enter.'); Readln(S); until S <> ''; end.
Брейк - Молодёжный эстрадно-спортивный танец, исполняемый в стремительном темпе и состоящий из резких, угловатых движений, акробатических элементов и т.п.
Видеоклип - Видеофильм, сопровождающий какой-л. музыкальный номер, эстрадную песню, рекламу и т.п
Дюйм - Единица длины, равная 1/12 фута
Жалюзи - Многостворчатые шторы или ставни из узких пластинок, скреплённых между собой неподвижно или поворачивающихся, применяемые для регулирования освещения и воздушного потока.
Камбала - Плоская морская рыба с глазами на одной стороне.
Мультипликация - Киносъёмка фаз движения рисованных или объёмных фигур в целях создания на экране иллюзии их последовательного, непрерывного движения; сами фигуры, рисунки, являющиеся объектом такой съёмки.
Пастила - Кондитерское изделие из протёртых и сваренных с сахаром фруктов
Универсальный - Пригодный для многих целей, с разнообразным назначением.
Находит саммое длинное слово
Агроном - Специалист по агрономии.
Брейк - Молодёжный эстрадно-спортивный танец, исполняемый в стремительном темпе и состоящий из резких, угловатых движений, акробатических элементов и т.п.
Видеоклип - Видеофильм, сопровождающий какой-л. музыкальный номер, эстрадную песню, рекламу и т.п
Дюйм - Единица длины, равная 1/12 фута
Жалюзи - Многостворчатые шторы или ставни из узких пластинок, скреплённых между собой неподвижно или поворачивающихся, применяемые для регулирования освещения и воздушного потока.
Камбала - Плоская морская рыба с глазами на одной стороне.
Мультипликация - Киносъёмка фаз движения рисованных или объёмных фигур в целях создания на экране иллюзии их последовательного, непрерывного движения; сами фигуры, рисунки, являющиеся объектом такой съёмки.
Пастила - Кондитерское изделие из протёртых и сваренных с сахаром фруктов
Универсальный - Пригодный для многих целей, с разнообразным назначением.