Использование строк в Паскаль

Р.И.

строковый тип данных. Строкой в Паскале называется последовательность из определенного

количества символов. Количество символов последовательности называется длиной строки. Синтаксис:

var s: string[n];
var s: string;
n - максимально возможная длина строки - целое число в диапазоне 1..255. Если этот параметр опущен, то по умолчанию он принимается равным 255.

символ обозначается двумя подряд стоящими апострофами.

другу. Если максимальная длина переменной слева меньше длины присваиваемой строки,

то лишние символы справа отбрасываются.
…
s1 := 'this is text';
s2 := s1;
…

помощью операции конкатенации, которая обозначается знаком +.
…
s1 := 'John';
s2 :=

'Black';
s1 := s1 + ' ' + s2;
…

При сравнении строки рассматриваются посимвольно слева направо.
Строки равны, если

они имеют одинаковую длину и посимвольно эквивалентны. В строках разной длины существующий символ всегда больше соответствующего ему отсутствующего символа. Меньшей будет та строка, у которой меньше код первого несовпадающего символа (вне зависимости от максимальных и текущих длин сравниваемых строк).

'abc' > 'ab' (true)
'abc' = 'abc' (true)
'abc' < 'abc ' (false)

(s1);
…

символов, например s1[3]. …
s1[3] := 'h';
writeln (s2[3] + 'r');
…

имеется несколько полезных стандартных процедур и функций, ориентированных на работу

со строками.
Length(s:string):integer
Функция возвращает в качестве результата значение текущей длины строки-параметра
Пример.
n := length('Pascal'); {n будет равно 6}

параметр является выражением строкового типа. Если длина строки-результата превышает 255

символов, то она усекается до 255 символов. Данная функция эквивалентна операции конкатенации "+".

длиной count символов, начиная с символа под номером index.
Пример.
s :=

'Система Turbo Pascal';
s2 := copy(s, 1, 7); {s2 будет равно 'Система'}
s3 := copy(s, 9, 5); {s3 будет равно 'Turbo'}
s4 := copy(s, 15, 6); {s4 будет равно 'Pascal'}

символов, начиная с символа под номером index.
Пример.

s := 'Система Turbo

Pascal';
delete(s,8,6);

{s будет равно 'Система Pascal'}

s, начиная с символа index этой строки.
Пример.

s := 'Система Pascal';
insert('Turbo

',s,9);

{s будет равно 'Система Turbo Pascal'}

является номер первой позиции подстроки в исходной строке. Если подстрока

не найдена, то функция возвращает 0.
Пример.

s := 'Система Turbo Pascal';
x1 := pos('Pascal', s);

{x1 будет равно 15}

x2 := pos('Basic', s);

{x2 будет равно 0}

позиция вставки.
Алгоритм решения задачи: 
Определить значения s1, s2 и i.
С помощью процедуры insert() вставить s2 в s1, начиная с

позиции i.

readln(s1);
write('Input string 2: ');
readln(s2);
write('Input position: ');
readln(i);

Insert(s2,s1,i);
writeln(s1);
readln
end.

другой.

Описание переменных:
s, s_old, s_new – исходная строка, заменяемая подстрока,

вставляемая подстрока;
i – номер символа строки, с которого начинается подстрока;
l_old – длина заменяемой подстроки.

Алгоритм решения задачи:
Ввести строку, подстроку, которую требуется заменить, и подстроку, которую требуется вставить на место прежней.
Найти место вхождения подстроки в строку с помощью функции pos().
Удалить старую подстроку с помощью процедуры delete().
Вставить новую подстроку, используя процедуру insert().