ALIN (PASCAL)

LOGIKA….

clrscr digunakan untuk menghapus hasil cetak sebelum-sebelumnya/membersihkan layar.

Var : m : t ;

                        i   ,   j   , k  pil  , det1  , det2 : integer digunakan  untuk mendeklarasikan bahwa adanya variabel (i,j,k) yang bertipe data integer.

Write  digunakan untuk menampilkan data setelah itu tidak pindah baris

For I : = 1 to 2 do maksudnya adalah nilai i = range dari 2 mpe 1 yang dimaksudkan

For j := 1 to 2 do  maksudnya adalah nilai j = range dari 2 mpe 1 yang dimaksudkan

Begin untuk memulai statement yang akan di jalankan.

Procedur t. tampil

Begin

            Writeln;

            Writeln(‘*matrik I*)

            Writeln(m1[1,1]:5,m1[1,2]:5);

            Writeln(m1[2,1]:5,m1[2,2]:5);

            Gotoxy (35,7);writeln(‘*matrikII*’);

            Gotoxy(35,8);writeln(m2[1,1]:5,m2[1,2]:5);

            Gotoxy(35,9);writeln(m2[2,1]:5,m2[2,2]:5);

End; dimaksudkan sebagai untuk menimbulkan bilangan pada matrik, yang nantinya akan kita input.

Procedure t.deter ;

Begin

            Det1 := (m1[1,1]*m1[2,2])-(m1[1,2]*m1[2,1]);

            Det2 :=(m2[1,1]*m2[2,2])-(m2[1,2]*m2[2,1]);

            Writeln;

            Writeln(‘Determinan Matriks I =’,det1);

            Writeln(‘Determinan Matriks II =’,det2);

            Readln;

End; dimaksud sebagai kalau statmen yang kita masukan sekarang berada dalam bagian bentuk Determinan

 Begin

Repeat

Crscr;

Gotoxy(25,1);writeln (‘******menu******’);

Gotoxy(25,2);writeln (‘1.input matriks’);

Gotoxy(25,3);writeln (‘2.Transpos Matriks’);

Gotoxy(25,4);writeln (‘3.Determinan’);

Gotoxy(25,5);writeln (‘4.Keluar’);

Gotoxy(27,7);writeln (‘pilihan[1..4]:’);readln(pil);

Dimaksudkan sebagai membuat MENU yang didalamnya terdapat procedur statmen yang akan kita gunakan atau kita input, dengan ketentuan memilih nomer yang telah input didalam codingan tersebut. Untuk masuk ke statmen Determinan tekan 3 maka anda akan masuk pada menu determinan , dan tinggal anda masukan angka yang anda akan input.

Cukup sekian dan terimakasih, hanya ini yg bisa saya sampaikan.

Kurang lebih nya mohon maaf.