A2a fertig

This commit is contained in:
Johannes Theiner 2020-04-25 10:57:28 +02:00
parent f9778818f3
commit cf0f988c9c
4 changed files with 10 additions and 9 deletions

BIN
mCRL2/VendingMachine/.DS_Store vendored Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -18,7 +18,7 @@ sort
map
value: Coin -> Int; % the value of a coin as an integer
next: Coin -> Coin;
next: Coin -> Int;
eqn
value(_5c) = 5;
@ -27,10 +27,11 @@ eqn
value(_50c) = 50;
value(Euro) = 100;
next(Euro) = _50c;
next(_50c) = _20c;
next(_20c) = _10c;
next(_10c) = _5c;
next(Euro) = 10000;
next(_50c) = 100;
next(_20c) = 50;
next(_10c) = 20;
next(_5c) = 10;
% -----------------------------------------------------------------------------------------------------------------------
@ -68,10 +69,10 @@ proc
VM(credit : Int) =
(credit < 200) -> sum c : Coin.accept(c).VM(credit + value(c))
+ sum p : Product.(
(credit > 0) -> returnChange(credit).ReturnChange(credit + price(p))
)
+ (credit > 0) -> returnChange(credit).ReturnChange(credit);
+ sum p : Product.(
(credit >= price(p)) -> offer(p).serve(p).VM(credit - price(p))
)
ReturnChange(credit : Int) =