Dunia [masih] bersinar

Matriks Identitas atau matriks satuan adalah matriks persegi yang elemen – elemen pada diagonal utama seluruhnya adalah bilangan 1 dan lainnya adalah bilangan 0. Dengan kata lain, saat elemen kolom dengan elemen baris matriks adalah sama sebagai contoh a₁₁, a₂₂, a₃₃, dan seterusnya maka bernilai satu sedangkan elemen lainnya otomatis akan bernilai 0. Keistimewaan matriks identitas ialah apabila dikalikan dengan matriks lain yang elemen-elemennya bernilai acak, maka hasilnya akan serupa dengan matriks tersebut. Gampangnya, matriks identitas itu seperti perkalian suatu bilangan dengan angka 1. Berikut ini contoh kode program yang saya tulis. S

Program matriksIdentitas;

uses
    crt;

var
    matID: Array[1..10, 1..10] of Integer;
    ordo, i, j: integer;

begin
    clrscr;
    writeln('PROGRAM MENENTUKAN MATRIKS IDENTITAS');
    writeln(' ');

    {validasi input 1=<ordo<=10}
    repeat
    write('Matriks berordo: ');
    readln(ordo);
    until (ordo>=1) and (ordo<=10);

    {iterasi untuk menentukan elemen matriks identitas}
    For i := 1 to ordo do begin
        For j := 1 to ordo do begin
            If i = j Then
               matID[i, j] := 1
            Else
               matID[i, j] := 0;
        end;
    end;

    {menampilkan hasil}
    writeln(' ');
    write('HASIL matriks identitas berordo ', ordo,' adalah:');
    writeln(' ');
    For i := 1 to ordo do begin
        For j := 1 to ordo do begin
            write(matID[i, j], ' ');
        end;
        writeln(' ')
    end;
    readln;
end.

Berikut gambar bagaimana tampilan dari program di atas saat dijalankan: