Program Matriks pada Turbo Pascal

Penjumlahan dan Pengurangan Matriks

Pastikan pada komputer kita sudah memiliki aplikasi Turbo Pascal untuk memudahkan kita membuat suatu program dalam Turbo Pascal.

Langkah yang pertama yaitu :

  • Klik atau pilih aplikasi Turbo Pascal
  • Kemudian nanti akan muncul tampilan pada jendela Turbo Pascal, lalu tekan F10 untuk masuk dalam main menu Turbo Pascal, lalu pilih file – new.
  • Untuk membuat suatu program Case, programnya adalah :
Uses crt;
Type t = object
                  M1,m2 : array [1..2,1..2] of integer;
                  Lok : array [1..4] of integer;
Procedure input;
Procedure tampil;
Procedure tambah;
Procedure kurang;
End;
Var i,j,pil : integer;
                  M:t;
Procedure t.input;
Begin
                  Clrscr;
                  Writeln (‘ Input Matrik I ‘);
                  Writeln (‘ —————— ‘);
                  For i := 1 to 2 do
                  Begin
                  For j := 1 to 2 do
                  Begin
                  Writeln (‘ Elemen Matrik [‘,i,’][‘,j,’]= ‘);
                  Readln (m1[i,j]);
                  End;
      End;
      Clrscr;
                  Writeln (‘ Input Matrik II ‘);
                  Writeln (‘ —————— ‘);
                  For i := 1 to 2 do
                  Begin
                  For j := 1 to 2 do
                  Begin
                  Writeln (‘ Elemen Matrik [‘,i,’][‘,j,’]= ‘);
                  Readln (m2[i,j]);
                  End;
      End;
End;
Procedure t.tampil;
Begin
      Writeln;
      Writeln (‘ Matrik I ‘);
      Writeln (‘ ———– ‘);
      Writeln (m1[1,1]:5,m1[1,2]:5);
      Writeln (m1[2,1]:5,m1[2,2]:5);
      Writeln;
      Writeln (‘ Matrik II ‘);
      Writeln (‘ ———— ‘);
      Writeln (m2[1,1]:5,m2[1,2]:5);
      Writeln (m2[2,1]:5,m2[2,2]:5);
      Readln;
End;
Procedure t.tambah;
Begin
      Writeln;
Writeln (‘ Hasil Penjumlahan Matrik ‘);
      Writeln (‘ ——————————— ‘);
      Lok [1] := m1[1,1] + m2[1,1];
      Lok [2] := m1[1,2] + m2[1,2];
      Lok [3] := m1[2,1] + m2[2,1];
      Lok [4] := m1[2,2] + m2[2,2];
      Writeln;
      Writeln (lok[1]:5,lok[2]:5);
      Writeln (lok[3]:5,lok[4]:5);
      Readln;
End;
Procedure t.kurang;
Begin
      Writeln;
Writeln (‘ Hasil Pengurangan Matrik ‘);
      Writeln (‘ ——————————— ‘);
      Lok [1] := m1[1,1] – m2[1,1];
      Lok [2] := m1[1,2] – m2[1,2];
      Lok [3] := m1[2,1] – m2[2,1];
      Lok [4] := m1[2,2] – m2[2,2];
      Writeln;
      Writeln (lok[1]:5,lok[2]:5);
      Writeln (lok[3]:5,lok[4]:5);
      Readln;
End;
Begin
Repeat
Clrscr;
Writeln (‘ *** MENU MATRIKS *** ‘);
Writeln (‘ ==================== ‘);
Writeln (‘ 1. Input Matrik ‘);
Writeln (‘ 2. Penjumlahan ‘);
Writeln (‘ 3. Pengurangan ‘);
Writeln (‘ 4. Keluar ‘);
Writeln (‘ ———————————– ‘);
Write (‘ Input Pilihan : ‘);
Readln (pil);
Case pil of
1 :
Begin
      m.input;
      m.tampil;
end;
2:
Begin
      m.tambah;
end;
3:
Begin
      m.kurang;
                        end;
                  end;
                  until (pil) = 4;
                  end.
  • Setelah menuliskannya seperti pada program diatas untuk menjalankannya dapat menekan tombol Ctrl + F9
  • Setelah menekan tombol Ctrl + F9, maka pada Program Pascal akan muncul  tampilan dan perintah untuk menginput atau diminta untuk memilih satu pilihan dari beberapa pilihan yang ada dan jika memilih pilihan no.1 seperti pada gambar dibawah ini :

  • Lalu tekan tombol Enter, maka pada program akan menampillkan perintah untuk menginput Elemen-elemen matrik I dan II kemudian input data-datanya, seperti pada gambar dibawah ini :

  • Kemudian tekan Enter, maka hasilnya seperti pada gambar dibawah ini :

  • Sekarang kita menuju pada pilihan yang kedua dan ketiga, seperti pada gambar dibawah ini :

  • Kemudian tekan Enter, maka program akan memproses pada pilihan kedua yaitu penjumlahan matrik dan pengurangannya seperti pada gambar di bawah ini :

  • Dan yang terakhir untuk mengakhiri program yaitu pada pilihan no.4, jika memilih pilihan tersebut maka program akan keluar dengan sendirinya.
About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: