Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
45
Task/Queue-Definition/ERRE/queue-definition.erre
Normal file
45
Task/Queue-Definition/ERRE/queue-definition.erre
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
PROGRAM CLASS_DEMO
|
||||
|
||||
CLASS QUEUE
|
||||
|
||||
LOCAL SP
|
||||
LOCAL DIM STACK[100]
|
||||
|
||||
FUNCTION ISEMPTY()
|
||||
ISEMPTY=(SP=0)
|
||||
END FUNCTION
|
||||
|
||||
PROCEDURE INIT
|
||||
SP=0
|
||||
END PROCEDURE
|
||||
|
||||
PROCEDURE POP(->XX)
|
||||
XX=STACK[SP]
|
||||
SP=SP-1
|
||||
END PROCEDURE
|
||||
|
||||
PROCEDURE PUSH(XX)
|
||||
SP=SP+1
|
||||
STACK[SP]=XX
|
||||
END PROCEDURE
|
||||
|
||||
END CLASS
|
||||
|
||||
NEW PILA:QUEUE
|
||||
|
||||
BEGIN
|
||||
PILA_INIT ! constructor
|
||||
FOR N=1 TO 4 DO ! push 4 numbers
|
||||
PRINT("Push";N)
|
||||
PILA_PUSH(N)
|
||||
END FOR
|
||||
FOR I=1 TO 5 DO ! pop 5 numbers
|
||||
IF NOT PILA_ISEMPTY() THEN
|
||||
PILA_POP(->N)
|
||||
PRINT("Pop";N)
|
||||
ELSE
|
||||
PRINT("Queue is empty!")
|
||||
END IF
|
||||
END FOR
|
||||
PRINT("* End *")
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue