|
|
|
|
|
|
|
|
|
|
|
{Der Type steht in allen Prozeduren. Sie wurden mit dieser Matrix getestet (hier nur zum Verständnis am Anfang der Prozedur)}
TYPE matij = ARRAY[1..10,1..10] OF REAL;
PROCEDURE multi(A: matij; B: matij; VAR C: matij; Azeile: INTEGER; Bspalte: INTEGER; Aspalte: INTEGER; VAR Czeile: INTEGER; VAR Cspalte: INTEGER); VAR i, j, k: INTEGER; zv : REAL; BEGIN FOR i := 1 TO Azeile DO BEGIN FOR k := 1 TO Bspalte DO BEGIN zv := 0; FOR j := 1 TO Aspalte DO zv := zv + A[i,j] * B[j,k]; C[i,k] := zv END END; Czeile := Azeile; Cspalte := Bspalte; END;
|
|
|
|
|
|
|
|
|
Letzte Änderung: 09.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 -
|
|
|
|
 |
|
|
|
|