Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 13 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

Окончание табл. 3
1 2
Pos (Substr: String; Z: String):
Byte;
Определяет первое вхождение подстро-
ки Z в строку Substr и возвращает 0, если
Z не содержит Substr или номер первого
символа Substr в Z.
Insert (Source: String; Var Z :
String;Index : Integer);
Вставляет в строку Z подстроку Source,
начиная с позиции Index .
Delete (Var Z: String; Index:
Integer; Count: Integer);
Удаляет из строки Z подстроку длиной
Count, начинающуюся с позиции Index.
Str (N : [:Width[:Decimals]]; Var
Z: String);
Преобразует числовое значение N в
строковое Z. Возможно задание формата
для N.
Val (Z; Var N; Var Code: Integ-
er);
Преобразует строковое значение Z
(строку цифр) в значение числовой пе-
ременной N.
3.4. Примеры использования процедур и функций
Рассмотрим работу функций на конкретных примерах.
Используются две процедуры, которые корректно удаляют
и вставляют символы в строку. При удалении символов ос-
тавшаяся часть строки подтягивается к началу, чтобы занять
образовавшуюся после удаления «дырку». При вставке, на-
оборот, строка раздвигается, чтобы вместить вставляемые
символы.
Пример 6.
Надо удалить из строки St пять символов, начиная с 1-ой
позиции.
St : = ' peка Волга ' ;
Delete (St, 1, 5) ;
В результате St = ' Bолга '.
Пример 7.
Удалить все пробелы из начала строки st (пробелы в на-
чале строки называются ведущими пробелами):
While st [l] = ' ' Do Delete (st, 1, 1) ;
Аналогичный фрагмент можно написать для удаления
пробелов из конца строки (завершающих пробелов):
While St [Length (St)] = ' ' do Delete (St, Length (St), 1) ;
13
                                                        Окончание табл. 3

                 1                                    2
Pos (Substr: String; Z: String): Определяет первое вхождение подстро-
Byte;                             ки Z в строку Substr и возвращает 0, если
                                  Z не содержит Substr или номер первого
                                  символа Substr в Z.
Insert (Source: String; Var Z : Вставляет в строку Z подстроку Source,
String;Index : Integer);          начиная с позиции Index .
Delete (Var Z: String; Index: Удаляет из строки Z подстроку длиной
Integer; Count: Integer);         Count, начинающуюся с позиции Index.
Str (N : [:Width[:Decimals]]; Var Преобразует числовое значение N в
Z: String);                       строковое Z. Возможно задание формата
                                  для N.
Val (Z; Var N; Var Code: Integ- Преобразует строковое значение Z
er);                              (строку цифр) в значение числовой пе-
                                  ременной N.

    3.4. Примеры использования процедур и функций
    Рассмотрим работу функций на конкретных примерах.
Используются две процедуры, которые корректно удаляют
и вставляют символы в строку. При удалении символов ос-
тавшаяся часть строки подтягивается к началу, чтобы занять
образовавшуюся после удаления «дырку». При вставке, на-
оборот, строка раздвигается, чтобы вместить вставляемые
символы.
    Пример 6.
    Надо удалить из строки St пять символов, начиная с 1-ой
позиции.
    St : = ' peка Волга ' ;
    Delete (St, 1, 5) ;
    В результате St = ' Bолга '.
    Пример 7.
    Удалить все пробелы из начала строки st (пробелы в на-
чале строки называются ведущими пробелами):
                While st [l] = ' ' Do Delete (st, 1, 1) ;
    Аналогичный фрагмент можно написать для удаления
пробелов из конца строки (завершающих пробелов):
    While St [Length (St)] = ' ' do Delete (St, Length (St), 1) ;

                                    13

Страницы