Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
bb:redbook:209 [2019/07/23 13:48] caufman [3. Атрибут IN] |
bb:redbook:209 [2020/10/29 07:08] (текущий) |
||
---|---|---|---|
Строка 36: | Строка 36: | ||
Пример ниже показывает как работать с такими параметрами: | Пример ниже показывает как работать с такими параметрами: | ||
- | + | MODULE TestTest_out; | |
- | + | | |
+ | |||
+ | PROCEDURE Do(OUT z:INTEGER; r:REAL); | ||
+ | VAR | ||
+ | BEGIN | ||
+ | z:=5; | ||
+ | r:=-1; | ||
+ | END Do; | ||
+ | |||
+ | PROCEDURE Start*; | ||
+ | VAR | ||
+ | BEGIN | ||
+ | Do(0,0) | ||
+ | END; | ||
+ | |||
+ | BEGIN | ||
+ | END TestTest_out. | ||
Как видно из примера, | Как видно из примера, | ||
- | + | MODULE TestTest_out; | |
- | + | | |
+ | |||
+ | PROCEDURE Do (OUT z: INTEGER; r: REAL); | ||
+ | VAR | ||
+ | BEGIN | ||
+ | z := 5; | ||
+ | r := - 1; | ||
+ | END Do; | ||
+ | |||
+ | PROCEDURE Start*; | ||
+ | VAR | ||
+ | z1: INTEGER; | ||
+ | r1: REAL; | ||
+ | BEGIN | ||
+ | Do(z1, r1); | ||
+ | StdLog.Int(z1); | ||
+ | StdLog.Real(r1); | ||
+ | END Start; | ||
+ | |||
+ | BEGIN | ||
+ | END TestTest_out. | ||
+ | |||
+ | (!)TestTest_out.Start | ||
Оператор RETURN мог бы возвращать несколько значений, | Оператор RETURN мог бы возвращать несколько значений, | ||