Membuat Program Matriks dengan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi program Matriks, berikut coding nya ^.^ :


program penjumlahan_matrik;
uses WinCrt;
var
   matriks1, matriks2, matrik_hasil : array[1..3,1..3]of integer;
   i,j:integer;
begin
Randomize;
for i:=1 to 3 do
for j:=1 to 3 do
    begin
    matriks1[i,j]:=Random(10);
    matriks2[i,j]:=Random(10);
    end;

writeln('matriks 1');
for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    begin
         write(matriks1[i,j]:5);
    end;
    writeln;
    end;


writeln('matriks 2');
for i:=1 to 3 do
    begin
         for j:=1 to 3 do
         begin
         write(matriks2[i,j]:5);
    end;
    writeln;
    end;

    for i:=1 to 3 do
    for j:=1 to 3 do
    begin
         matrik_hasil[i,j]:=matriks1[i,j]+matriks2[i,j];
    end;

 writeln('Hasil penjumlahan matriks');
    for i:=1 to 3 do
    begin
         for j:=1 to 3 do
    begin
         write(matrik_hasil[i,j]:5);
    end;
    writeln;
    end;

end.