Program Pohon (Tree) Dinamis

Program ini saya posting kan karna saya mendapat tugas dari dari dosen saya,
dan Alhamdulillah saya bisa menyelesaikan Program Pohon (Tree) Dinamis  ini.
Berikut ini adalah script programmnya menggunakan turbo pascal :

uses wincrt; 

Type pohon=^node; 
node=record 
data:integer; 
kiri,kanan:pohon; 
     end; 
var  
     T:pohon; 
     info:integer; 
{--------------------------------------------------------------------}
Procedure Buat_BST(info :integer;var T:pohon); 
var 
     b:pohon; 
begin 
if T=nil then 
begin 
new(b);b^.data:=info;b^.kiri:=nil;b^.kanan:=nil; 
T:=b; 
end 
else 
begin 
if T^.data<info then 
   Buat_Bst(info,T^.kanan); 
if T^.data>info then 
   Buat_Bst(info,T^.kiri); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_pre(b:pohon); 
begin 
if (b<>nil) then 
begin 
write(b^.data); 
Baca_BST_pre(b^.kiri); 
Baca_BST_pre(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_in(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_in(b^.kiri); 
write(b^.data); 
Baca_BST_in(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------} 
Procedure Baca_BST_post(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_post(b^.kiri); 
Baca_BST_post(b^.kanan); 
write(b^.data); 
end; 
end; 
{--------------------------------------------------------------------}
begin 
clrscr; 
new(T);T^.kiri:=nil;T^.kanan:=nil; 
writeln('Memasukkan data ke dalam tree'); 
repeat 
write('Nilai data : ');readln(info); 
if info<>0 then Buat_BST(info,T); 
until info=0; 

writeln; 
readln; 
writeln('Pembacaan secara Pre order'); 
baca_BST_pre(T); 
writeln; 
readln; 
writeln('Pembacaan secara In order'); 
baca_BST_in(T);
writeln; 
readln; 
writeln('Pembacaan secara Post order'); 
baca_BST_post(T); 
end.

Semoga Program Pohon (Tree) Dinamis  ini dapat bermanfaat,

Diposting oleh Unknown 19.23 0 komentar

Contoh Program Sederhana Pascal part 2

Assamu'alaikum sobat, kali ini saya membuat contoh program yang telah saya buat sebelumnya,, Nah,, untuk yang satu ini saya buat program untuk di bidang Kesehatan.
Tanpa Pikir panjang lagi Lets Go kita baca, trus di coba biar tambah wawasan dikit,,
hehehehe,,,,,

Coba praktekan latihan berikut ini:

Berikut deskripsi kebutuhan user dari program pembayaran pada sebuah klinik;

Berikut adalah pengolahan data sebuah klinik

Nomor pasien :

Nama pasien :

Jenis kelamin :

Keluhan:

Dokter :

Biaya dokter :

Obat :

Biaya obat:

Lama inap:

Kamar inap:

Biaya kamar:

Discount:

Total bayar:

Catatan dari user;

·                     Jika keluhan = umum, maka dokter = dr.ilham wijaya dan biaya dokter =100000(100ribu)

·                     Jika keluhan = gigi, maka dokter = dr. Artalya dan biaya dokter = 110000(110ribu)

·                     Jika keluhan = anak, maka dokter = dr. Salim Hakim dan biaya dokter = 125000(125ribu)

·                     Jika keluhan = kandungan, maka dokter = dr. Kartini, SKM dan biaya dokter = 95000(95ribu)

·                     Jika obat “a” maka biaya obat = 50000(50ribu)

·                     Jika obat “b” maka biaya obat = 65 ribu

·                     Jika obat “c” maka biaya obat = 75 ribu

·                     Jika obat “d” maka biaya obat = 100 ribu

·                     Jika kamar inap =” vip” maka biaya kamar= 150 ribu permalam

·                     Jika kamar inap = “kelas 1” maka biaya kamar = 125 ribu

·                     Jika kamar inap = “kelas 2” maka biaya kamar = 110 ribu

·                     Jika kamar inap = “sal” maka biaya kamar = 75 ribu

·                     Discount = 5% dari transaksi

·                     Jika Pasien rawat jalan, maka biaya kamar tidak ada

Berikut listing program dari contoh kasus ini.

program datars;

uses crt;

var bdok,bob,bkm,dsc,tby,tbr:real;

np:string[10];

nap:string[30];

jkl:string[10];

klh:string[17];

dok:string[30];

kin:string[10];

ob:string[3];

lin:byte;

begin

clrscr;

write('Nomor Pasien=');

readln(np);

write('Nama Pasien=');

readln(nap);

write('Jenis Kelamin=');

readln(jkl);

write('Keluhan=');

readln(klh);

write('Type Obat=');

readln(ob);

writeln('* Jika rawat jalan, isi kamar inap"jalan" ');

Writeln('** Pilihan jenis kamar inap adalah"vip","k1","k2","sal",dan"jalan"');

writeln('*** Jika rawat jalan, isi lama inap"1"');

write('Kelas kamar=');

readln(kin);

write('Lama Inap=');

readln(lin);

if klh='umum' then begin

dok:='dr.ilham';

bdok:=100000*lin;

end

else

if klh='gigi' then begin

dok:='dr.Artalya';

bdok:=110000*lin;

end

else

if klh='anak' then begin

dok:='dr.Salim';

bdok:=125000*lin;

end

else begin

dok:='dr.Kartini';

bdok:=95000*lin;

end;

write('Dokter=',dok);

readln;

write('Biaya Dokter=',bdok:2:0);

readln;

if ob='a' then begin

bob:=50000;

end

else

if ob='b' then begin

bob:=65000;

end

else

if ob='c' then begin

bob:=75000;

end

else begin

bob:=100000;

end;

write('Biaya Obat=',bob:2:0);

readln;

if kin='vip' then begin

bkm:=150000*lin;

end

else

if kin='k1' then begin

bkm:=125000*lin;

end

else

if kin='k2' then begin

bkm:=110000*lin;

end

else

if kin='sal' then begin

bkm:=70000*lin;

end

else begin

bkm:=0;

end;

write('Biaya Kamar=',bkm:2:0);

readln;

tby:=bdok+bob+bkm;

dsc:=tby*0.05;

tbr:=tby-dsc;

writeln('Total Bayar=',tbr:2:0);

readkey;

end.

Inilah tampilan saat program dijalankan;

Demikianlah penjelasan yang bisa saya jabarkan tentang  "Cara Membuat Program Dengan Turbo Pascal" semoga bisa menambah pengetahuan kita ya,,,,
Thanks For Your Visit in My Blog, More Or Less I'm Sorry,,,
Wasalam,,

Diposting oleh Unknown 09.54 0 komentar

Fungsi Looping Pada Pascal

Assalamu'alaikum . . . . . .
kali ini saya mempostingkan hal yang masih berkaitan dengan Bahasa Pemrograman Turbo Pascal.
OK tanpa basah kering kita baca artikel ini, semoga bisa menambah wawasan kita ya,,,,,,
Cekidot...!!!

Apa Itu Looping
Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah.

Selanjutnya bagaimana cara penerapan fungsi looping pada pascal?


Cara Penerapan Fungsi Looping Pada Pascal
Looping pad pascal menggunakan beberapa perintah seperti;
• for...to.. do;
For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;
• while..do;
• dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pda postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until)

Berikut contoh list programnya;

uses crt;

var i: integer;

a:string[30];

begin

clrscr;

write('kata='); readln(a);

for i:=1 to 5 do

begin

writeln(a);

end;

readln;

end.

Contoh listing program diatas adalah pengulangan kata yang diinput sebanyak 5 kali. Logikanya programnya seperti ini;

• deklarasikan variable

• input kata

• cetak kata yang diinput

• lakukan pengulangan sampai 5 kali

• selesai

Demikian share dari saya untuk saat ini. Semoga semakin menambah pemahaman kita tentang"Fungsi Looping Pada Pascal".

Diposting oleh Unknown 18.10 0 komentar

Contoh Program Turbo Pascal Sederhana

Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana.
Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;
• Nomor Induk Karyawan
• Nama Karyawan
• Status
• Jumlah Anak
• Jabatan
• Gaji Pokok
• Tunjangan Istri
• Tunjangan Anak
• Tunjangan jabatan
• Jamsostek
• Pajak
• Gaji Bersih

Catatan;
Tunjangan istri
• jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok
• Selain itu tidak dapat tunjangan

Tunjangan anak
• Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk

masing-masing anak
• Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
• selain itu tidak dapat tunjangan

Tunjangan jabatan
• Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000
• Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000
• Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000
• Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)


Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.

program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.



Demikian dulu pembahasan tentang 'Contoh Program Sederhana Pascal'.

Selamat belajar dan mencobanya ya,,
o0O Good Luck O0o

Diposting oleh Unknown 10.26 0 komentar