Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
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 мог бы возвращать несколько значений, | ||