solutions/cw2/loops.while
author Christian Urban <christian.urban@kcl.ac.uk>
Sun, 29 Oct 2023 13:05:09 +0000
changeset 948 6bb67c2dcfd3
parent 894 02ef5c3abc51
permissions -rw-r--r--
updated
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
864
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     1
start := 1000; 
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     2
x := start;
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     3
y := start;
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     4
z := start;
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     5
while 0 < x do {
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     6
 while 0 < y do {
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     7
  while 0 < z do { z := z - 1 };
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     8
  z := start;
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
     9
  y := y - 1
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    10
 };     
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    11
 y := start;
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    12
 x := x - 1
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    13
}
Christian Urban <christian.urban@kcl.ac.uk>
parents:
diff changeset
    14