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,53 @@
PROGRAM MAT_PROD
!$MATRIX
!-----------------
! calculate A[]^N
!-----------------
CONST ORDER=1
DIM A[1,1],B[1,1],ANS[1,1]
BEGIN
DATA(3,2,2,1)
DATA(10) ! integer power only
FOR I=0 TO ORDER DO
FOR J=0 TO ORDER DO
READ(A[I,J])
END FOR
END FOR
READ(M) N=M-1
IF N=0 THEN ! A[]^0=matrice identit…
for I=0 TO ORDER DO
B[I,I]=1
END FOR
ELSE
B[]=A[]
FOR Z=1 TO N DO
ANS[]=0
FOR I=0 TO ORDER DO
FOR J=0 TO ORDER DO
FOR K=0 TO ORDER DO
ANS[I,J]=ANS[I,J]+(A[I,K]*B[K,J])
END FOR
END FOR
END FOR
B[]=ANS[]
END FOR
END IF
! print answer
FOR I=0 TO ORDER DO
FOR J=0 TO ORDER DO
PRINT(B[I,J],)
END FOR
PRINT
END FOR
END PROGRAM