Pemrograman Pascal bag. 4

Program Untuk Mencari Invers Matriks Ordo 2x2 Dilengkapi dengan Password Menggunakan Turbo Pascal 7.0

Jumpa Kembali dengan pak menteri yang selalu berusaha untuk menyuguhkan artikel bermanfa'at. Kali ini Kita akan membahas penggunaan proteksi password dalam pemrograman bahasa pascal. Disamping itu juga akan membahas mengenai penggunaan instruksi gotoxy yang dapat digunakan untuk mengatur letak atau posisi suatu teks baik untuk sarana input data maupun hasil tampilan. Dalam perhitungan matriks, data ditempatkan dalam posisi kolom dan baris, untuk itu digunakan instruksi gotoxy agar dapat berada pada posisi yang kita inginkan. Disamping itu, apabila kita menginginkan warna atau backgaround yang berbeda pada teks, kita juga bisa menggunakan instruksi textcolor(), atau textbackground().

Oke langsung saja, rumus mencari invers matriks adalah sbb:
Dengan ketentuan jika a.d-b.c = 0 maka tidak ada invers matriks. dari rumus di atas dapat dibuat diagram alir/flow chart sebagai berikut :



Sehingga dapat dibuat listing program sebagai berikut:

uses crt;
var a,b,c,d,i,invers,p,q,r,s:real;
jawab:char;
pass:string[8];
begin
clrscr;
gotoxy(25,10);
write('Masukkan Password = ');
textcolor(0);readln(pass);textcolor(10);
if not(pass='PaScAl') then
begin
gotoxy(25,12);textcolor(4);
writeln('Invalid password !!!!');
delay(2000);
end;
while pass='PaScAl' do
begin
repeat

clrscr;gotoxy(20,1);
writeln('Mencari Invers Matriks Ordo 2x2 ');
gotoxy(10,5);write('a=');read(a);
gotoxy(18,5);write('b=');read(b);
gotoxy(10,7);write('c=');read(c);
gotoxy(18,7);write('d=');read(d);
i:=(a*d)-(b*c);
if not(i=0) then
begin
invers:=1/((a*d)-(b*c));
p:=d*invers;
q:=-b*invers;
r:=-c*invers;
s:=a*invers;
gotoxy(25,10);writeln('Invers matriks A =');
gotoxy(10,13);write(p:0:3);
gotoxy(18,13);write(q:0:3);
gotoxy(10,16);write(r:0:3);
gotoxy(18,16);write(s:0:3);
end
else
begin
gotoxy(25,15);textcolor(5);
writeln('Tidak ada invers matriks');
end;
gotoxy(10,18);textcolor(10);textbackground(0);
writeln('Tekan sembarang tombol untuk mengulang atau X untuk keluar');
jawab:=readkey;
until upcase(jawab)='X';
halt;
end;
end.

Output dari listing program di atas adalah sebagai berikut:

Contoh penggunaan password, agar terkesan password yang dimasukkan tidak terlihat, maka warna text diganti dengan warna 0 (hitam).

Hasilnya, jika Anda salah memasukkan password, maka akan muncul tulisan seperti gambar di atas dengan warna merah.

Namun, jika password yang dimasukkan benar, maka akan muncul tampilan seperti di atas.

Apabila setelah perhitungan, nilai determinan <> 0 maka akan menghasilkan nilai seperti gambar di atas.

Namun apabila nilai determinan = 0, maka tidak ada invers matriks. hasilnya sperti gambar di atas.

Demikian tulisan singkat mengenai penggunaan bahasa pemrograan pascal untuk menghitung nilai invers matriks ordo 2x2 yang dilengkapi dengan proteksi password. Yang perlu diingat adalah, meskipun pascal tidak bersifat case sensitif, artinya huruf besar dan kecil tidak dibedakan, namun dalam menentukan password huruf besar dan kecil sangat berbeda. Karena dalam pendeteksian password, yang diperiksa adalah semua jenis karakter termasuk huruf besar dan kecil. Sedangkan dalam penulisan listing programnya, yang dibaca adalah instruksinya bukan karakternya, jadi tidak masalah apakah kita mengetik listing program dengan huruf besar maupun kecil.

Sekian dari pak menteri semoga bermanfaat.

happy blogging