Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,30 @@
PROGRAM CLASS2_DEMO
CLASS QUADRATO
LOCAL LATO
PROCEDURE GETLATO(L)
LATO=L
END PROCEDURE
PROCEDURE AREA(->A)
A=LATO*LATO
END PROCEDURE
PROCEDURE PERIMETRO(->P)
P=4*LATO
END PROCEDURE
END CLASS
NEW P:QUADRATO,Q:QUADRATO
BEGIN
P_GETLATO(10)
P_AREA(->AREAP)
PRINT(AREAP)
Q_GETLATO(20)
Q_PERIMETRO(->PERIMETROQ)
PRINT(PERIMETROQ)
END PROGRAM