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...