Вопрос по информатике:
Дана строка, содержащая пробелы. Найдите в ней самое длинное слово, выведите это слово и его длину. Если таких слов несколько, выведите первое из них.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.10.2015 01:12
- Информатика
- remove_red_eye 6705
- thumb_up 21
Ответы и объяснения 1
Procedure GetWord(s:string; var from:integer; var w:string; var len:integer);
{
Ищет в строке s слово, начиная с позиции from.
Если слово w найдено, from будет указывать на его начало,
а в len будет находиться длина эого слова.
если слово не найдено, w='', len=0
Слова раздеяются минимум одним пробелом, за исключением
первого и последнего слова, у которых пробел может
находиться только с одной стороны.
}
var
i,n:integer;
stop:Boolean;
begin
n:=Length(s); i:=from; stop:=false;
while (i<=n) and (not stop) do
if s[i]=' ' then Inc(i) else stop:=true;
if i>n then begin len:=0; w:='' end
else begin
from:=i; stop:=false;
while (i<=n) and (not stop) do
if s[i]' ' then Inc(i) else stop:=true;
if i>n then len:=n-from+1 else len:=i-from;
w:=Copy(s,from,len)
end
end;
var
s1,wd,wdmax:string;
ic,L,Lmax:integer;
begin
Write('Введите строку: '); Readln(s1);
ic:=1; Lmax:=0;
repeat
GetWord(s1,ic,wd,L);
if (L>0) and (L>Lmax) then
begin Lmax:=L; wdmax:=wd end;
ic:=ic+L+1
until L=0;
Writeln('Самое длинное слово "',wdmax,'" длины ',Lmax)
end.
Тестовое решение:
Введите строку: Это пример тестовой строки с произвольным числом пробелов.
Самое длинное слово "произвольным" длины 12
- 07.10.2015 13:43
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.