Инструменты пользователя
cp:obx-proc-type
Различия
Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слева Предыдущая версия | |||
|
cp:obx-proc-type [2024/08/15 11:52] theathlete [Пример] |
cp:obx-proc-type [2024/08/28 10:41] (текущий) theathlete [Пример] |
||
|---|---|---|---|
| Строка 13: | Строка 13: | ||
| TYPE | TYPE | ||
| - | CalculatorLong = PROCEDURE (OUT acc: LONGINT; cur: INTEGER); | + | CalculatorLong = PROCEDURE (VAR acc: LONGINT; cur: INTEGER); |
| - | CalculatorBool = PROCEDURE (OUT acc: BOOLEAN; a, b: INTEGER); | + | CalculatorBool = PROCEDURE (VAR acc: BOOLEAN; a, b: INTEGER); |
| - | PROCEDURE Add(OUT acc: LONGINT; cur: INTEGER); | + | PROCEDURE Add(VAR acc: LONGINT; cur: INTEGER); |
| BEGIN acc := acc + cur END Add; | BEGIN acc := acc + cur END Add; | ||
| - | PROCEDURE Sub(OUT acc: LONGINT; cur: INTEGER); | + | PROCEDURE Sub(VAR acc: LONGINT; cur: INTEGER); |
| BEGIN acc := acc - cur END Sub; | BEGIN acc := acc - cur END Sub; | ||
| - | PROCEDURE Mul(OUT acc: LONGINT; cur: INTEGER); | + | PROCEDURE Mul(VAR acc: LONGINT; cur: INTEGER); |
| BEGIN acc := acc * cur END Mul; | BEGIN acc := acc * cur END Mul; | ||
| - | PROCEDURE Div(OUT acc: LONGINT; cur: INTEGER); | + | PROCEDURE Div(VAR acc: LONGINT; cur: INTEGER); |
| BEGIN acc := acc DIV cur END Div; | BEGIN acc := acc DIV cur END Div; | ||
| - | PROCEDURE Greater(OUT acc: BOOLEAN; a, b: INTEGER); | + | PROCEDURE Greater(VAR acc: BOOLEAN; a, b: INTEGER); |
| BEGIN acc := acc & (a > b) END Greater; | BEGIN acc := acc & (a > b) END Greater; | ||
| - | PROCEDURE Less(OUT acc: BOOLEAN; a, b: INTEGER); | + | PROCEDURE Less(VAR acc: BOOLEAN; a, b: INTEGER); |
| BEGIN acc := acc & (a < b) END Less; | BEGIN acc := acc & (a < b) END Less; | ||
| - | PROCEDURE ReduceLong(nums: | + | PROCEDURE ReduceLong(IN nums: ARRAY OF INTEGER; c: CalculatorLong): |
| VAR | VAR | ||
| i: INTEGER; | i: INTEGER; | ||
| Строка 44: | Строка 44: | ||
| END ReduceLong; | END ReduceLong; | ||
| - | PROCEDURE ReduceBool(nums: | + | PROCEDURE ReduceBool(IN nums: ARRAY OF INTEGER; c: CalculatorBool): |
| VAR | VAR | ||
| i: INTEGER; | i: INTEGER; | ||
cp/obx-proc-type.1723711937.txt.gz · Последнее изменение: 2024/08/15 11:52 — theathlete
Инструменты страницы
Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Share Alike 4.0 International
