Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
PROGRAM ShoppingCart;
CHARACTER CART(10,20);
INTEGER PRICES(10);
INTEGER COUNT := 0;
PROCEDURE ADDITEM(ITEM,PRICE);
BEGIN
CART(COUNT) := ITEM;
PRICES(COUNT) := PRICE;
COUNT := COUNT + 1;
END ADDITEM;
PROCEDURE REMOVEITEM(IDX);
INTEGER I;
BEGIN
FOR I := IDX TO COUNT-2 DO
CART(I) := CART(I+1);
PRICES(I) := PRICES(I+1);
END;
COUNT := COUNT - 1;
END REMOVEITEM;
BEGIN
CALL ADDITEM('Apple',2);
CALL ADDITEM('Banana',3);
CALL REMOVEITEM(0);
END;Coding works best on desktop or with an external keyboard.