Cara Membuat Program Dengan Turbo Pascal

Selamat malam sobat netter, pada kesempatan kali ini saya mau berbagi tentang"Cara Membuat Program Dengan Turbo Pascal". Program yang akan saya jelaskan berikut adalah contoh pengolahan data pada sebuah klinik. Pada contoh ini saya sertakan flow/deskripsi kebutuhan user dari program dan listing kode program. Listing program bisa sobat edit sesuai kebutuhan. Program ini saya buat berdasarkan tips membuat program pada blog ini.

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"

Konversi Masalah Algoritma ke Bahasa Pemograman Turbo Pascall 7,1

Penyelesaian Masalah Algoritma Dengan Bahasa Pemograman Turbo Pascall 7,1

1.Pengenalan

Pascall merupakan sofware programming yang terstruktur. Setiap akhir statement pada Pascall diakhiri dengan tanda baca titik koma (;).

2. Stuktur Program Pascal

Struktur dasar / sederhana dari Bahasa Pascall adalah sebagai berikut

>Program Judul-Program;

Pada judul program tidak bisa ada spasi

contoh; program Persegipanjang;

uses;

Ini deklarasi untuk piranti yang digunakan

contoh; uses crt;

Jika program yang kita pakai memakai piranti display

label;

Label ini coment untuk mendeklarasikan label

contoh : label fendri;

const;

Perintah ini digunakan jika dalam program kita memakai variabel yang tetap

contoh : const phi=3.14;

var;

Perintah ini merupakan komponen wajib dalam struktur bahasa Pascal

contoh ; var r,phi,lu,kll:real;

Jika data yang ditampilkan atau diolah adalah bilangan desimal maka jenis variablenya : real

Jika data yang dipakai adalah karakter huruf dan angka /karakter khusu maka jenis var : string

begin;

clrscr;

Perintah ini untuk mengosongkan layar

write;

writeln;

read;

readln;

..........

end.


Pada bahasan selanjutnya saya akan memberikan contoh program sederhana