Minggu, 20 April 2014

PENGURANGAN DUA MATRIX DENGAN BAHASA PASCAL

Oke sob, hari ini dimana saya akan berbagi listing pascal tentang pengurangan 2 matrix
langsung aja nih..


LISTING PROGRAM DUA MATRIK

program pengurangan_matriks2;
uses crt;
var
    M1  : array[1..20, 1..20] of integer;
    M2  : array[1..20, 1..20] of integer;
    M3  : array[1..20, 1..20] of integer;
    
    i, j, m, n, x, y    : integer;
begin
    clrscr;
    write('Banyak baris : ');
    readln(m);
    write('Banyak kolom : ');
    readln(n);
     writeln('Matriks pertama : ');
    y := 4;
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            gotoxy(x,y);
            readln(M1[i,j]);
            x := x + 8;
        end;
        y := y + 1;
    end;
     writeln('Matriks kedua : ');
    y := 5 + m;
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            gotoxy(x,y);
            readln(M2[i,j]);
            x := x + 8;
        end;
        y := y + 1;
    end;
    begin
    clrscr;
    textcolor(10);
    writeln('Proses Pengurangan');
    textcolor(15);
    y := 2 + (2 * m);
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            M3[i,j] := M1[i,j] - M2[i,j];
            gotoxy(x,y);
            write(M1[i,j], ' - ',  M2[i,j]);
            x := x + 15;
        end;
        y := y + 1;
    end;
    end;
    readln;
 writeln;
 begin
 clrscr;
    writeln('Hasil Pengurangan Matriks : ');
    for i := 1 to m do begin
        for j := 1 to n do
            write(M3[i,j]:8);
        writeln;
        end;
    end;
readln;
end.


itu aja yang bisa saya bagi untuk kalian sob... smoga bermanfaat bagi semuanya..
langsung like aja ya...