Popular Post

Archive for November 2013

program matriks di pascal

By : Unknown
program operasi_matriks;
uses wincrt;                    
type matrix=array[1..20,1..20] of integer;
var A,B,hasil:matrix;
    v,w,u,ba,ka,bb,kb:integer;
    pil:1..9;

procedure isi(var X:matrix;p,q:byte);
begin
for v:=1 to p do
begin
     for w:=1 to q do
     begin
     writeln('isi elemen ke [',v,',',w,'] ');
     readln(X[v,w]);
     end;
end;
end;

procedure tampil(var X:matrix;p,q:byte);
begin
for v:=1 to p do
begin
     for w:=1 to q do write(X[v,w]:6);
     writeln;
end;
end;


procedure kali(var X,Y:matrix;p,q:integer);
begin
for v:=1 to p do
for w:=1 to q do
     begin
          hasil[v,w]:=0;
          for u:=1 to p do
          begin
          hasil[v,w]:=hasil[v,w]+X[v,u]*Y[u,w];
          end;
     end;
end;

procedure jumlah(var X,Y:matrix;p,q:byte);
begin
for v:=1 to p do
begin
     for w:=1 to q do hasil[v,w]:=X[v,w]+Y[v,w];
end;
end;

procedure kurang(var X,Y:matrix;p,q:byte);
begin
for v:=1 to p do
begin
     for w:=1 to q do hasil[v,w]:=X[v,w]-Y[v,w];
end;
end;

procedure transpos(var X:matrix;p,q:byte);
begin
for v:=1 to p do
begin
     for w:=1 to q do write(X[w,v]:6);
     writeln;
end;
end;

{program utama}
begin
repeat
begin
clrscr;
writeln('MENU PILIHAN OPERASI MATRIX');
writeln('-------------------------');
writeln('1. Isi matrix A');
writeln('2. Isi matrix B');
writeln('3. A+B');
writeln('4. A-B');
writeln('5. B-A');
writeln('6. A*B');
writeln('7. A transpose');
writeln('8. B transpose');
writeln('9. selesai');
write('masukkan pilihan anda <1-8> ==> ');readln(pil);
case pil of


1: begin
   writeln('mengisi matrix A');
   write('masukkan baris A       ==> ');readln(ba);
   write('masukan kolom matrix A ==> ');readln(ka);
   isi(A,ba,ka);
   writeln('Matrix a adalah ');
   tampil(A,ba,ka);
   end;
2:begin
   writeln('mengisi matrix B');
   write('masukkan baris B       ==> ');readln(bb);
   write('masukan kolom matrix B ==> ');readln(kb);
   isi(B,bb,kb);
   writeln('Matrix B adalah ');
   tampil(B,bb,kb);
   end;
3: begin
   if (ba=bb) and (ka=kb) then
      begin
        writeln('matrix A = ');
        tampil (A,ba,ka);
        writeln('matrix B = ');
        tampil (B,bb,kb);
        writeln('hasil A+B adalah ');
        jumlah(A,B,ba,ka);
        tampil(hasil,ba,ka);
      end
   else writeln('operasi A+B tidak bisa dihitung karena ordo berbeda');
   end;
4: begin
   if (ba=bb) and (ka=kb) then
      begin
        writeln('matrix A = ');
        tampil (A,ba,ka);
        writeln('matrix B = ');
        tampil (B,bb,kb);
        writeln('hasil A-B adalah ');
        kurang(A,B,ba,ka);
        tampil(hasil,ba,ka);
      end
   else writeln('operasi A-B tidak bisa dihitung karena ordo berbeda');
   end;
5: begin
   if (ba=bb) and (ka=kb) then
      begin
        writeln('matrix A = ');
        tampil (A,ba,ka);
        writeln('matrix B = ');
        tampil (B,bb,kb);
        writeln('hasil B-A adalah ');
        kurang(B,A,ba,ka);
        tampil(hasil,ba,ka);
      end
   else writeln('operasi B-A tidak bisa dihitung karena ordo berbeda');
   end;
6: begin
   writeln('matrix A = ');
   tampil (A,ba,ka);
   writeln('matrix B = ');
   tampil (B,bb,kb);
   writeln('hasil B*A adalah ');
   kali(A,B,ba,ka);
   tampil(hasil,ba,ka);
   end;
7: begin
   writeln('Matrix A');
   tampil(A,ba,ka);
   writeln('Transpose Matrix A');
   transpos(A,ka,ba);
   end;
8: begin
   writeln('Matrix B');
   tampil(B,bb,kb);
   writeln('Transpose Matrix B');
   transpos(B,kb,bb);
   end;
9:writeln('terima kasih sudah berpartisipasi');
end;
readln;
end
until(pil=9);
end.
Tag : ,

contoh program STACK pada pascal

By : Unknown
uses wincrt;
const max=10;
type stack=record
     judul:array[1..max] of string;
     harga:array[1..max] of longint;
     atas:0..max;
     end;

type jualbuku=record
     juduljual:string;
     hargajual:word;
     end;
     larik_jual=array[1..20] of jualbuku;

var buku,sp:stack;
    jual:larik_jual;
    judulmasuk,judulkeluar:string;
    hargamasuk,hargakeluar:longint;
    pil:1..8;
    lagi,ketemu:boolean;
    terjual,i,n,cacah:byte;hasil:real;

function kosong(s:stack):boolean;
begin
if s.atas=0 then kosong:=true else kosong:=false;
end;

function penuh(s:stack):boolean;
begin
if s.atas=max then penuh:=true else penuh:=false;
end;

procedure push(var s:stack;j:string;h:longint);
begin
if penuh(s) then writeln('Maaf stack sudah penuh')
else
begin
inc(s.atas);
s.judul[s.atas]:=j;s.harga[s.atas]:=h;
end;
end;

procedure pop(var s:stack);
begin
if kosong(s) then writeln('Buku sudah habis')
else
begin
judulkeluar:=s.judul[s.atas];hargakeluar:=s.harga[s.atas];
writeln('Terjual buku ',judulkeluar,' seharga Rp ',hargakeluar);
inc(terjual);hasil:=hasil+hargakeluar;
dec(s.atas);
end;
end;

procedure cetak(var s:stack);
var i:byte;
begin
if kosong(s) then writeln('tumpukan kosong') else
begin
writeln('DAFTAR BUKU DITUMPUKAN');
writeln('------------------------------------------');
for i:=s.atas downto 1 do
writeln('posisi ',i,' dengan judul ',s.judul[i]:10);
writeln('------------------------------------------');
end;end;

procedure cetakjual(var x:larik_jual);
var hasil:real;
begin
writeln('-----------------------------------------');
writeln('No       Judul       Harga');
writeln('-----------------------------------------');
for i:=1 to n do
begin
writeln(i:2,'   ',x[i].juduljual:15,'   Rp ',x[i].hargajual:8);
hasil:=hasil+x[i].hargajual;
end;
writeln('-----------------------------------------');
writeln('-----------------------total--Rp ',hasil:10:2);
end;

procedure caribuku(var s:stack);
var ketemu:boolean;
    i,posisi:byte;
    ulang:char;
    cari:string;

begin
if kosong(s) then writeln('Buku sedang kosong') else
begin
ulang:='y';
while ulang='y' do
begin
     ketemu:=false;
     write('Masukkan judul buku yang dicari ==> ');readln(cari);
     for i:=1 to s.atas do
     begin
     if s.judul[i]=cari then
     begin ketemu:=true;posisi:=i;end;
end;
if ketemu then writeln('Judul ',cari,' ada di posisi ke ',posisi) else
writeln('Maaf judul ',cari,' tidak ditemukan');
writeln;
write('Mau cari judul lain? <y/t> ');readln(ulang);
end;
end;
end;

procedure ambilbuku(var s:stack);
var posisi,k:byte;
    cari:string;
begin
ketemu:=false;sp.atas:=0;
write('Apa judul yang ingin diambil ');readln(cari);
for i:=s.atas downto 1 do
    begin
    if(s.judul[i]=cari) then
    begin ketemu:=true;posisi:=i;end;
    end;
    if ketemu then
       begin
       for k:=s.atas downto posisi+1 do
       begin
       inc(sp.atas);
       sp.judul[sp.atas]:=s.judul[k];
       sp.harga[sp.atas]:=s.harga[k];
       end;
       s.atas:=posisi;
       judulkeluar:=s.judul[s.atas];
       hargakeluar:=s.harga[s.atas];
       dec(s.atas);
       for k:=sp.atas downto 1 do
       begin
       inc(s.atas);
       s.judul[s.atas]:=sp.judul[k];
       s.harga[s.atas]:=sp.harga[k];
       end;
       end
else writeln('Buku tidak ditemukan');
end;

{program utama}
begin
lagi:=true;
while lagi do
begin
clrscr;
writeln('1. Menambah buku ke tumpukan');
writeln('2. Mengambil buku dari tumpukan dan layani penjualan');
writeln('3. Mencari buku');
writeln('4. Mencetak daftar buku di tumpukan');
writeln('5. Cek buku terjual');
writeln('6. Mengambil buku tertentu');
writeln('7. Mencetak buku terjual');
writeln('8. Tutup toko dan cetak hasil penjualan');
writeln;write('pilihan anda <1-6> ==> ');readln(pil);
case pil of
1:begin
       write('Judul buku baru ==> ');readln(judulmasuk);
       write('Harganya        ==> ');readln(hargamasuk);
       push(buku,judulmasuk,hargamasuk);
  end;
2:begin
     if not kosong(buku) then
     begin
     pop(buku);
     inc(cacah);
     hasil:=hasil+hargakeluar;
     inc(n);
     jual[n].juduljual:=judulkeluar;
     jual[n].hargajual:=hargakeluar;
     end
     else writeln('Buku dalam tumpukan habis');
     end;
3:caribuku(buku);
4:cetak(buku);
5:begin
       inc(terjual);
       writeln('Sudah terjual sebanyak ',terjual,' buku');
       writeln('Pendapatan sekarang Rp ',hasil:8:2);
       writeln('Sisa buku ditumpukan ',buku.atas,' buku');
  end;
6:begin
       if not kosong(buku) then ambilbuku(buku) else writeln('Buku habis');
       if ketemu and not kosong(buku) then
       begin
       writeln('Buku yang diambil adalah ',judulkeluar);
       writeln('Harganya Rp ',hargakeluar);
       inc(cacah);
       hasil:=hasil+hargakeluar;
       inc(n);
       jual[n].juduljual:=judulkeluar;
       jual[n].hargajual:=hargakeluar;
       end;
  end;
7:cetakjual(jual);
8:begin
       inc(terjual);
       writeln('total terjual sebanyak ',terjual,' buku');
       writeln('pendapatan total Rp ',hasil:8:2);
       writeln('Sisa buku di tumpukan ',buku.atas,' buku');
       lagi:=false;
       writeln;
       writeln('Terimakasih');
  end;
  end;
readln;
end;
end.
Tag : ,

membuat program dengan berbeda package

By : Unknown


Package rumus1
package rumus1;
import javax.swing.JOptionPane;

public class rumus_persegi_panjang {
private double panjang,lebar,luas;

public void input()
{
    String a1,b1;
    a1=JOptionPane.showInputDialog("masukan panjang=");
    b1=JOptionPane.showInputDialog("masukan lebar=");
    panjang=Double.valueOf(a1).doubleValue();
    lebar=Double.valueOf(b1).doubleValue();
}

public void hasil()
{luas=2*(panjang+lebar);
System.out.println("keliling persegi panjang adalah="+luas);
}
}

package rumus1;
import javax.swing.JOptionPane;

public class rumus_kimia {
 private double m,mr,mol;

public void input ()
{
    String a1,b1;
    a1=JOptionPane.showInputDialog("masukkan berapa massa");
    b1=JOptionPane.showInputDialog("masukkan berapa molekul relatif");
    m=Double.valueOf(a1).doubleValue();
    mr=Double.valueOf(b1).doubleValue();
}
public void output()
{
    mol=m/mr;
    System.out.println("mol="+mol);
}

}


package rumus1;
import rumus3.rumus_percepatan;
public class hitung_percepatan {
    public static void main(String[] args) {
    rumus_percepatan dian=new rumus_percepatan();
    dian.input();
    dian.output();
        
    }
}


package rumus1;
import rumus2.rumus_matik;
public class hitung_matik {

    public static void main(String[] args) {
    rumus_matik coba=new rumus_matik();
    coba.input();
    coba.hitung();
   
    }
}

Package rumus2
package rumus2;
import javax.swing.JOptionPane;
public class rumus_kecepatan_rata2 {
private double t1,t2,x1,x2,v;
public void masukan()
{
    String a,b,c,d;
    a=JOptionPane.showInputDialog("masukan t1=");
    b=JOptionPane.showInputDialog("masukan t2=");
    c=JOptionPane.showInputDialog("masukan x1=");
    d=JOptionPane.showInputDialog("masukan x2=");
    t1=Double.valueOf(a).doubleValue();
    t2=Double.valueOf(b).doubleValue();
    x1=Double.valueOf(c).doubleValue();
    x2=Double.valueOf(d).doubleValue();
}
public void hasil()
{
    v=(t2-t1)/(x2-x1);
    System.out.println("kecepatan rata-rata="+v);
}
}


package rumus2;
import javax.swing.JOptionPane;
public class rumus_matik {
    private double x,y,z;
   
    public void input()
    {String a,b;
    a=JOptionPane.showInputDialog("masukan angka pertama=");
    b=JOptionPane.showInputDialog("masukan angka kedua");
    x=Double.valueOf(a).doubleValue();
    y=Double.valueOf(b).doubleValue();
    }
    public void hitung()
    {z=x-y;
    System.out.println("hasil pengurangan="+z);
    }
}


package rumus2;
import rumus1.rumus_persegi_panjang;
public class hitung_persegi_panjang {
    public static void main(String[] args) {
    rumus_persegi_panjang dian=new rumus_persegi_panjang();
    dian.input();
    dian.hasil();
   
    }
}












Package rumus3
package rumus3;
import rumus2.rumus_kecepatan_rata2;
        public class hitung_rumus_kecepatan_rata2 {

    public static void main(String[] args) {
    rumus_kecepatan_rata2 dian=new rumus_kecepatan_rata2();
    dian.masukan();
    dian.hasil();
    }
}

package rumus3;
import rumus1.rumus_kimia;
        public class hitung_rumus_kimia {

    public static void main(String[] args) {
    rumus_kimia dian=new rumus_kimia();
    dian.input();
    dian.output();
   
    }
}

package rumus3;
import javax.swing.JOptionPane;
public class rumus_percepatan {
    private double a,f,m;
    public void input()
    {
        String f1,m1;
    f1=JOptionPane.showInputDialog("masukan gaya=");
    m1=JOptionPane.showInputDialog("masukan masa=");
    f=Double.valueOf(f1).doubleValue();
    m=Double.valueOf(m1).doubleValue();
    }
    public void output()
    {
        a=f/m;
        System.out.println("hasil percepatan="+a);
    }
}



 
Tag : ,

- Copyright © ARDIANSYAH LENGE - Date A Live - Powered by Blogger - Designed by ardiansyah lenge -