program matriks pada aplikasi turbo pascal 7 beserta logikanya

Cara membuat invers matrik di apliikasi turbo pascal7 pada windows 64 bit

1.       Pastikan pc anda terinstal dosbox dan aplikasi turbo pascal terinstal di dalam folder DOSHR , lihat gambar sudah ada folder tp7 yang di dalamnya ada aplikasi turbo pascal.

2.       Setelah persiapan di nomor 1 terpenuhi maka buka program dosbox lalu  ketikan cd tp7 -> cd bin -> tpx nah tpx ini adalah program pascalnya loh.

3.       Didalam program tpx ketikan koddingan seperti gambar di bawah ini :.. dengan nama matriks.pas

Logika dari uses crt adalah untuk koddingan pengontrol dari semua koddingan di bawah nya sedangkan var a,b,c,d,i,invers,p,q,r,s : real; koddingan ini memberikan variabel dengan nama a sampai s dan memiliki tipe data real. Jawab : char ; koddingan jawab mempunyai tipe data char dan pass : string[8] koddingan pass mempunyai tipe data string dengan maksimal karakter 8.

Begin untuk memulai clrscr untuk membersihkan layar dahulu dan ketika diulang maka ada namanya ‘repeat’ lalu layar di bersihkan kembali dan pergi ke baris 20 kolom 1, dan layar pada output akan langsung menampilkan ‘mencari invers matriks ordo 2x2’ dengan koddingan writeln.

 Dan dibawahnya akan menampilkan huruf a.b.c.d yang akan kita inputkan angka untuk di cari determinan dan tranpose. Ingat misal (10,5)  maka 10 itu baris dan 5 itu kolom! “baskom” (BariS KoloM)

i:= (a*d)-(b*c) yang artinya “i” itu sebagai varibel yang mempunyai rumus (a*d)-(b*c) dan dibawah nya jika ‘i’ tidak sama dengan “nol” kemudian begin untuk memulai dan mulailah perhitungan invers.

Invers di hitung dengan rumus 1/((d*a)-(b*c)).Masih ingatkan jika ordo 2x2 itu ada 4 data di dalamnya, nah di dalamnya data itu di deklarasikan p,q,r,s.

Jika p mempunyai rumus d*invers, Jika q mempunyai rumus -b*invers, Jika r mempunyai rumus –c *invers, Jika s mempunyai rumus a*invers.

Setelah data a sampai d di inputkan maka akan tampil ‘invers matrik A’  di baris 25 dan kolom 10. Dan menampilkan perhitungan varibel p sampai s dengan hasil desimal dan 3 angka di belakang koma.

Jika i=0 maka akan memunculkan kalimat di baris25 dan kolom 15 ‘tidak ada invers matrik’

Dan jika perhitungan invers matrik sudah selesai maka muncul kalimat ‘tekan sembarang untuk mengulangi perhitungan atau’ itu di baris 10 kolom 18. Dan ‘tekan X untuk mengakhirinya’ baris 10 kolom 19.

Jawab:=readkey; untuk mengunci pilihan jawaban anda yang sembarang itu, jika ‘until upcase(jawab)=’X’; maka jika tekan X maka akan keluar program itu harus x kapital karena jika tidak maka tidak akan keluar, karena ada koddingan upcase.

 Dan halt untuk menghentikan pemilihan itu dan secara otomatis mengulangi jika di ketik sembarang atau keluar program jika di ketik X. Dan untuk akhir koddingan terdapat kata ‘end.’

Nah gambar di bawah ini adalah outputnya.

Cara untuk menampilkan output ini jika sudah di compile dan langsung di save setelahnya keluar dari pascal dan kembali ke dosbox

Owh iya cara compile nya tekan “ctrl+f9”, untuk running di dosbox ketik cd tp7 -> cd bin -> matriks

Cd itu untuk memanggil data atau foder yang terdapat di sebuah drive