- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
PROCEDURE changeValue ( KeyStore:IN OUT Keys'Class; value: IN INTEGER )
IS
BEGIN
IF value = 1024 THEN
Message ( "NOT IN RANGE" );
ELSIF value = 2048 THEN
Message ( "OUT OF RANGE" );
ELSIF value = KeyStore.def THEN
KeyStore.val = value;
ELSE
Message ( "IN RANGE");
END IF;
END changeValue;
guest # 0
Наверно в реальном коде этих условий не будет.