Featured Post Today
print this page
Latest Post

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,,



0 komentar

Fungsi Looping Pada Pascal


Assalamu'alaikum . . . . . .
kali ini saya mempostingkan hal yang masih berkaitan dengan Bahasa Pemrograman Turbo Pascal.
OK tanpa basah kering kita baca artikel ini, semoga bisa menambah wawasan kita ya,,,,,,
Cekidot...!!!

Apa Itu Looping
Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah.

Selanjutnya bagaimana cara penerapan fungsi looping pada pascal?


Cara Penerapan Fungsi Looping Pada Pascal
Looping pad pascal menggunakan beberapa perintah seperti;
for...to.. do;
For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;
while..do;
dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pda postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until)


Berikut contoh list programnya;
uses crt;
var i: integer;
a:string[30];
begin
clrscr;
write('kata='); readln(a);
for i:=1 to 5 do
begin
writeln(a);
end;
readln;
end.


Contoh listing program diatas adalah pengulangan kata yang diinput sebanyak 5 kali. Logikanya programnya seperti ini;
deklarasikan variable
input kata
cetak kata yang diinput
lakukan pengulangan sampai 5 kali
selesai


Demikian share dari saya untuk saat ini. Semoga semakin menambah pemahaman kita tentang"Fungsi Looping Pada Pascal".

0 komentar

Contoh Program Turbo Pascal Sederhana


Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana.
Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;
Nomor Induk Karyawan
Nama Karyawan
Status
Jumlah Anak
Jabatan
Gaji Pokok
Tunjangan Istri
Tunjangan Anak
Tunjangan jabatan
Jamsostek
Pajak
Gaji Bersih

Catatan;
Tunjangan istri
jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok
Selain itu tidak dapat tunjangan

Tunjangan anak
Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk

masing-masing anak
Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
selain itu tidak dapat tunjangan

Tunjangan jabatan
Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000
Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000
Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000
Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)


Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.

program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.



Demikian dulu pembahasan tentang 'Contoh Program Sederhana Pascal'.

Selamat belajar dan mencobanya ya,,
o0O Good Luck O0o



0 komentar
 
Support : Creating Website | Igaph Sinaga | Mas Template
Copyright © 2013. Blognya Igaph - All Rights Reserved
Template Created by Creating Website Published by Igaph Sinaga
Proudly powered by Blogger