Program pascal Data Transaksi klinik (procedure)

Ini merupakan salah satu contoh membuat data transaksi klinik menggunakan aplikasi Turbo Pascal for Windows (TPW) 1.5.

Sintaks:
program data_transaksi_klinik;
uses wincrt;
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,pil:byte;

procedure data_dktr;
begin
write('Nomor Pasien=');
readln(np);
write('Nama Pasien=');
readln(nap);
write('Jenis Kelamin=');
readln(jkl);
write('Keluhan=');
readln(klh);
writeln('Jika Pasien rawat jalan, maka isi lama inap adalah "1"');
write('Lama inap=');
readln(lin);

if klh='umum' then begin
 dok:='dr.asep';
  bdok:=100000*lin;
end
else
if klh='gigi' then begin
  dok:='dr.rani';
   bdok:=110000*lin;
end
else
if klh='anak' then begin
  dok:='dr.agus';
   bdok:=125000*lin;
end
else
begin
  dok:='dr.Kartini';
   bdok:=95000*lin;
    end;
writeln('Dokter=',dok);
writeln('Biaya Dokter=',bdok:2:0);
end;

procedure data_obat;
begin
write('Type Obat=');
readln(ob);
if ob='a' then begin
  bob:=50000;
   end
else
if ob='b' then begin
  bob:=65000;
   end
else
if ob='c' then begin
  bob:=75000;
   end
else
begin
  bob:=100000;
end;
writeln('Biaya Obat=',bob:2:0);
end;

procedure data_kamar;
begin
writeln('Jika Pasien rawat jalan, maka isi kelas kamar adalah "jalan"');
writeln('dan isi lama inap adalah"1"');
write('Kelas kamar=');
readln(kin);
write('Lama Inap=');
readln(lin);
if kin='vip' then begin
bkm:=150000*lin;
end
else
  if kin='k1' then begin
   bkm:=125000*lin;
end
else
  if kin='k2' then begin
   bkm:=110000*lin;
end
else
  if kin='sal' then begin
   bkm:=70000*lin;
end
else
begin
bkm:=0;
end;
writeln('Biaya Kamar=',bkm:2:0);
end;

procedure data_trans;
begin
data_dktr;
data_obat;
data_kamar;
tby:=bdok+bob+bkm;
dsc:=tby*0.05;
tbr:=tby-dsc;
writeln('Total Biaya=',tby:2:0);
writeln('Discount =',dsc:2:0);
writeln('Total Bayar=',tbr:2:0);
end;

procedure menu;
begin
writeln('Menu Klinik Asep Medika');
writeln('_____________________');
writeln('[1].Data Dokter');
writeln('[2].Data Biaya Obat');
writeln('[3].Data Biaya Kamar');
writeln('[4].Data Transaksi');
writeln('_____________________');
write('Pilihan Anda=');readln(pil);
if pil=1 then begin
data_dktr;
end
else if pil=2 then begin
data_obat;
end
else if pil=3 then begin
data_kamar;
end
else if pil=4 then
begin
data_trans;
end
else
begin
writeln('Pilihan tidak tersedia');
end;
end;
begin
clrscr;
menu;
readkey;
end.
Outputnya: