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