Функции работы со строками

13 14 15 16 17 18 19

Function Сoncat(S1[S2,...,Sn]:String):String;

Объединяет несколько строк в одну.

S1,S2,...,Sn - объединяемые строки;

Пример1.

Program Ct1;

Var S,S1,S2:String;

Begin

Writeln(’Введите 1 строку’);

Readln(S1);

Writeln(’Введите 2 строку’);

Readln(S2);

S:=Сoncat(S1,S2);

Writeln(’S= ’,S);

End.

Function Сopy(S:String;I,C:Integer):String;

Создает подстроку строки S

S - исходная строка

I - номер первого выделяемого символа строки

С - число выделяемых символов

Пример2.

Program Ct2;

Var S,S1:String;

Begin

Writeln(’Введите строку’);

Readln(S1);

S:=Сopy(S1,3,4);{копирует 4 символа, начиная с 3-го}

Writeln(’S= ’,S);

End.

Function Length(S:String):Integer;

Возвращает текущий размер строки

S - строка, у которой определяют размер

Пример3.

Program Ct3;

Var S:String;

Y:Integer;

Begin

Writeln(’Введите строку’);

Readln(S);

Y:= Length(S);

Writeln(’Количество символов в строке = ’,Y);

End.

Function Pos (S1,S2:String):Byte;

Поиск последовательности S1 в строке S2 (результат равен номеру первого символа строки S2, с которого начинается искомая последовательность, или 0, если такой последовательности в строке нет)

S1 – искомая последовательность;

S2– строка, в которой ищется последовательность;

Пример4.

Program Ct4;

Var S2,S1:String;

Y:Integer;

Begin

Writeln(’Введите строку’);

Readln(S2);

Writeln(’Введите искомые символы’);

Readln(s1);

y:= Pos(S1,S2);