Procedure program kali matriks

Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;

procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
 for i:=1 to Nbar do
   begin
    for j:= 1 to Nkol do
     begin
       write ('M[',i,',',j,'] = ');readln (M[i,j]);
     end;
   end;
end;

procedure tulismatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j : integer;
begin
 for i:= 1 to Nbar do
 begin
   for j:= 1 to Nkol do
     begin
       write (M[i,j]:6);
     end;
   writeln;
 end;
end;

procedure kalimatriks (a,b:matriksint; Nbar,Nkol : integer);
var
hasil:matriksint;
i,j,z : integer;
begin
  for i := 1 to Nbar do
  begin
   for j := 1 to Nkol do
   begin
   hasil[i,j] := 0;
    for z := 1 to Nbar do
    hasil[i,j] := hasil[i,j]+a[i,z]*b[z,j];
    begin
    write(hasil[i,j]:6) ;
    end;
   end;
   writeln;
  end;
end;

var
   lagi : char;
begin
repeat
clrscr;
  writeln ('MATRIK A ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (a,p,q);
  writeln;
  writeln ('MATRIKS B ');
  write ('masukkan jumlah baris : '); readln (p);
  write ('masukkan jumlah kolom : '); readln (q);
  bacamatriks (b,p,q);
  writeln;
  writeln ('hasil perkalian matriks adalah : ');
  write ('ELEMEN MATRIKS A');
  writeln;
  tulismatriks(a,p,q);
  writeln;
  write ('ELEMEN MATRIKS B');
  writeln;
  tulismatriks(b,p,q);
  writeln;
  writeln ('HASIL PERKALIAN MATRIKS A x B');
  kalimatriks (a,b,p,q);
  writeln;
  write('Apakah ingin mengalikan matriks lagi ? [y/t] '); readln(lagi);
  writeln;
  until (lagi='T') or (lagi='t');
  donewincrt;
end.

Read More

Program karcis bioskop sederhana,,,(Netbeans)

hay sobat kali ini saya dapet tugas nih,,, cara membuat program karcis sederhana,,,,
langsung aja ya guysss...
pertama saya buat tampilan form seperti gambar di bawah ini..

setelah itu ketik beberapa source code berikut di bawah ini,,,


//untuk button prosess
private void bProsesActionPerformed(java.awt.event.ActionEvent evt) {                                       
        // TODO add your handling code here:
        int a, b, c;
       
        a=Integer.parseInt(biaya.getText());
        b=Integer.parseInt(jum.getText());
        c=a*b;
        total.setText(Integer.toString(c));
    }                                      



//untuk menghapus dan membatalkan suatu proses
    private void bBatalActionPerformed(java.awt.event.ActionEvent evt) {                                      
        // TODO add your handling code here:
        no.setText("");
        biaya.setText("");
        jum.setText("");
        total.setText("");
    }                                     


   
//untuk keluar dari program karcis
private void bKeluarActionPerformed(java.awt.event.ActionEvent evt) {                                       
        // TODO add your handling code here:
        dispose();
    }                                      

  
//untuk pilihan tempat duduk utama
 private void utamaActionPerformed(java.awt.event.ActionEvent evt) {                                     
        // TODO add your handling code here:
        if(utama.isSelected())
        {
          biaya.setText("500000");
    }                                    
    }
       


//untuk tempat duduk biasa
private void biasaActionPerformed(java.awt.event.ActionEvent evt) {                                     
        // TODO add your handling code here:
            if(biasa.isSelected())
        {
          biaya.setText("200000");
    }
    }                      



segitu aja deh,,, maaf sobat bila ada kekurangan,,,
semoga bermanfaat,,,

Read More

Kumpal-kumpul-kumpol

ini gan temen-temen yang nunggu tugas praktikum pemrograman visual,,,
sorry ane postingnya deket sama UTS,,,
baru sempet ngeposting nya...
silahkan moggo,,,,


Download,,,,,aja gan...

Read More

Menghitung Luas segitiga, lingkaran, keliling bujursangkar, dan persegi panjang (Bahasa java)

HHHhaaiiiii guys kali ini saya mencoba memposting cara menghiting Luas segitiga, lingkaran, keliling bujursangkar, dan persegi panjang,,,,,,, dengan menggunakan bahasa java
dalam program ini saya menggunakan tools NeatBeans 7.1

kalo mau tutorial nya silahkan unduh file tutorialnya,,, somaga bisa membantu kalian yang lagi belajar java, sama seperti saya yang sedang belajar juga guyssssssssssssssss..........

sok yang mau Download Tutorial cara menghitung Luas segitiga, lingkaran,keliling bujursangkar, dan persegi panjang....

thanks guysssssss,,, semoga bermanfaat............

Read More

Teknik Hacker dalam Mencari Pacar

Mungkin banyak yang bilang kalau hacker itu pacarnya cuma sama koding program, layar komputer, Keyboard...eitss...tunggu dulu, ternyata mereka punya metode sendiri lhoo dalam mencari pasangannya...Dan tentu aja hal tsb ga jauh jauh dari yang namanya istilah istilah hacking.

1. Scan Port
Artinya : Sewaktu kita ketemu dengan pacar (cowok/cewek), kita harus tau siapa saja yang dekat dengan target.

2. Telusuri Dengan Uncle Google
Artinya : Kita harus tau dia tinggal dimana, no HP, ortu, dan lain2. Contohnya: ada pacar atau tidak, sapa antivirusnya yang selalu UpToDate sama dia, terus cek klo ada pake deepfreeze

3. Tanam Bot atau Shell/Backdoor
Artinya : Pas kita kenalan dgn cewek, jgn lupa tanam Bot atau Backdoor, supaya itu cewek selalu membayangkan wajah kita pada pandangan pertama dan kita bisa selalu gampang menaklukkan hati dia. He...

4. Pasang AntiVirus & KeyLogger
Artinya : Klo da jadi pacaran dengan target atau cewek, jangan lupa tanam antivirus n keylogger. Trus jgn lupa UpDate trus itu cewek, dari laki? hidung belang (mirip antivirus yg selalu UpDate, supaya virus? dari luar bisa dikenal dan di hapus) trus apa saja yg dia lakukan harus kita tau (mirip keylogger).

5. Cek Security
Artinya : Securiti cewek tersebut harus di jaga cek bug nya 1 minggu sekali. Jangan sampai kena hacking dari org lain.


sumber : http://www.diditrinjano.com/2011/12/teknik-hacker-dalam-mencari-pacar.html

Read More

Finite State Automata

Contoh :

seorang petani dengan seekor serigala, kambing dan seikat rumput berada pada suatu sisi sungai. Tersedia hanya sebuah perahu kecil yang hanya dapat dimuati dengan petani tersebut dengan salah satu serigala, kambing atau rumput. Petani tersebut harus menyeberangkan ketiga bawaannya kesisi lain sungai. Tetapi jika petani meninggalkan serigala dan kambing pada suatu saat, maka kambing akan dimakan serigala. Begitu pula jika kambing ditinggalkan dengan rumput, maka rumput akan dimakan oleh kambing. Mungkinkah ditemukan suatu cara untuk melintasi sungai tanpa menyebabkan kambing atau rumput dimakan. 

 

16 kemungkinan kombinasi state

Sisi kiri	Sisi Kanan	Simbol State
PSKR	Ø	PSKR – Ø
SR	PK	SR – PK
SK	PR	SK – PR
KR	PS	KR – PS
PSR	K	PSR – K
PSK	R	PSK – R
PKR	S	PKR – S
PK	SR	PK – SR
PR	SK	PR – SK
PS	KR	PS – KR
K	PSR	K – PSR
R	PSK	R – PSK
S	PKR	S – PKR
SKR	P	SKR – P
P	SKR	P – SKR
Ø	PSKR	Ø – PSKR

  

Dari 16 kemungkinan kombinasi state , hanya 10 state yang memenuhi syarat

 

Sisi kiri	Sisi Kanan	Simbol State
PSKR	Ø	PSKR – Ø
SR	PK	SR – PK
PSR	K	PSR – K
PSK	R	PSK – R
PKR	S	PKR – S
PK	SR	PK – SR
K	PSR	K – PSR
R	PSK	R – PSK
S	PKR	S – PKR
Ø	PSKR	Ø – PSKR

Berdasarkan kemungkinan state tersebut, dapat digambarkan diagram transisi dari persoalan tersebut dengan mesin automata, sbb:

 

Pada diagram diatas, arti bentuk-bentuk adalah sebagai berikut :

• lingkaran merepresentasikan kedudukan (state)
• label pada lingkaran adalah nama state tersebut
• busur menyatakan transisi
• label pada busur adalah masukan/input
• lingkaran didahului dengan sebuah busur tanpa label adalah state awal
• limgkaran ganda menyatakan state akhir(finish)

Algoritma Permainan Logika serigala, kambing dan rumput yang diseberangkan oleh petani
1. Mulai
2. Terdapat 3 objek yang akan diseberangkan oleh petani
3. Petani berangkat sendiri , misi gagal karena rumput dimakan kambing dan kambing dimakan serigala
4. Rumput dan Petani berangkat, misi gagal karena kambing dimakan serigala.
5. Serigala dan Petani berangkat, misi gagal karena rumput dimakan kambing.
6. Kambing dan Petani berangkat, petani kembali sendiri
7. Petani dan rumput berangkat.
8. Jika petani kembali sendiri, maka misi gagal karena rumput dimakan kambing, dan
9. Jika petani dan kambing kembali, maka lanjutkan langkah 10
10. Jika petani berangkat sendiri, maka misi gagal karena kambing dimakan serigala, dan
11. Jika Petani dan serigala berangkat, maka lanjutkan langkah 12
12. Petani kembali sendiri, petani dan kambing berangkat
13. Misi sukses
14. Selesai.

Read More

Cara Install NetBeans IDE 7.1 di Ubuntu 11.10

Pada postingan kali ini saya akan menjelaskan bagaimana cara menginstall Openjdk java Runtime dari Ubuntu Software Center dan menginstall Netbeans 7.1 dengan terminal.

Software yang dibutuhkan :

1. Openjdk java Runtime
2. Netbeans -  http://netbeans.org/downloads/index.html
3. Jangan lupa ya segelas kopi hangat,,,, heeeheeeeheee 

Install Openjdk java Runtime :

1. Buka Dash Home pada ubuntu anda, lalu ketikkan Ubuntu Software Center
2. Setelah Ubuntu Software Center terbuka,  Pada field Search di kanan atas, ketikkan "Openjdk java Runtime", lalu pilih yang tujuh, jika anda memilih yang versi 6 juga tidak menjadi masalah.
3. Lalu klik Install di bagian kanan, Tunggu Hingga Selesai

Download Netbeans 7.1

1. Silahkan buka link  http://netbeans.org/downloads/index.html
2. Perhatikan platform di kanan atas, anda harus memilih Linux(X86/x84) karena anda ingin menginstall di linux
3. Perhatikan tombol Download, masing-masing memiliki ukuran yang berbeda, Jika anda memilih yang all, maka Netbeans anda memiliki fasilitas berikut :
1. Java Java EE                   
2. Java ME                                         
3. C/C++                     
4. Groovy                     
5. PHP                     
6. GlassFish Server Open Source Edition 3.1.1                     
7. Apache Tomcat 7.0.22                   
4. Klik Download
5. Sambil nunggu mendownload sediakan dulu segelas kopi hangat untuk next install netbaans, supaya lebih mantap,,,

Petunjuk Installasi Netbeans :

1. Sebelumnya anda telah berhasil menginstall Openjdk java Runtime, berarti sekarang anda sudah bisa melakukan installasi terhadap Netbeans
2. Buka Terminal anda (CTRL + ALT + T)
3. Ketikkan sudo -s
4. root@mauluntu:~# cd Downloads/
5. root@mauluntu:~/Downloads# chmod +x netbeans-7.1-ml-linux.sh
6. root@mauluntu:~/Downloads# ./netbeans-7.1-ml-linux.sh 
7. Maka akan muncul Netbeans IDE Installer
8. Pilih Costumize, lalu centangkan apache Tomcat 7.4 (centangkan semua yang ada, agar semua fitur yang ada di netbean di install), lalu klik ok
9. Selanjutnya klik next
10. Centangkan I accept the term in the license agreement, lalu klik next
11. Centangkan I accept the term in the license agreement, Install JUnit lalu klik next
12. Next aja terus sampai ketemu Install, lalu klik button Install tersebut
13. Finish. anda sudah berhasil menginstall Netbeans, dan anda sudah bisa memakainya. 

Untuk membuka netbeans, silahkan arahkan pointer anda ke kiri terus, sehingga muncul taskbar, lalu klik Dash Home, pada search klik netbeans, lalu klik netbeans tersebut.

may be useful for you.............

Read More

MANUSIA SEBAGAI WARGANEGARA DAN KESETARAAN

P E N G E R T I A N 

WARGA NEGARA : Penduduk yang sepenuhnya dapat diatur oleh Pemerintah negara yang
                                bersangkutan dan mengakui Pemerintahannya sendiri.

KERAGAMAN (PLURALISME) : Adanya perbedaan yang mensiratkan adanya minoritas yang sama 
                                           dihadapan hukum (Kymlica)

KESETARAAN : Adanya Persamaan Hak, Kewajiban Kedudukan untuk mencapai tujuan yang sama. 

KONSEP BHINEKA TUNGGAL IKA 
=> KERAGAMAN BAHASA IBU
=> KERAGAMAN SUKU, ADAT DAN BUDAYA 
=> KERAGAMAN AGAMA 
=> ARAH DAN KEBIJAKAN NEGARA 
=> TUJUAN NEGARA 

MAKNA KERAGAMAN DAN KESETARAN 
1. Keragaman sebagai Investasi Nasional 
2. Keragaman membutuhkan komunikasi antar budaya 
3. Kesetaraan hak pribadi, hak kolektif 
4. Kesetaran hak mayoritas dan hak minoritas 

SYARAT KOMUNIKASI ANTAR BUDAYA
a.    Menghormati budaya lain sebagai manusia
b. Menghormati budaya lain apa adanya
c. Menghormati hak budaya lain untuk bertindak berbeda 
d.    Komunikator harus menyenangi hidup bersama dengan orang dari budaya lain 

FUNGSI KOMUNIKASI BUDAYA 
* FUNGSI : Mencarikan persamaan dan keserasian bukan sebaliknya. 
* LIMA SIKAP KOMUNIKASI : 
   1.  Keterbukaan            2. Empati 
   3.  Positif                      4. Memberikan dukungan 
   5.  Merasa seimbang 

JENIS KERAGAMAN DAN KESETARAN 
*>    ETNIK (SUKU BANGSA)
*> BUDAYA DAERAH
*> AGAMA
*> MAYORITAS & MINORITAS
*> BAHASA NASIONAL
*> KEBUDAYAAN NASIONAL
*> STABILITAS NASIONAL 

KARAKTERISTIK MASYARAKAT INDONESIA YANG RAWAN KONFLIK 
_Segmentasi kedalam kelompok yang memiliki kebudayaan
_Struktur sosial terbagi-bagi 
_Kurang mengembangkan konsensus 
_Sering terjadi konflik antar kelompok 
_Integrasi sosial tumbuh karena paksaan dan saling ketergantungan 
_Adanya dominasi politik kelompok yang kuat pada kelompok lain. 

P R O B L E M A T I K A 
a)    Konsep Bangsa, Negara, Masyarakat dan Rakyat
b) Dominasi kaum mayoritas terhadap kaum minoritas
c) Perang antar Etnik
d) Pertentangan antar agama
e) Dominasi Kelompok Politik Besar & Kuat  

S O L U S I
+> Multi Kulturalisme : Menerima kelompok lain secara sama tanpa memperdulikan perbedaan
      budaya, etnik, jender, bahasa maupun agama  (Siswarini)
+> Bhineka Tunggal Ika (multi etnik, multi kultur)
+> Kesetaraan sebagai manusia yang secara kodrati memiliki kesamaan derajat dengan manusia 
     lain yang sama-sama memiliki peradaban
+> Kesadaran individu sebagai manusia dapat dengan terbuka menerima manusia lain.
+> Pembinaan nilai keagamaan dan kesetaraan sangat tepat dengan dilaksanakannya Pendidikan
      sepanjang hayat.  
 
 

Read More