Contoh Program Sederhana Pascal part 2

Assamu'alaikum sobat, kali ini saya membuat contoh program yang telah saya buat sebelumnya,, Nah,, untuk yang satu ini saya buat program untuk di bidang Kesehatan.
Tanpa Pikir panjang lagi Lets Go kita baca, trus di coba biar tambah wawasan dikit,,
hehehehe,,,,,

Coba praktekan latihan berikut ini:

Berikut deskripsi kebutuhan user dari program pembayaran pada sebuah klinik;

Berikut adalah pengolahan data sebuah klinik

Nomor pasien :

Nama pasien :

Jenis kelamin :

Keluhan:

Dokter :

Biaya dokter :

Obat :

Biaya obat:

Lama inap:

Kamar inap:

Biaya kamar:

Discount:

Total bayar:

Catatan dari user;

·                     Jika keluhan = umum, maka dokter = dr.ilham wijaya dan biaya dokter =100000(100ribu)

·                     Jika keluhan = gigi, maka dokter = dr. Artalya dan biaya dokter = 110000(110ribu)

·                     Jika keluhan = anak, maka dokter = dr. Salim Hakim dan biaya dokter = 125000(125ribu)

·                     Jika keluhan = kandungan, maka dokter = dr. Kartini, SKM dan biaya dokter = 95000(95ribu)

·                     Jika obat “a” maka biaya obat = 50000(50ribu)

·                     Jika obat “b” maka biaya obat = 65 ribu

·                     Jika obat “c” maka biaya obat = 75 ribu

·                     Jika obat “d” maka biaya obat = 100 ribu

·                     Jika kamar inap =” vip” maka biaya kamar= 150 ribu permalam

·                     Jika kamar inap = “kelas 1” maka biaya kamar = 125 ribu

·                     Jika kamar inap = “kelas 2” maka biaya kamar = 110 ribu

·                     Jika kamar inap = “sal” maka biaya kamar = 75 ribu

·                     Discount = 5% dari transaksi

·                     Jika Pasien rawat jalan, maka biaya kamar tidak ada

Berikut listing program dari contoh kasus ini.

program datars;

uses crt;

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:byte;

begin

clrscr;

write('Nomor Pasien=');

readln(np);

write('Nama Pasien=');

readln(nap);

write('Jenis Kelamin=');

readln(jkl);

write('Keluhan=');

readln(klh);

write('Type Obat=');

readln(ob);

writeln('* Jika rawat jalan, isi kamar inap"jalan" ');

Writeln('** Pilihan jenis kamar inap adalah"vip","k1","k2","sal",dan"jalan"');

writeln('*** Jika rawat jalan, isi lama inap"1"');

write('Kelas kamar=');

readln(kin);

write('Lama Inap=');

readln(lin);

if klh='umum' then begin

dok:='dr.ilham';

bdok:=100000*lin;

end

else

if klh='gigi' then begin

dok:='dr.Artalya';

bdok:=110000*lin;

end

else

if klh='anak' then begin

dok:='dr.Salim';

bdok:=125000*lin;

end

else begin

dok:='dr.Kartini';

bdok:=95000*lin;

end;

write('Dokter=',dok);

readln;

write('Biaya Dokter=',bdok:2:0);

readln;

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;

write('Biaya Obat=',bob:2:0);

readln;

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;

write('Biaya Kamar=',bkm:2:0);

readln;

tby:=bdok+bob+bkm;

dsc:=tby*0.05;

tbr:=tby-dsc;

writeln('Total Bayar=',tbr:2:0);

readkey;

end.

Inilah tampilan saat program dijalankan;

Demikianlah penjelasan yang bisa saya jabarkan tentang  "Cara Membuat Program Dengan Turbo Pascal" semoga bisa menambah pengetahuan kita ya,,,,
Thanks For Your Visit in My Blog, More Or Less I'm Sorry,,,
Wasalam,,