Инструменты пользователя
cp:obx-proc-type
Различия
Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
cp:obx-proc-type [2024/08/15 11:51] 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; | ||
| Строка 63: | Строка 63: | ||
| sum, mul: LONGINT; | sum, mul: LONGINT; | ||
| greater, less: BOOLEAN; | greater, less: BOOLEAN; | ||
| - | | ||
| BEGIN | BEGIN | ||
| sn[0] := 1; sn[1] := 3; sn[2] := 5; sn[3] := 7; sn[4] := 9; | sn[0] := 1; sn[1] := 3; sn[2] := 5; sn[3] := 7; sn[4] := 9; | ||
cp/obx-proc-type.1723711869.txt.gz · Последнее изменение: 2024/08/15 11:51 — theathlete
Инструменты страницы
Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Share Alike 4.0 International
