Source Code Program Turbo Pascal Klinic Sederhana

Source Code Turbo Pascal Klinic Sederhana

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.

Demikianlah penjelasan yang bisa saya jabarkan tentang  "Program Turbo Pascal Klinic Sederhana" semoga bisa menambah pengetahuan kita ya,,,,

Source Code Program Pascal Pohon (Tree) Dinamis

Source Code Program Pascal Pohon (Tree) Dinamis

Program ini saya posting kan karna saya mendapat insting dari pencarian di dunia Maya... hahahhahaa, dan mudah mudahan 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 Source Code Program Pascal Pohon (Tree) Dinamis  ini dapat bermanfaat, dan bisa anda Gunakan. Terima kasih.

Pengertian Dan Fungsi Looping Pada Pascal

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

Program Gaji Turbo Pascal Sederhana

Pascall Wallpapers HD By PAMBAH Corporation

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,,
Semoga Berhasil.