Pascal:Billing Rumah Sakit Sederhana

6:29 PM


Alhamdulillah uts sudah selesai, mudah-mudahan nilainya bagus-bagus dan memuaskan. Sekarang gw bakalan berbagi hasil dari soal pascal yang sempet bikin isi kepala gw berhenti sejenak. Karena itu soal susah banget dach.


Tapi, setelah selesai uts gw bahas soal ini, dan al-hamdulillah terpecahkan juga masalahnya, meskipun berbeda versi dengan punya pak Sutanto (dosen pemograman unbaja).


langsung saja dech, soalnya adalah seperti ini.

Rumah sakit "SANGGA BUANA: bermaksud untuk bisa menghitung biaya yang harus di bayar oleh pasiennya, dan saudara diharapkan bisa memberikan solusi algoritma dalam bentuk program dengan menggunakan PASCAL. Sedangkan komponen-komponen biaya yang harus dikeluarkan pasien adalah sebagai berikut:
1. Biaya Registrasi pasien : Berlaku bagi pasien umum dan pasien menggunakan askes.
2. Biaya konsultasi dokter : Untuk semua pasien
3. Untuk biaya inap, kamar terbagi menjadi empat kelas, dengan setiap harinya sebagai berikut:
kelas 1 : 700.000,-
kelas 2 : 600.000,-
kelas 3 : 500.000,-
kelas 4 : 400.000,-
Dan bagi pasien dengan kartu ASKES maka biaya inap diberi potongan 45%
4. Biaya obat : Sesuai yang pakai oleh pasien

Nah, gimana kawan-kawan, soalnya susah buangetkan dijadiin program, pada saat ujian mah gw dah yakin pasti jawaban gw SALTOT (salah total). hee

Tapi kalo sekarang mah, mudah-mudahan dakk saltot lagi. hee

nie dia codingnya.

Coding:
uses wincrt;
var
al,nm,pj,kel,ask:string;
b,hrg,pot,tob:real;
bk,bo,um,li:integer;
begin
writeln('================================');
writeln(' RUMAH SAKIT SANGGA BUANA');
writeln('================================');
write('Nama = ');readln(nm);
write('Alamat = ');readln(al);
write('Umur = ');readln(um);
write('Penanggung jawab = ');readln(pj);
writeln('biaya konsultasi = 10000');
write('biaya obat = ');Readln(bo);
write('Lama inap = ');readln(li);
write('Kelas (1/2/3/4) = ');readln(kel);
if(kel='1')then
hrg:=li*700000 else
if(kel='2')then
hrg:=li*600000 else
if(kel='3')then
hrg:=li*500000 else
if(kel='4')then
hrg:=li*400000;
b:=hrg+bo+10000;
writeln;
writeln('Biaya = Rp.',b:4:2);
write('Kartu askes (y/n) = ');readln(ask);
clrscr;
writeln('================================');
writeln(' RUMAH SAKIT SANGGA BUANA');
writeln('================================');
if ask='y' then
pot:=b*45/100;
tob:=(b-pot);
writeln;
writeln('Nama = ',nm);
writeln('Umur = ',um);
writeln('Alamat = ',al);
writeln('Biaya Konsultasi= Rp.10000');
writeln('Biaya Obat = Rp.',bo);
writeln('Biaya Inap = Rp.',hrg:3:2);
writeln('Askes = ',ask);
writeln;
writeln('TOTAL BIAYA = Rp.',tob:3:2);
writeln(' ------------');
writeln;
writeln('================================');
end.

Nah, bagaiman dengan hasilnya?, mudah-mudahan tidak membuat anda kecewa ach. hee

Dah dulu lah.

Semoga bermanfaat.
Salam blogger.

0 comments