CONCAT на функция

Strings, които се състоят от брой символи, можете да се превърнат в числа.

Вал (S низ; Var стойност; Var код :. Integer);

където S - низ се превръща в редица;

Стойност - променлива от тип Integer или Реал;

Код - число променлива, която зависи успехът на преобразуването.

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

Var бр, в: цяло число;

writeln ( "стойност =", бр "код = 'в); // стойност = Изключена 150 Code = 0

Var бр, в: цяло число;

writeln ( "стойност =", бр "код = 'в); // грешка Второ герои!

// Получава стойност = 1 Код = 2

Операцията по обратен за Val. Numbers се превръщат в конци, които се състоят от брой символи.

Ул (стойност [Ширина [Decimals] ..]; Var S. низ);

където стойност - променлива от тип цяло число или реален, стойността на който се превръща в низ;

Широчина - незадължителен параметър, който определя броя на знаците в получения низ;

Decimals - незадължителен параметър, който определя броя на знаците след десетичната запетая;

S - низ, който се създава.

writeln (ST); // Получена 160.24

Concat функция - се използва за комбиниране (конкатенация) на произволен брой редове. Тя ви позволява да добавите Один низ до края на друга.

Concat (s1: низ [, S2 зп.]): Низ;

Квадратни скоби означават, че променливи S2 The. SN задължително.

во: = Concat ( "Сити", "Одеса! '); // во = 'Град Одеса!';

Използване на оператора + има същия ефект като използва функцията Concat.

ва: = "Сити" + ", Одеса! '; // во = 'Град Одеса!';

+ Оператор е по-бързо, отколкото функция Concat.

Пример. Изчислете определен низ ( "BABABB ABBBA") брой на "Б" общо символи, както и премахване от него тези символи "Б", предшествано (в входния низ), героите "А".

Simple броене сложна задача взискателни отстраняване на някои символи. Комбинацията от тези два проблема в един цикъл не е много удобно, за да се разчита символи е по-добре да се използва цикъл с параметър

Защото: = 1 до дължина (Z) направи. ;,

и да изтриете символи - гъвкав контур

докато Поз. (Z)<>0 направя.

конст марки: Чар = Chr (0); // Chr (0) - непечатна характер