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
37
Task/Matrix-multiplication/ERRE/matrix-multiplication.erre
Normal file
37
Task/Matrix-multiplication/ERRE/matrix-multiplication.erre
Normal file
|
|
@ -0,0 +1,37 @@
|
|||
PROGRAM MAT_PROD
|
||||
|
||||
DIM A[3,1],B[1,2],ANS[3,2]
|
||||
|
||||
BEGIN
|
||||
|
||||
DATA(1,2,3,4,5,6,7,8)
|
||||
DATA(1,2,3,4,5,6)
|
||||
|
||||
FOR I=0 TO 3 DO
|
||||
FOR J=0 TO 1 DO
|
||||
READ(A[I,J])
|
||||
END FOR
|
||||
END FOR
|
||||
|
||||
FOR I=0 TO 1 DO
|
||||
FOR J=0 TO 2 DO
|
||||
READ(B[I,J])
|
||||
END FOR
|
||||
END FOR
|
||||
|
||||
FOR I=0 TO UBOUND(ANS,1) DO
|
||||
FOR J=0 TO UBOUND(ANS,2) DO
|
||||
FOR K=0 TO UBOUND(A,2) DO
|
||||
ANS[I,J]=ANS[I,J]+(A[I,K]*B[K,J])
|
||||
END FOR
|
||||
END FOR
|
||||
END FOR
|
||||
! print answer
|
||||
FOR I=0 TO UBOUND(ANS,1) DO
|
||||
FOR J=0 TO UBOUND(ANS,2) DO
|
||||
PRINT(ANS[I,J],)
|
||||
END FOR
|
||||
PRINT
|
||||
END FOR
|
||||
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue