Program Penambahan Matrik di Dev Pascal

Salam Blogger..
Assalamualaikum. wr wb.

Sudah gx asing lagi kita kembali ke dev pascal bagi yang belum punya aplikasinya silahkan Download Disini kalo sudah punya y gak usah download.hehe

Untuk kali ini saya akan berbagi cara tentang penambahan matrik di dev pascal.
Silahkan copy paste script di bawah ini.

Script Penambahan Matriks di Dev Pascal

program menjumlahkan_2_buah_matriks;
uses crt;
type
  matriks = array[1..5,1..3] of integer;
var
  A,B,C  : matriks;
  M,N    : integer;

procedure isi_matriks(var M,N : integer; var A,B : matriks);
var
i,j : integer;
begin
  write('Banyaknya Baris : ');readln(m);
  write('Banyaknya Kolom : ');readln(n);
  clrscr;
  gotoxy(27,1);write('Penjumlahan 2 buah matriks)');
  {mengisi matriks A}
  window(5,3,35,11);textbackground(2);clrscr;
  textcolor(15);
  gotoxy(12,1);write('Matriks A');
  gotoxy(12,2);write('=========');
  for i := 1 to M do
  begin
    for j := 1 to N do
      begin
        gotoxy(j*5,i+2);readln(A[i,j]);
      end;
    end;
  {mengisi matriks B}
  window(45,3,75,11);textbackground(3);clrscr;
  textcolor(15);
  gotoxy(12,1);write('Matriks B');
  gotoxy(12,2);write('=========');
  for i := 1 to M do
  begin
    for j := 1 to N do
      begin
        gotoxy(j*5,i+2);readln(B[i,j]);
      end;
    end;
end;
procedure jumlah_matriks (M,N : integer; var A,B : matriks; var C : matriks);
var
  i,j : integer;
begin
for i := 1 to M do
  begin
    for j := 1 to N do
      begin
        C[i,j] := A[i,j] + B[i,j];
      end;
    end;
  end;

procedure Tampil_hasil(M,N : integer;C : matriks);
var
i,j : integer;
begin
{menampilkan matriks hasil penjumlahan}
  window(25,13,55,21);textbackground(4);clrscr;
  textcolor(15);
  gotoxy(10,1);write('Matriks hasil');
  gotoxy(10,2);write('=============');
  for i := 1 to M do
  begin
    for j := 1 to N do
      begin
        gotoxy(j*5,i+2);delay(800);write(C[i,j]);
      end;
    end;
  end;

begin
  Isi_matriks(M,N,A,B);
  jumlah_matriks(M,N,A,B,C);
  Tampil_hasil(M,N,C);
  readln;
end.

Cara Penggunaan Program :
1. Saat Program berjalan pertama-tama kita mengisikan banyaknya kolom dan baris terlebih dahulu.

2. Inputkan Nilai Matriks A dan Matriks B.

3. Selesai.

Mudahkan ? Gampang kan ? itu dia Penambahan Matrik di Pascal.

Terimakasih sudah berkunjung.. jangan sungkan untuk bertanya insaallah kalo saya bisa pasti akan saya bantu..

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest