Cara Membuat Program Dengan Turbo Pascal

Cara Membuat Program Dengan Turbo PascalSebelum kita melangkah lebih lanjut, ada baiknya kita ketahui terlebih dahulu program yang akan kita gunakan pada cara membuat program dengan Turbo Pascal di My Blogging Ideas. Turbo Pascal adalah sebuah sistem pengembangan software atau perangkat lunak yang terdiri dari kompiler dan lingkungan pengembangan yang terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) pada bahasa pemrograman pascal untuk operating system CP/M, CP/M-86, dan MS-DOS, yang di develop oleh Borland ketika masa kepemimpinan Philippe Kahn. Nama Borland Pascal biasanya digunakan untuk paket software tingkat lanjut (dengan pustaka kode sumber standar dan kepustakaan yang lebih banyak) sedangkan versi yang paling murah dan lebih luas digunakan biasa disebut sebagai Turbo Pascal. Nama Borland Pascal juga dipakai sebagai logat spesifik Pascal buatan Borland.

Borland sudah menambahkan tiga versi sebelumnya dari Turbo Pascal secara gratis dikarenakan sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang running pada sistem operasi MS-DOS.


Kali ini kita akan membuat aplikasi menggunakan program atau software yang berbeda dari Cara Membuat Program Aplikasi Kasir dengan VB6 pada posting yang lain. Berikut ini adalah cara membuat program dengan turbo pascal dengan membuat pengolah data sederhana administrasi rumah sakit. Contoh program dan kode program bisa di edit sesuai dengan kebutuhan.

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.

Sumber listing program: http://fendri-informatika.blogspot.com/2011/05/cara-membuat-program-dengan-turbo.html

2 comment:

If you liked this post, please leave your comment!