#Program_Komputer | Proram Perkalian Dua Buah Matrik

Program Perkalian_Dua_Buah_Matrik;
Uses dos, crt;
Type
    Larik=array[1..25, 1..25] of real;
Var
   I,J,K:byte;
   M,N,L:byte;
   A,B,C:Larik;
   Ch:char;
Begin
     Clrscr;
     Writeln('Program Perkalian Dua Buah Matrik');
     Writeln;
     Writeln('Nama          : Wiwit Safitri');
     Writeln('NIM           : ACA 113 033');
     Writeln('Program Studi : Pendidikan Matematika');
     Writeln('Mata Kuliah   : Program Komputer');
     Writeln('Dosen Pengampu: Drs. Elyasib Y Lada, M.Pd');
     Writeln;
     write('Tuliskan banyaknya elemen baris matrik pertama (M)=');
     readln(M);
     Writeln;
     write('Tuliskan banyak elemen kolom matrik pertama/baris matrik kedua(N)=');
     readln(N);
     writeln;
     write('Tuliskan banyak elemen kolom matrik kedua (L)=');
     readln(L);
     writeln;
     Writeln;
     writeln('Matrik yang pertama:');
     For I:=1 To M Do
     Begin
          For J:=1 To N Do
          Begin
          Write('Nilai[',I,',',J,']=');
          Readln(A[I,J]);
          End;
          Writeln;
     End;
    writeln('Matrik yang kedua');
    For I:=1 To N Do
    Begin
         For J:=1 To L Do
         Begin
         Write('Nilai[',I,',',J,']=');
         Readln(B[I,J]);
         End;
         Writeln;
    End;
    For I:=1 To M Do
    Begin
         For J:=1 To N Do
         Begin
              C[I,J]:=0;
              For K:=1 To L Do
              C[I,J]:=C[I,J]+A[I,K]*B[K,J];
         End;
    End;
    {mencetak hasil perkalian}
    clrscr;
    writeln('Hasil dari perkalian matrik:');
    writeln;
    For I:=1 To M Do
    Begin
         For J:=1 To L Do
         writeln(C[I,J]:10:0);
         Writeln;
         Ch:=readkey;
         End;
End.