PASUPALI

Senin, 24 Juni 2013

Tugas Strutur Data Persentasi (Pascal)

Hmmm..... Dunia Semakin Tua dan Ilmu Pengetahuan juga semakin Bertambah...Kali ini saya akan membahas tentang Linked List dan atrian....
Berikut ini adalah source Codenya.......
Program apotek =====>

program pelayanan_apotek;
uses wincrt;
type obat=^pointer;
	pointer=record
	namaobat:string;
        haobat:real;
        kodeobat:byte;
	next:obat;
end;
type antrian=^pointer2;
	pointer2=record
	nama:string;
	next2:antrian;
end;

type penjualan=^pointer3;
	pointer3=record
	namaobat3:string;
        kodeobat3:byte;
	haobat3:real;
	next3:penjualan;
end;

var awal,akhir,baru,bantu,hapus:obat;
	awal2,akhir2,baru2,bantu2,hapus2:antrian;
	awal3,akhir3,baru3,bantu3,hapus3:penjualan;
	nmobat,nmbeli,obatbeli,nmbaru,obatbeli2:string;
	hargabaru,hargabeli:real;
	pil,i,kdobat:byte;
	ketemu:boolean;

procedure tambah_obat (var L:obat;x:string;y:real;z:byte);
begin
	new(baru);
	baru^.namaobat:=x; baru^.haobat:=y;
        baru^.kodeobat:=z;
	baru^.next:=nil;
if L=nil then
begin
L:=baru;akhir:=baru;
end
else
begin
     baru^.next:=L;
     L:=baru;
end;
end;

procedure cetak_obat(var L:obat);
begin
	new(bantu);
	bantu:=L;
	writeln;
        writeln('+-----+-----+-----+-----+-----+');
	writeln('|        DAFTAR OBAT          |');
        writeln('+-----+-----+-----+-----+-----+');
	writeln('| Nama obat | Kode|   Harga   |');
        writeln('+-----+-----+-----+-----+-----+');
	while bantu<>nil do
	begin
	writeln(bantu^.namaobat:8,' ',bantu^.kodeobat:8,' ',bantu^.haobat:8:2);
	bantu:=bantu^.next;
	end;
writeln;
end;

procedure cetak_penjualan(var L:penjualan);
begin
	new(bantu3);
	bantu3:=L;
	writeln(' Nama   Kode    Harga');
	while bantu3<>nil do
	begin
	writeln(bantu3^.namaobat3:8,' ',bantu3^.kodeobat3:8,' ',bantu3^.haobat3:8 :2);
	bantu3:=bantu3^.next3;
	end;
writeln;
end;

procedure cetak_rekap(var L:penjualan);
begin
	new(bantu3);
	bantu3:=L;
	writeln(' Nama    Kode    Harga');
	while bantu3<>nil do
	begin
	writeln(bantu3^.namaobat3:8,' ',bantu3^.kodeobat3:8,' ',bantu3^.haobat3:8:2);
	bantu3:=bantu3^.next3;
end;
writeln;
end;

procedure tambah_antri (var k:antrian;x:string);
begin
new(baru2);
baru2^.nama:=x;
baru2^.next2:=nil;
if awal2=nil then
begin
awal2:=baru2;k:=baru2;
end
else
begin
k^.next2:=baru2;
k:=baru2;
end;
end;

procedure cetak_antri(var k:antrian);
begin
new(bantu2);
bantu2:=k;
writeln(' Pengantri saat ini adalah ');
while bantu2<>nil do
begin
write(bantu2^.nama:8,' ');
bantu2:=bantu2^.next2;
end;
end;

procedure cari_obat(var L:obat;x:string);
begin
new(bantu);bantu:=L;
ketemu:=false;
while (bantu<>nil) and (ketemu=false) do
begin
if bantu^.namaobat=x then ketemu:=true;
if ketemu=true then
writeln(bantu^.namaobat:8,' ',bantu^.kodeobat:8,' ',bantu^.haobat:8:2)
else 
writeln(' Obat tidak tersedia');
bantu:=bantu^.next;
end;
end;

{program utama}
begin
i:=0;
new(awal);awal:=nil; new(akhir);akhir:=nil;
new(awal2);awal2:=nil; new(akhir2);akhir2:=nil;
new(awal3);awal3:=nil;  new(akhir3);akhir3:=nil;
repeat
begin
clrscr;
        writeln('                    +-----+-----+-----+-----+-----+-----+-----+');
	writeln('                    |         PELAYANAN DI APOTIK K28B        |');
        writeln('                    +-----+-----+-----+-----+-----+-----+-----+');
	writeln('                    | 1. Tambah obat                          |');
	writeln('                    + 2. Tambah antrian                       +');
	writeln('                    | 3. Pelayanan                            |');
	writeln('                    + 4. Tampilkan obat yang tersedia         +');
	writeln('                    | 5. Tampilkan antrian                    |');
        writeln('                    | 5. Tampilkan antrian                    |');
	writeln('                    + 6. Tampilkan hasil penjualan            +');
	writeln('                    | 7. Tampilkan rekap pendapatan hari ini  |');
	writeln('                    + 8. Cari obat                            +');
	writeln('                    | 9. Selesai                              |');
        writeln('                    +-----+-----+-----+-----+-----+-----+-----+');
	write('pil anda ? : ');readln(pil);
	case pil of
	1: begin
           if i>15 then writeln('tumpukan sudah penuh') else
           begin
		writeln(' MENAMBAH STOCK OBAT');
		write('Masukkan Nama obat : ');readln(nmobat);
		write('Masukkan kode obat : ');readln(kdobat);
                write('Masukkan Harga     : ');readln(hargabaru);
		tambah_obat(awal,nmobat,hargabaru,kdobat);
		i:=i+1;
		cetak_obat(awal);
		end;
		end;
	2: begin
		writeln(' TAMBAH PENGANTRI');
		write('Masukkan nama pengantri : ');readln(nmbaru);
		tambah_antri(akhir2,nmbaru);
		cetak_antri(awal2);
		end;
	3: begin
		if awal2=nil then
           writeln('Antrian kosong')
           else
           begin
                begin
                     new(hapus2);
                     hapus2:=awal2;
                     nmbeli:=hapus2^.nama;
                     awal2:=awal2^.next2;
                     dispose(hapus2);
                end;
           writeln('saudara ',nmbeli,' ingin membeli obat ? ');
           cetak_obat(awal);readln(obatbeli);
           if awal<>nil then
                begin
                new(bantu);
                bantu:=awal;
                ketemu:=false;
                if awal^.namaobat=obatbeli then
                   begin
                   new(hapus);
                   hapus:=awal;
                   obatbeli2:=hapus^.namaobat;
                   hargabeli:=hapus^.haobat;
                   awal:=awal^.next;
                   dispose(hapus);  writeln('obat ',obatbeli2,' tersedia dan dibeli');
                   end else
                if akhir^.namaobat=obatbeli then
                   begin
                   new(bantu);new(hapus);
                   bantu:=awal;
                   while(bantu^.next)^.next<> nil do
                   bantu:=bantu^.next;
                   hapus:=bantu^.next;
                   obatbeli2:=hapus^.namaobat;
                   hargabeli:=hapus^.haobat;
                   akhir:=bantu;
                   akhir^.next:=nil;
                   dispose(hapus); writeln('obat ',obatbeli2,' tersedia dan dibeli');
                   end
                   else
                       begin
                            while bantu^.next<>nil do
                                   begin
                                        if(bantu^.next)^.namaobat=obatbeli then
                                        begin
                                        new(hapus);ketemu:=true;
                                        hapus:=bantu^.next;
                                        bantu^.next:=hapus^.next;
                                        obatbeli2:=hapus^.namaobat;
                                        hargabeli:=hapus^.haobat;
                                        dispose(hapus);
                                        writeln('obat ',obatbeli2,' tersedia dan dibeli');
                                        end;
                                       bantu:=bantu^.next;
                                   end;
                       end;

end;
             end;
             new(baru3);
             baru3^.namaobat3:=obatbeli2;
             baru3^.haobat3:=hargabeli;
             baru3^.namaobat3:=nmbeli;
             if awal3=nil then
             begin awal3:=baru3;
             akhir3:=baru3; end
             else begin baru3^.next3:=awal3;
             awal3:=baru3;end;
             i:=i-1;
      end;
	
	4: cetak_obat(awal);
	5: cetak_antri(awal2);
	6: cetak_penjualan(awal3);
	7: cetak_rekap(awal3);
	8: begin
		writeln(' Mencari obat didalam tumpukan');
		write('Masukkan nama obat yang akan dicari : ');readln(nmobat);
		if awal<>nil then
		begin
			cari_obat(awal,nmobat);
		end
		else
			writeln('Obat tidak ada dalam tumpukan');
		end;
	9: writeln('Terimakasih');
	end;
	readln;
	end;
	until pil=9;
	end.

semogah bermanfaat......jangan lupa iya kalo abis baca tinggalkan komentar anda dibahwa ini.........

Jumat, 23 November 2012

STATEMEN KONDISIONAL

Statemen kondisional adalah statemen yang mengecek kondisi yang diberikan. Hasil dari statemen ini adalah nilai boolean true atau false. Statemen kondisional menggunakan operator kondisional. Adapun operator kondisional yang digunakan adalah sebagai berikut:

No	Simbol	Fungsi
1.	=	Sama dengan
2.	<>	Tidak sama dengan
3.	>	Lebih dari
4.	<	Kurang dari
5.	>=	Lebih dari atau sama dengan
6.	<=	Kurag dari atau sama dengan

Adapun statemen kondisional yang digunakan dalam Pascal adalah sebagai berikut:

a. Kondisional Tunggal

Statemen kondisional tunggal adalah pengecekan kondisi dimana jika kondisi bernilai true, maka statemen akan dilakukan, dan tidak akan melakukan apapun jika kondisi bernilai false. Lihat syntax berikut:

IF <kondisi> then {statement atau deretan statemen}

Contoh:

If umur>=17 then hak_pilih:=true;

Atau

If umur>=17 then

Begin

hak_pilih:=true;

writeln(‘Selamat anda berhak memilih dalam Pilkada’);

end;

Statemen diatas memperlihatkan bahwa jika kondisi umur>=17 maka akan diberikan nilai boolean true pada variabel hak_pilih. Jika bernilai false maka tidak melakukan apa-apa yang berarti variabel hak_pilih memiliki nilai awal yang telah diberikan.Pada contoh kedua, jika kondisi true maka akan ada dua statemen yang akan dikerjakan.

b. Kondisional Ganda

Statemen kondisional ganda adalah pengecekan kondisi dimana jika kondisi bernilai true maka akan mengerjakan blok statemen di bawahnya, dan jika statemen bernilai false maka akan mengerjakan blok statemen di bawah kondisi false. Perhatikan syntaknya sebagai berikut:

IF <kondisi> then {statement atau deretan statemen BLOK 1}

Else {statemen atau deretan statemen blok 2}

Contoh:

If umur>=17 then

begin

hak_pilih:=true;

writeln(‘Selamat anda berhak memilih dalam Pemilu tahun ini’);

end

else writeln (‘maaf anda belum cukup umur’);

Dari contoh di atas dapat dilihat bahwa jika kondisi umur>=17 terpenuhi (bernilai true), makanakan dikerjakan blok statemen

begin

hak_pilih:=true;

writeln(‘Selamat anda berhak memilih dalam Pemilu tahun ini’);

end

Sementara jika kondisi bernilai false maka akan mengerjakan statemen

writeln (‘maaf anda belum cukup umur’);

C. Kondisional Majemuk

Statemen kondisional majemuk adalah pengecekan kondisi dimana kondisi yang diperiksa lebih dari satu, sehingga jika kondisi pertama bernilai true maka akan mengerjakan blok statemen di bawahnya, dan jika statemen bernilai false maka akan dicek kondisi ke dua, jika kondisi kedua bernilai true mengerjakan blok statemen di bawah kondisi ke dua, jika kedua kondisi bernilai false maka akan mengerjakan blok ke 3. Kondisi yang diperikasa bisa lebih dari dua. Perhatikan syntaknya sebagai berikut:

IF <kondisi 1> then {statement atau deretan statemen blok 1}

Else IF <kondisi 2> then

{statemen atau deretan statemen blok 2}

Else

{statemen atau deretan statemen blok 3}

Contoh:

If menikah then hak_pilih:=true

Else if umur>=17 then hak_pilih:=true

Else hak pilih:=false;

If hak_pilih then

writeln(‘Selamat anda berhak memilih dalam Pemilu tahun ini’)

else writeln (‘maaf anda belum memiliki hak pilih dalam pemilu tahun ini’);

Dari contoh di atas dapat dilihat bahwa jika kondisi menikah terpenuhi (variabel menikah bernilai boolean) terpenuhi (bernilai true), maka akan dikerjakan statemen

hak_pilih:=true;

Sementara jika kondisi bernilai false maka akan dicek kondisi kedua, yaitu umur>=17. Jika statemen ini bernilai true maka akan mengerjakan statemen

hak_pilih:=true;

tetapi jika kondisi kedua pun bernilai false makan akan dikerjakan statemen

hak_pilih:=false;

Pada statemen berikutnya, akan dicek kondisi variabel hak_pilih. Ini adalah pengecekan tunggal. Jika kondisi bernilai true maka akan dicetak komentar

writeln(‘Selamat anda berhak memilih dalam Pemilu tahun ini’)

Tetapi jika kondisi bernilai false maka akan dikerjakan statemen di bawah ini:

writeln (‘maaf anda belum memiliki hak pilih dalam pemilu tahun ini’);

D. Penggunaan Case of

Penggunaan case <kondisi> of digunakan apabila pilihan yang digunakan sudah banyak dan bisa di kodekan, misal 1-10 atau a-f. Adapun syntak yang digunakan adalah sebagai berikut:

Kondisi 1

Kondisi 2

Kondisi 3

Kondisi 4

Kondisi 5

Case kondisi of

1: blok statemen 1

2:blok statemen 2

3:blok statemen 3

4:blok statemen 4

5: blok statemen 5

Penggunaan menu adalah salah satu contoh pemanfaatan case of. Perhatikan contoh program berikut untuk penggunaan case of.

program kondisi2;

uses wincrt;

const phi=3.14;

var pilih:char;

jari,alas,tinggi:integer;

luas,kel,vol:real;

lagi:char;

begin

{menggunakan switch of untuk kondisi yang multiple}

lagi:='y';

while lagi='y' do

begin

writeln(' MENU PILIHAN');

writeln('1.mencari luas lingkaran');

writeln('2.mencari keliling lingkaran');

writeln('3.mencari luas segitiga siku');

writeln('4.mencari luas permukaan tabung');

writeln('5.mencari volume bola');

writeln('6.selesai');

write('pilihan anda [1..6]-->');readln(pilih);

case pilih of

'1':

begin

writeln('masukkan jari-jari = ');

readln(jari);

luas:=phi*jari*jari;

writeln('luas lingkaran dengan jari-jari ',jari:6,' adalah = ',luas:10:2);readln;

end;

'2':

begin

writeln('anda akan menghitung keliling lingkaran ');

write('masukkan jari-jari ');readln(jari);

kel:=2*phi*jari;

writeln('keliling lingkaran dengan jari-jari ',jari,' adalah ',kel:10:2);

readln;

end;

'3':writeln('anda memilih pilihan tiga');

'4':writeln('anda memilih pilihan empat');

'5':

begin

writeln('anda memilih pilihan lima mencari volume bola');

write('masukkan jari2 bola ');readln(jari);

vol:=4/3*phi*jari*jari*jari;

writeln('volume bola dengan jari2 ',jari,' adalah ',vol:10:4);readln;

end;

'6':

begin

writeln('terimakasih');

lagi:='t';

halt;

exit;

end;

goto lagi;

end.

Dari contoh di atas dapat dilihat bagaimana penggunaan case of diterapkan dalam pilihan menu.