Строки в Паскале

Строки в Pascal

Строку в Паскале можно рассматривать как массив символов переменной длины. Работа со строками в Паскале довольно проста.

Простой пример: объявляем строку stroka, допустимая длина этой строки равна 10-ти символам

var stroka: string[10]; begin stroka := ‘sbp’; Writeln(stroka); ReadLn(); end.

Получаем:

Максимальная длина строки в Паскале — 255 символов. Если при объявлении переменной типа строка не указать в квадратных скобках максимально допустимую длину, то по умолчанию длина строки равна 255-ти символам.

Длину строки в Паскале получаем с помощью функции Length:

var stroka: string[10]; strLength: Byte; begin stroka := ‘sbp’; Writeln(stroka); strLength := Length(stroka); Writeln(strLength); ReadLn(); end.

Получаем:

длина строки «sbp» равна трём байтам.

Если строке присвоить значение, длина которого больше допустимой, то лишние символы будут удалены. Пример:

var stroka: string[2]; begin stroka := ‘sbp’; Writeln(stroka); ReadLn(); end.

Получаем:

В этом примере строка может содержать не более двух символов, отсюда и результат.

Присоединить одну строку к другой в Паскале можно двумя путями: знаком «+» или функцией Concat.

Пример для «+»:

var stroka, tire, prog: string; begin stroka := ‘sbp’; tire := ‘-‘; prog := ‘program’; stroka := stroka + tire + prog; Writeln(stroka); ReadLn(); end.

Получаем:

Пример соединения строк в Паскале с помощью встроенной функции Concat:

var stroka, tire, prog: string; begin stroka := ‘sbp’; tire := ‘-‘; prog := ‘program’; stroka := Concat(stroka, tire, prog); Writeln(stroka); ReadLn(); end.

Получаем результат ровно такой же, как и в предыдущем примере.

Вставка строки в другую строку в Паскале делается с помощью стандартной функции Insert. Рассмотрим пример, где в строку «sbp-gram» после черточки, здесь номер символа 5, вставляется строка «pro»:

var stroka, prog: string; begin stroka := ‘sbp-gram’; prog := ‘pro’; Insert(prog, stroka, 5); Writeln(stroka); ReadLn(); end.

В результате получим строку «sbp-program».

Скопировать часть строки в Паскале можно с помощью функции Copy. Скопируем из строки «sbp-program» 3 символа, начиная с символа с номером 5, т.е. с буквы «p» в слове «program»:

var stroka, pro: string; begin stroka := ‘sbp-program’; pro := Copy(stroka, 5, 3); Writeln(pro); ReadLn(); end.

Получаем:

Найти подстроку в строке на Паскале можно с помощью функции Pos. Для примера берём строку «program» и найдём номер символа, с которого начинается первое вхождение строки «gram» в строку «program»:

var stroka, gram: string; number: integer; begin stroka := ‘program’; gram := ‘gram’; number := Pos(gram, stroka); Writeln(number); ReadLn(); end.

В переменной «number» сохранится число 4. Если бы строка «gram» не встречалось в строке «program», то функция Copy вернула бы ноль.

Удалить подстроку из строки в Паскале можно с помощью стандартной функции Delete. Удалим первые три символа из строки «program»:

var stroka: string; begin stroka := ‘program’; Delete(stroka, 1, 3); Writeln(stroka); ReadLn(); end.

Получим «gram». Строкой Delete(stroka, 1, 3) мы дали команду удалить три символа из строки «stroka», начиная с 1-ой позиции.