Exersices 3

Dosen : Elisawati, S.Kom, M.Kom

Buatlah perkalian matrik ordo 5X6. Gunakan program array 2 dimensi. ?

Jawaban :

exersices3.pas

Program Exersices3;

uses CRT;

var
    Tabel_1,Tabel_2,Hasil : Array[1..5,1..6] of INTEGER;
    z,y,c,d : INTEGER;

Label 
    Matrix_1,Matrix_2,Matrix_Penjumlahan,cetak;

procedure tor(var a : INTEGER);
begin
    c := a+1;
end;

begin
    clrscr;
    textbackground(red);
    textcolor(white);
    Gotoxy(25,1); write('Kalkulator Matrik 5x6');
    textbackground(0);
    Goto Matrix_1;
    Matrix_1:
        window(1,3,40,40);
        d := 1;
        for z := 1 to 5 do
        begin
            for y := 1 to 6 do
            begin
                Gotoxy(1,20); write('Elemen baris -',z,' kolom -',y,'= '); readln(Tabel_1[z,y]);
                textbackground(0);
                textcolor(green);
                Gotoxy(y+y+y+y,2+z); write(Tabel_1[z,y]);
            end;
        end;
    Goto Matrix_2;
    Matrix_2:
        window(40,3,80,40);
        d := 1;
        Gotoxy(35,5); write('+');
        for z := 1 to 5 do
        begin
            for y := 1 to 6 do
            begin
                Gotoxy(1,20); write('Elemen baris -',z,' kolom -',y,'= '); readln(Tabel_2[z,y]);
                Gotoxy(y+y+y+y+40,2+z); write(Tabel_2[z,y]);
            end;
        end;
    Goto Matrix_Penjumlahan;
    Matrix_Penjumlahan:
        for z := 1 to 5 do
            begin
                for y := 1 to 6 do
                    begin
                        Hasil[z,y]:=Tabel_1[z,y]+Tabel_2[z,y];
                    end;
            end;
    Goto Cetak;
    Cetak:
        window(1,7,40,5);
        Gotoxy(4,9); write('Hasil Penjumlahan =');
        for z := 1 to 5 do
        begin
            for y := 1 to 6 do
                begin
                    Gotoxy(y+y+y+y,10+z); write(Hasil[z,y]);
                    delay(5);
                end;
        end;.pas
end.