Membuat Program Matriks Pada Pascal [PDF]

Citation preview

Laporan Akhir Nama



: Aditya Janata Priya



NPM



: 10111221



Kelas



: 2KA32



Tanggal



: 22 November 2012



Materi



: Alin



Ketua



:



Asisten



:



Baris



:1



Paraf



Laboratorium Dasar Sistem Informasi Universitas Gunadarma 2012



MEMBUAT PROGRAM MATRIKS PADA PASCAL Program ini akan membuat 2 buah matriks yang masing masing ber-ordo 2 x 2. Lalu akan membuat transpose dari matriks tersebut. Dan akan menghitung determinannya. Pertama tama ketik pada jandela pascal seperti ini:



Uses Crt; adalah fungsi untuk mengawali dalam bahasa pemrograman pascal. Var untuk menentukan sebuah variable ber tipe data apa. m1, m2: array [1..2,1..2] of integer adalah syntax yang menyatakan variable m1 dan m2 adalah sebuah array yang dapat membuat 1 variabel terdapat 2 array, tetapi selebih itu tidak bisa terproses, dan bertipe data integer, yaitu bilangan bulat. Procedure input: artinya variabel input adalah sebuah nama dari prosedur. Begin: memulai suatu kodingan. Clrscr: menghapus layar, seperti perintah cls pada basic. For I := 1 to 2 do, artinya untuk I akan dimasukkan nilai 1 hingga dua lalu melakukan sebuah statement selanjutnya. Write (‘elemen matriks’): artinya kan mencetak tulisan yang ada di dalam kutip satu. Readln (m1[I,j]): artinya membaca angka kedalam array m1[I,j].



End; artinya akhir dari sebuah prosedur. Bukan dari program, karena akhirannya titik koma. Gotoxy (35, 1); writeln (‘Input matriks II’); k := 2. Artinya pointer akan berpindah ke baris 35 dan kolom 1, lalu mencetak tulisan “Input Matriks II” dan memasukkan angka ke dalam variabel k sebesar 2. Procedure t.tampil; artinya statement dibawah adalah perintah di dalam prosedur t.tampil, apabila t.tampil di panggil, maka akan meloncat ke bagian ini. Writeln; artinya membuat jarak antara kolom 1 dengan yang lain, atau membuat enter.



Case pil of: case adalah perintah untuk kondisi, dan dimasukkan ke dalam variabel pilihan. Apabila variabel pil ber value 1, maka akan memanggil prosedur m.input dan m.tampil. Apabila variabel pil bervalue 2 maka akan memanggil m.transpos dan seterusnya hingga pil bervalue 4. End. Akhir dari program yang dibuat. Setelah itu kita pencet CTRL + F9 atau klik Run  Run pada pascal untuk menjalankan nya.



Maka hasinya :