program biaya_berobat;
uses wincrt;
var
kod,nampas,namdok,klh,nambat:string[20];
jk:char;
linap,binap,bdok,tot,bbat:longint;
procedure nama_dokter;
begin
writeln('RUMAH SAKIT DILEMA');
writeln('==========================================');
write('Kode Pasien :');readln(kod);
write ('Nama Pasien :');readln(nampas);
write ('Jenis Kelamin Pasien, L/P :');readln (jk);
write ('Keluhan Pasien,umum,anak,gigi :'); readln(klh);
{write('Nama Obat,pramek,bodreksin,pandl:');readln(nambat);}
write ('Lama Menginap :');readln(linap);
if klh= 'umum' then
begin
namdok:= 'dr.budi';
bdok := 30000;
bbat := 25000;
end;
if klh='anak' then
begin
namdok:='dr.ilham';
bdok:=40000;
bbat:=30000;
end;
if klh='gigi'then
begin
namdok:='dr.agus';
bdok:=50000;
bbat:=40000;
end;
writeln ('Nama dokter :',namdok);
end;
procedure biaya_dokter;
begin
writeln('biaya dokter :Rp.',bdok);
binap:= bdok*linap;
writeln('biaya menginap:Rp.',binap);
writeln('biaya obat :Rp.',bbat);
tot:=binap+bdok+bbat;
writeln('==========================================');
writeln('total biaya :Rp.',tot);
end;
begin
nama_dokter;
writeln('==========================================');
biaya_dokter;
writeln('==========================================');
end.
Tidak ada komentar:
Posting Komentar