Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






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




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);

Writeln(’Искомая последовательность начинается с символа ’,Y);

End.

 






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных