Program Sederhana Pascal (Second Episode)

Sebelum baca tolong diperhatikan, *Jika anda belum mempunyai Program Pascal silahkan anda mendownload file saya dengan cara cukup Klik Disini*

*Dan jika anda sudah mendownload filenya silahkan di Instal dan di jalankan Program Pascalnya*


Bagi yang sudah mempunyai Pascal tidak usah mendownload file di atas ^_^ cukup membaca bacaan di bawah ini :
Kali ini saya akan meng-share kan beberapa ilmu saya

dengan susah payah dan semedi beberapa tahun (4L4Y)

ini adalah salah satu contoh program sederhana untuk pemograman pascal ^_^
langsung saja Cekidot :

Contoh Program suatu Klinik pada pascal :

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

  Dibawah ini adalah program list dari contoh Program Klinik 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;
gotoxy(18,1);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*');
goto(18,2);
writeln('* Created Design by: Arvin Janathan Adhim *');
gotoxy(18,3);
writeln('*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*');
write('Nomor Pasien=');
readln(np);
write('Nama Pasien=');
readln(nap);
write('Jenis Kelamin=');
readln(jkl);
write('Keluhan=');
readln(klh);
writeln();
write('Tipe Obat ada : ');
write('Pil');
write('Kaplet');
write('Tablet');
write('Type Obat=');
readln(ob);
writeln('Pilihlah jenis kamar inap : ');
writeln();
write('VIP');
writeln('   K1');
write('K2');
writeln('   SAL');
write('Kelas Kamar = ');
readln(kin);
write('Lama Inap=');
readln(lin);
if klh='umum' then begin
dok:='Dr. Arvin Janathan A';
bdok:=500000*lin;
end
else
if klh='gigi' then begin
dok:='Dr. Diaz Setyo U';
bdok:=480000*lin;
end
else
if klh='anak' then begin
dok:='Dr. Enggar Swahadika';
bdok:=100000*lin;


end;
write('Dokter=',dok);
readln;
write('Biaya Dokter=',bdok:2:0);
readln;
if ob='Kaplet' then begin
bob:=100000;
end
else
if ob='Tablet' then begin
bob:=80000;
end
else
if ob='Pil' then begin
bob:=75000;
end
else begin
bob:=100000;
end;
write('Biaya Obat=',bob:2:0);
readln;
if kin='VIP' then begin
bkm:= 400000*lin;
end
else
if kin='K1' then begin
bkm:=387000*lin;
end
else
if kin='K2' then begin
bkm:=375000*lin;
end
else
if kin='SAL' then begin
bkm:=350000*lin;

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.

Nih Hasil Akhirnya ^_^





 


Baca juga Artikel tentang :


Startup lambang LP
Skin MAU putih
Skin DA ungu
Cheat Analyzer AO
Software Your Uninstaler
RF Black Skin
Skin White DA
Startup lambang COD
Skin rf terbaru
Skin DA beberapa warna
Skin Bow beberapa macam
Skin armor interest
Skin macem sege

Program Sederhana Pascal (Second Episode) 2012-04-11T22:13:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown