3.1. Процедуры обработки строк

Delete (st, Poz, N) - удаление N символов из строки с именем st, начиная с позиции Poz.

st:='река_Волга'; Delete (st, 1, 5);

Результат 'Волга'.

insert (stl, st2, poz); - вставка строки stl в строку st2, начиная с позиции Poz.

st1: = 'Дом_25_'

st2: =' На_улице_живет_петух_';

insert (stl, st2, 10);

Результат: "На_улице_дом 25_живет_петух";

str (IBR, st); преобразует число IBR (типа integer, byte или Real) и помещает результат в строку st. Возможно после IBR указать ширину поля. Если ширины поля не хватает, оно автоматически расширяется до нужной величины.

str (1500:6, stl); даст результат '_1500';

str (4.8е+03:10, stl); - результат '_ 4.800E+03';

str (-46854:3, stl); - результат '-46854'.

Val (st, IBR, Cod); процедура преобразует значение st в величину целочисленного или вещественного типа и помещает результат в IBR. Значение st должно содержать символьное изображение числа и не содержать символов, не присущих изображению чисел (например, пробелов перед цифрами), букв и т.п. Cod - целочисленная переменная индуцирующая ошибку. Если Cod=0, преобразование произведено без ошибки, если Cod=5, то ошибка при преобразовании - 5 символов.

Программа Program Prim 40; иллюстрирует работу вышеописанных процедур:

Program Prim40;
var st1,st2:string[30];

BEGIN
st1:=' река Волга ';

delete(st1,1,5);
writeln(st1);

st1:='дом 25 '; st2:='на улице живет петух';

insert(st1,st2,10);
writeln(st2);

str(1500:6,st1);
writeln(st1);

str(4.8e+03:10,st1);
writeln(st1);

str(-46854:3,st1);
writeln(st1);

readln;
END.