эта программа извлекает целые числа

           

Пример:

(*ST программа , использующая оператор FOR*)

(* эта программа извлекает целые числа из строки *)

length := mlen (message);

target := ''; (* empty string *)

FOR index := 1 TO length BY 1 DO

             code := ascii (message, index);

             IF (code >= 48) & (code <= 57) THEN

                         target := target + char (code);

             END_IF;

END_FOR;

        Оператор EXIT

Имя:                              EXIT

Значение:                   выход из итерационных операторов FOR, WHILE, REPEAT

Синтаксис:                 EXIT;

Операнды:                 (нет)

EXIT, обычно, используется в операторе IF внутри блоков FOR, WHILE, REPEAT.

Пример:

(*ST программа , использующая оператор EXIT*)

(* эта программа ищет символ в строке *)

length := mlen (message);

found := NO;

FOR index := 1 TO length BY 1 DO

             code := ascii (message, index);

             IF (code  = searched_char) THEN

                         found := YES;

                         EXIT;

             END_IF;

END_FOR;


Содержание  Назад  Вперед

---

---