Implementasi Matrix Pada Turbo Pacsal

Ini merupakan bagian dari tugas kuliah yang saya posting..
semoga bermanfaat bagi pembaca

Program matematika Diskrit
{MATA KULIAH MATEMATIKA DISKRIT}
Program Penjumlahan_Matrik;
Uses Crt;
Var
matriX : Array[1..2,1..3] of Integer;
i,j : Integer;
Begin
ClrScr;

{ input matrix}

Writeln('Masukkan nilai Matrixnya :');
Writeln(' ');
For i := 1 to 2 Do
Begin
For j := 1 to 3 Do
Begin
Write(' >> Nilai baris ke ',i,' Kolom ke ',j,'= ');
Readln(matrix[i,j]);
End;
End;

{proses}

Writeln(' ');
Writeln('Matrix Dua Kali Tiga Adalah :');
Writeln(' ');
For i:= 1 to 2 Do
Begin
For j:= 1 to 3 Do
Begin
Write(matrix[i,j]:6);
End;
Writeln;
End;
Readln;
End.


Semoga bermanfaat.