Функция Concat

Процедура Str

Процедура Val

Строки, которые состоят из символов цифр, можно превратить в числа.

Val(S : string; var Value; var Code :Integer);

где S – строка, которая превращается в число;

Value – переменная типа Integer или Real;

Code – переменная целого типа, которая определяет успешность преобразования.

Если переменная Code равняется нулю, то преобразование прошло успешно. Если Code¹0, то это номер позиции в строке где стоит первый ошибочный символ.

Например:

const st='150';

var num, c :integer;

begin

val(st, num, c);

writeln('Value =', num, ' Code=',c); // Выведено Value =150 Code =0

end.

const st='1a50';

var num, c :integer;

begin

val(st,num,c);

writeln('Value =', num,' Code=',c); // Ошибка во втором символе!

//Выведено Value=1 Code =2

end.

Обратная операция для Val. Числа превращаются в строки, которые состоят из символов цифр.

Str(Value [ : Width [ : Decimals]]; var S : string);

где Value – переменная целого или действительного типа, значение которой превращается в строку;

Width – необязательный параметр, который определяет количество символов в создаваемой строке;

Decimals – необязательный параметр, который определяет количество символов после десятичной точки;

S – строка, которая создается.

Пример:

var N:real;

st:string[7];

begin

n:=160.236;

str(n:6:2,st);

writeln(st); //Выведено 160.24

end.

Функция Concat – используется для объединения (конкатенации) произвольного количества строк. Она позволяет дописать одину строку в конец другой.

Concat(s1 [, s2,..., sn]: string): string;

Квадратные скобки означают, что переменные s2,..., sn необязательные.

Например:

st:=Concat(’City’,’ Odessa!’); // st=’City Odessa!';

Использование оператора + имеет тот же эффект, что и использование функции Concat.

st:=’City’+’ Odessa!’; // st=’City Odessa!';

Оператор + выполняется быстрее, чем функция Concat.

Пример. Подсчитать в заданной строке ('BABABB ABBBA') количество всех символов 'В' и удалить из нее те символы 'В', которым предшествуют (во входной строке) символы 'А'.

Простая задача подсчета осложнена требованием удаление определенных символов. Совмещение этих двух задач в одном цикле не очень удобно, так как для подсчета символов лучше применить цикл с параметром

For i:=1 to length (z) do ....;,

а для удаления символов – универсальный цикл

while Pos(...,z)<>0 do....

program Str_134;

const mark:Char=Chr(0); // Chr(0) – непечатный символ

var z:string;

i,q:byte;

begin

writeln('Input string');

readln(z);

q:=0;

For i:=1 to Length(z) do

if z[i]='B' then

begin

inc(q);

if z[i-1]='A' then z[i]:=mark

end;

while Pos(mark,z)<>0 do

Delete(z, Pos(mark,z),1);

writeln('Quantity of symbols ''B'' in the string: ', q);

writeln('Output string ', z);

readln;readln

end.

Результат

Input string

BABABB ABBBA

Quantity of symbols ''B'' in the string: 7

Output string: BAAB ABBA