Pemrograman Pascal

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

Jumpa Kembali dengan naufalirfanda 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 :

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.

https://naufalirfanda.blogspot.com/b/post-preview?token=sY_N-0UBAAA.mopN2kMH4_1NhNKudmE_iw.5Ut6qC_apXcrj1fs9nGPbg&postId=330771270681079598&type=POST