[Pascal] Script Perkalian Matriks di Pemrograman Pascal

uses wincrt;
type matrik =array[1..10,1..10] of integer;
var i,j,k,barisA, kolomA, kolomB :  integer;
   a,b,c, data : matrik;

procedure input_data(var data:matrik; baris,kolom:integer);
begin
    for i := 1 to baris do
        for j := 1 to kolom do
        begin
             write('[',i,' , ',j,' ] :');
             readln(data[i,j]);
        end;

end;

procedure kali(var c:matrik; barisA,kolomA,kolomB :integer);
begin
    for i := 1 to barisA do
        for j := 1 to kolomB do
        begin
             c[i,j] := 0;
             for k := 1 to kolomA do
                 c[i,j] := c[i,j]+a[i,k]*b[k,j];
        end;
end;

procedure cetak(data:matrik;baris,kolom :integer);
begin
    for i := 1 to baris do
        begin
             for j:= 1 to kolom do
                 write(data[i,j]:3);
                 writeln;
        end;

end;

begin
    write('Baris A : ');readln(barisA);
    write('Kolom A : ');readln(kolomA);
    write('Kolom B : ');readln(kolomB);
    writeln('Matrik A');
    input_data(a, barisA, kolomA);
    writeln('Matrik B');
    input_data(b, kolomA, kolomB);
    writeln('Matrik C');
    kali(c,barisA,kolomA,kolomB);
    writeln;
    cetak(a,barisA,kolomA);
    writeln;
    cetak(b,kolomA,kolomB);
    writeln;
    cetak(c,barisA,kolomB);
end.

Posted in: Matriks,Pascal,Pemrograman,Script

Posted in: programming