Program Penjumlahan 2 buah Matriks dengan Pascal

July 29, 2009 by Dede Kurniadi
Filed under: Pascal, Pemrograman

Matriks adalah suatu kumpulan besaran (variabel dan konstanta) yang dapat dirujuk melalui indeknya, yang menyatakan posisinya dalam representasi umum yang digunakan, yaitu sebuah tabel persegipanjang. Matriks merupakan suatu cara visualisasi variabel yang merupakan kumpulan dari angka-angka atau variabel lain, misalnya vektor. Dengan representasi matriks, perhitungan dapat dilakukan dengan lebih terstruktur. Pemanfaatannya misalnya dalam menjelaskan persamaan linier, transformasi koordinat, dan lainnya. Matriks seperti halnya variabel biasa dapat dimanipulasi, seperti dikalikan, dijumlah, dikurangkan dan didekomposisikan. setelah mengerti apa itu matriks, maka pada latihan pemrograman kali ini yaitu membuat program untuk penjumlahan matriks dengan ordo bebas menggunakan pascal, adapun source code lengkapnya adalah sebagai berikut :

Program Menjumlahkan_2Buah_Matriks;
Uses Crt;
Var B,K,Br,Kl,C,L : Byte;
M1,M2,M3 : Array[1..10,1..10] of Byte;
Begin
Clrscr;
Gotoxy(10,5);Write(‘***** Menjumlahkan Dua Buah Matriks*****’);
Gotoxy(10,7);Write(‘Jumlah Ordo Matriksnya = x ‘);
Gotoxy(35,7);Readln(B);
Gotoxy(39,7);Readln(K);
Gotoxy(10,9);write(‘Masukkan Matriks Ke Satu’);
L:=10;
For br := 1 to b do
Begin
c := 15;
For kl :=1 to k do
Begin
gotoxy(c,l);readln(m1[br,kl]);
c := c + 2;
end;
l := l + 1;
end;
Gotoxy(10,14);write(‘Masukkan Matriks Ke Dua’);
l:=15;
For br := 1 to b do
Begin
C := 15;
For kl := 1 to k do
Begin
Gotoxy(c,l);readln(m2[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Gotoxy(10,18);write(‘Maka Hasil Penjumlahan Matriks’);
L:=20;
For br := 1 to b do
Begin
C:=15;
For kl := 1 to k do
Begin
M3[br,kl] := M1[br,kl] + M2[br,kl];
Gotoxy(c,l);Write(m3[br,kl]);
C := c + 2;
end;
L := L + 1;
end;
Readln;
End.
Copyright © Dede Kurniadi