Leave a message
-->

Rabu, 14 Mei 2014

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

Related Posts:

  • Belajar HTML Dasar sebernarnya diperlukan kalau kita ingin terjun di dunia online, misalnya bisnis online karena sedikit banyak akan menuntut kemampuan kita dalam mengedit kode - kode HTML.  Walaupun kita menggunakan blog engine seperti… Read More
  • Observasi Kegiatan Belajar Mengajar SMA Di Banda Aceh Observasi Kegiatan Belajar Mengajar A. Pembukaan 1.      Ketika guru masuk kelas, yang dikerjakan guru adalah: Guru menertibkan peserta didik terlebih dahulu. Kemudian, guru meminta ke… Read More
  • Membuat DF Distribusi Frekuensi Hasil pengukuran yang kita peroleh disebut dengan data mentah. Besarnya hasil pengukuran yang kita peroleh biasanya bervariasi. Apabila kita perhatikan data mentah tersebut, sangatlah sulit bagi kita untuk menarik kesimpula… Read More
  • Contoh soal Analisa dan Perancangan E - Business Soal Analisa dan Perancangan E - Business ESSAY Jelaskan tentang BPR? Aspek apa saja yang menjadi ukuran/indicator dalam perbaikan kinerja suatu bisnis dengan metodologi BPR? Apa yang dimaksud dengan Time Cycle Reductio… Read More
  • Analisis data BAB I PENDAHULUAN 1. LATAR BELAKANG Di dalam sebuah penulisan karya ilmiah yang berdasarkan data-data penelitian, pengolahan data dan analisis data merupakan hal mutlak yang harus dijabarkan oleh penulis. Karena tujuan … Read More

0 komentar:

Posting Komentar

Beri Masukan Bermanfaat

Sample Text

Diberdayakan oleh Blogger.

Posting ini telah disusun untuk lebih melayani mereka yang peduli dengan bagaimana informasi itu dapat digunakan secara baik dan benar.

instagram

Popular Posts

Sosial Media

Facebook  Twitter  Google+ Instagram Linkedin Path Yahoo
Shares
FacebookXPinterestEmailSumoMe
a