Senin, 01 April 2013

kompatet latihan pertemuan 4

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