Program Rawat Inap Pencabangan dalam Pascal

Kali ini saya akan berbagi kasus percabangan if. Tentunya setelah memperoleh sedikit ilmu baik dari dosen, guru, atau dari membaca buku. Tidak salahnya mencoba beberapa kasus-kasus program pascal berikut tentang program rawat inap.

Contoh Kasus percabangan If:

Di Rumah Sakit “Dr.moen” mempunyai perawatan yaitu rawat inap, untuk rawat inap maka pasien harus memilih jenis ruangan perawatan yang dipakai, jika ruang VIP maka biaya per hari 1,5 jt, jika ruang Kelas I maka biaya per hari 900 ribu, jika ruang Kelas II maka biaya 300 ribu, jika Kelas III maka biaya 150 per hari. Biaya dokter juga akan dikenakan perhari(biaya dokter tergantung dari jenis dokter yang dipilih jika dokter spesialis maka biaya per hari 300 ribu jika dokter umum biaya 100 ribu per hari ), biaya obat akan dihitung secara akumulasi. Buat algoritma untuk aplikasi sederhana KASIR dengan ketentuan untuk rawat inap total pembayaran dihitung dari biaya ruang dikalikan jumlah hari menginap, biaya dokter dikalikan jumlah hari menginap dan biaya obat.

program rawat1;
uses
  WinCrt;
var r,dok:string[10];
biar,biad,hr,tot,o:real;

begin
writeln('Program Rawat Inap RS.Moen');
writeln;
write('Jenis Ruangan yang digunakan [VIP|1|2|3]: '); readln(r);
write('Lama menginap [hari]: '); readln(hr);

if r='vip' then
begin
biar:=1500000*hr;
end

else if r='1' then
begin
biar:=900000*hr;
end

else if r='2' then
begin
biar:=300000*hr;
end

else if r='3' then
begin
biar:=150000*hr;
end;

write('Jenis dokter [spesialis(s)|umum(u)]: '); readln(dok);

if dok='s' then
begin
biad:=300000*hr;
end

else if dok='u' then
begin
biad:=100000*hr;
end;

write('Biaya obat: '); readln(o);

tot:=biad+biar+o;
writeln;
writeln('Rincian biaya RS.Moen');
writeln('Biaya Ruang  : ', biar:10:0);
writeln('Biaya Dokter : ', biad:10:0);
writeln('Biaya Obat   : ', o:10:0);
writeln('Total Biaya  : ', tot:10:0);

end.

Screenshot hasil program: