Pages

Jumat, 06 April 2012

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.

Senin, 02 April 2012

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,,,

Minggu, 01 April 2012

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...