Структуры данных. Строки - 20 стр.

UptoLike

22
while (i<=n) and (S[i]=’ ’) do
i := i+1;
while i<=n do {повторять, пока не конец строки S}
begin
k := i; {запомнить начало текущего слова}
S1 := ’’;
while (i<=n) and (S[i]<>’ ’) do
begin
S1 := S1+S[i];
i := i+1; { поиск конца текущего слова}
end;
writeln(S1); {вывод слова}
{пропуск пробеловпоиск начала следующего слова}
while (i<=n) and (S[i]=’ ’) do
i := i+1
end
end.
Формировать очередное слово можно не только с помощью операции кон-
катенации, но и используя функцию копирования строки.
Пример 10. Дана строка, состоящая из слов (см. Пример 9). Посчитать ко-
личество слов в строке.
При обработке слов в строке не всегда возникает необходимость в их выде-
лении. В этом случае может фиксироваться конец слова: либо текущий символ
S
i
отличен от пробела, а следующий S
i+1
является пробелом, либо S
i
последний
символ строки.