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

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

20
Второй вариант решения оформлен в виде функции
S82( S ) и использует
посимвольную обработку строки
S с формированием новой строки Sr : в строку
Sr копируется символ строки S, если он не является пробелом, либо он – пробел,
но предыдущий символ таковым не был.
function S82(var S: string): string;
var Sr : string;
i,j:integer; {текущие индексы строк S и Sr }
flag: boolean; {признак того, что предыдущий символ
является пробелом}
begin
Sr:=’’;
flag: = true; j:=0;
for i:=1 to ord(S[0]) do
begin
{если предыдущий символ или текущий символ – не пробел}
if not flag or (S[i]<>’ ’) then
begin
j:=j+1;
Sr[j]:=S[i]
end;
{flag = true, если предыдущий символ является пробелом}
flag:= S[i]= ’ ’
end;
{если
последний символ – пробел, то удалить его}
if Sr[j]= ’ ’ then j:=j-1;
Sr[0]:=chr(j);
S82:=Sr
end;

Страницы