Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DECLARE cart CHAR(20) DIM(10);
DECLARE prices FIXED BINARY(31) DIM(10);
DECLARE count FIXED BINARY(31) INITIAL(0);
ADDITEM: PROCEDURE(item, price);
cart(count) = item;
prices(count) = price;
count = count + 1;
END ADDITEM;
REMOVEITEM: PROCEDURE(idx);
DO i = idx TO count-2;
cart(i) = cart(i+1);
prices(i) = prices(i+1);
END;
count = count -1;
END REMOVEITEM;
CALL ADDITEM('Apple',2);
CALL ADDITEM('Banana',3);
CALL REMOVEITEM(0);Coding works best on desktop or with an external keyboard.