Program Penjumlahan 2 buah Matriks dengan Pascal

matriksMatriks 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

5 comments

  1. intan berkata:

    yar Clrscr; bs brfungsi klik ap yh,
    mohon bantuanx
    sebelumx makasih bnyak

  2. rudhy berkata:

    thank’s bro…

  3. andi berkata:

    thank banyak bro

  4. willy berkata:

    thanks bro buat tutorialnya

  5. naz berkata:

    blom di coba………

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *