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
Сериал повествует о жизни круглых персонажей в стране «Смешариков». У каждого героя свой взгляд на вещи, свои увлечения и яркий характер. Ежедневно герои попадают в неожиданные ситуации или создают их сами.В сериале представлены герои трёх возрастных групп — дети-подростки (Крош, Ёжик, Нюша, Бараш), взрослые (Лосяш, Пин), и пожилые (Кар Карыч, Совунья, Копатыч). Главные герои:
Крош
Ёжик
Нюша
Бараш
Совунья
Кар-Карыч
Пин
Копатыч
Лосяш
Панди
Биби
Ну а если посчитать, всего их 77 (это Группы персонажей
{
Ищет в строке 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
Крош
Ёжик
Нюша
Бараш
Совунья
Кар-Карыч
Пин
Копатыч
Лосяш
Панди
Биби
Ну а если посчитать, всего их 77 (это Группы персонажей
Смешарики: основные персонажи (9)
Смешарики: прочие персонажи (34)
Смешарики: искусственно созданные персонажи (11)
Смешарики: вымышленные персонажи (23))
4.?