VDM-10 Language Manual

Chapter 13. Statements
✡✝
(dcl z:nat := x;
dcl m:\keyw{nat} := l(z);
-- find min val in l(x..y)
for i = x to y do
if l(i) < m
then ( m := l(i);
z := i);
-- move min val to index x
(dcl temp:nat;
temp := l(x);
l(x) := l(z);
l(z) := temp;
x := x+1));
✆
BubbleMax operates in a similar fashion. It iterates through the subsequence to find the
index of the maximum value, then swaps the contents of this index with the contents of the
last element of the subsequence.
✞
✡✝
BubbleMax : () ==> ()
BubbleMax () ==
(dcl z:nat := x;
dcl m:nat := l(z);
-- find max val in l(x..y)
for i = x to y do
if l(i) > m
then ( m := l(i);
z := i);
-- move max val to index y
(dcl temp:nat;
temp := l(y);
l(y) := l(z);
l(z) := temp;
y := y-1));
✆
13.9 The Call Statement
Syntax: statement = . . .
| call statement
| . . . ;
111