UCHEES.RU - помощь студентам и школьникам
В 23:36 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.
Дана строка, содержащая пробелы. Найдите в ней самое длинное слово, выведите это слово и его длину. Если таких слов несколько, выведите первое из них.
Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом: Дана строка, содержащая пробелы. Найдите в ней самое длинное слово, выведите это слово и его длину. Если таких слов несколько, выведите первое из них.
После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
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<br> 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<br> 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
НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:
Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.
Коновалова Регина Антоновна - автор студенческих работ, заработанная сумма за прошлый месяц 53 196 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию
ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!
Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.
Деятельность компании в цифрах:
Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.
РАЗДЕЛЫ САЙТА
Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.
Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.
Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.
ЗАДАТЬ ВОПРОС
НОВЫЕ ОТВЕТЫ
ПОХОЖИЕ ВОПРОСЫ