Пользователь
: 10
найти самое длинное слово в тексте
Задан текст. Найти самое длинное слово.
написать программу на Паскаль
Я самый любопытный
Участник клуба
: 1,919
type tArrs=array of string; procedure Analiz(s:string; var st:tArrs); var i,count:integer; s1:string; begin count:=0; SetLength(st,0); While s<>» do begin i:=Pos(‘ ‘,s); If i>0 then begin s1:=Copy(s,1,i-1); Delete(s,1,i); end else begin s1:=s; s:=»; end; If s1<>» then begin count:=count+1; SetLength(st,count); st[count-1]:=s1; end; end; end; var i:integer; s,s1:string; st:tArrs; begin Write(‘s = ‘); Readln(s); Analiz(s,st); s1:=st[0]; For i:=Low(st) to High(st) do If Length(s1)
Источник: www.programmersforum.ru
Самое длинное слово в строке
Дана строка символов. Признак конца строки — символ ‘n’ (переход на новую строку). Строка состоит из слов, которые отделены друг от друга пробелами. Вывести самое длинное слово и его порядковый номер.
Решение задачи «Самое длинное слово» по теме «Чтение и запись данных. Функция open»
Задание аналогично задаче поиска самого короткого слова в строке. Для решения этой задачи прочитайте статью — о строках в С++. Определить символ пробела в строке можно с помощью функции isspace. Чтобы определить длину слова, воспользуйтесь функцией strlen. Пример вывода программы:
Ниже приведен код для этой задачи. Код самый простой и может усовершенствоваться (например разбиение его на несколько отдельных функции). Код нам предоставил пользователь — Василий Шуверов. Скажем ему: «Спасибо!».
#include #include #include int main() < char s[100000]; int number [10000]; char a; int i,j=0,n=0,k=0, g, max=0, hulp=0, hulp_1=0; /*Набор текста и одновременный подсчет длины каждого слова.*/ for (i=0;i<100000;++i) < s[i]=getchar(); if (s[i]==’n’) < number[k]=j; break; >++n; if (s[i] != ‘ ‘) < ++j; >if (s[i]==’ ‘) < number[k]=j; ++k; j=0; >> printf(«n»); /*Отыскание самого длинного слова и его позиции в тексте */ max=number[0]; for (g=0;gmax) < max=number[g]; hulp=g; >> ++hulp; /*Вывод на экран самого длинного слова и его позиции */ printf(«The longest word at number %d: «, hulp); for (g=0;g if (hulp-hulp_1==1) printf(«%c», s[g]); if (hulp_1>g) break; > return 0; >
CppStudio.com
Лишь очень немногие живут сегодняшним днем. Большинство готовится жить позднее. n The longest word at number 5: сегодняшним
Источник: cppstudio.com
Задача. Великий и могучий (Python)
Паоло изучает русский язык: занимается по учебникам, читает книги, слушает музыку. Особенно Паоло понравилась книга “Преступление и наказание”. И ему стало интересно, как найти самое длинное слово в этой книге, чтобы потом сравнить его с аналогом на своём языке.
Напишите программу, которая получает на вход текст и находит длину самого длинного слова в нём. Слова в тексте разделяются одним пробелом.
Определение самого длинного слова в строке
Введите текст: Меня зовут Петр
Самое длинное слово, букв: 5
Что оценивается
Задание считается успешно выполненным, если:
- результат вывода соответствует условию;
- input содержит корректное приглашение для ввода;
- вывод содержит описание результата (выведенные числа сопровождаются текстовым описанием);
Решение задачи:
text = input(‘Введите строку: ‘) count = 0 long_word = 0 for symbol in text: if symbol != ‘ ‘: count += 1 else: if (count > long_word): long_word = count count = 0 print(long_word)
Источник: it-systems.su