Прочие процедуры и функции (избр)

Разбор задач обработки строк.

{ Определение количества символов в словах строки. }

Program Strings_0;

Var

i, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st: string; { исходная строка }

Begin

{ В задаче простейший разделитель - ПРОБЕЛ }

writeln(‘Введите строку для обработки ’);

Readln (st);

i:=1; { обработка начинается с первого символа строки}

kol_sym:=0; {до обработки строки количество = 0 }

while (i<=length(st)) do {обеспечение перебора всех

символов строки }

Begin

if (st[i] <> ‘ ‘) {очередной символ – не пробел}

then kol_sym:= kol_sym +1;

i:=i+1; {переход к очередному символу строки }

End;

writeln (‘ В строке ‘, st,

‘ обнаружено ‘, kol_sym, ‘ символов’);

Readln;

End.

{Условие то же, что и в предшествующей задаче, но }

{в качестве разделителей – набор спецсимволов, SET OF CHAR}

Program Strings_1;

Var

razd: set of char; {множество предполагаемых

разделителей слов в строке }

i, {номер обрабатываемого символа }

kol_sym { количество символов в словах строки}

: integer;

st: string; { исходная строка }

Begin

{ задание символов-разделителей слов в строке }

razd:=[ ' ',',','.',':','!' ];

writeln(‘Введите строку для обработки ’);