[Tugas]Borland yg di kertas

Tugas Ke 2 Yang Di Kertas Lab

Pertama-tama perhatikan soal di nomer 1 yg ada di ketentuan soal pada kertas tugas yg di berikan oleh lab,

Di situ di tulis : 1.Buat File Header untuk main(),cout,cin,clrscr(),getch(),textcolor,cprintf,if,else if,else,endl,gets,goto.Simpan Dengan Nama FileHeader.h.

Maka kemudian pertama2 kita harus membuat fileheader dengan menu #define,

Berikut adalah script untuk Membuat FileHeader.h :

#define mulai() main()

#define cetak cout

#define input cin

#define apus() clrscr()

#define tahan() getch()

#define warna textcolor

#define cetakwarna cprintf

#define jika if

#define selainitu else if

#define selain else

#define baris endl

#define masukan gets

#define ke goto

Setelah semua kita buat ,lantas kita save dengan nama FileHeader.h, *PERLU DI INGAT BAHWA DI BORLAND C++ KITA MENGGUNAKAN CASE SENSITIF DIMANA HURUF BESAR DAN HURUF KECIL DI PERHITUNGKAN*

Setelah membuat file header,kita lantas dapat membuat script seperti biasa,tetapi dengan meng-include kan file header yg kita buat tadi ,

#include "conio.h"

#include "stdio.h"

#include "iostream.h"

#include "iomanip.h"

#include "FileHeader.h" //include ini adalah fileheader yg kita buat tadi

judul () //ini adalah pembuatan fungsi yg memuat perintah untuk mecetak garis yg berwarna pada point ke 2 di ketentuan soal

{

warna(2);

cetakwarna("------------------------------------------------------------------");

cetak<

cetakwarna(" RS BAHAGIA SENTOSA JAYA SELALU ");

cetak<

cetakwarna("------------------------------------------------------------------");

cetak<

cetakwarna("Perhitungan Biaya Perawatan Pasien");

cetak<

}

int tobay (int z,int x,int y) //sedangkan ini adalah fungsi untuk melakukan perhitungan total biaya rumah sakit pada point ke 3 di ketentuan soal

{

return ((z*x)+y);

}

mulai()

{

class dokter //ini adalah pembuatan class dokter //

{

public:

char kd_dktr;

char nm_dktr[40];

};dokter dokterku[99]; //sedangkan ini adalah pendefinisan class dokter menjadi dokterku dan akan di arraykan//

struct //ini adalah pembuatan struct pasien

{

char nm_pasien[25];

char almt[50];

char kd_kmr;

char nm_kmr[10];

}pasien[99];

struct //ini pembuatan struct biaya

{

int lm_inap;

int hrg_kmr;

int hrg_dktr;

int total;

}biaya[99];

int a,b;

char lagi;

mulailagi: //ini di gunakan sebagai titik point fungsi goto (yg udah di define menjadi “ke”) //

apus(); //ini clrscr() yg sudah di define menjadi apus ()

judul(); //ini pemanggilan fungsi untuk membuat garis dan judul yg berwarna tadi

cetak<<

cetak<<"Masukan Banyak Data : ";input>>b; //ini di gunakan untuk pembatas jumlah data//

cetak<<

for (a=1;a<=b;a++) //fungsi for di sini untuk melakukan perintah serta fungsi2 yg ada dalam layer input beserta variable-variable nya

{

cetak<<"Nama Pasien : ";masukan(pasien[a].nm_pasien);

cetak<<"Alamat Pasien : ";masukan(pasien[a].almt);

cetak<<"Kode Kamar [1/2/3] : ";input>>pasien[a].kd_kmr;

jika (pasien[a].kd_kmr=='1')

{

strcpy (pasien[a].nm_kmr,"anggrek");

biaya[a].hrg_kmr=150000;

}

else jika (pasien[a].kd_kmr=='2')

{

strcpy (pasien[a].nm_kmr,"Melati");

biaya[a].hrg_kmr=75000;

}

else jika (pasien[a].kd_kmr=='3')

{

strcpy (pasien[a].nm_kmr,"Tulip");

biaya[a].hrg_kmr=30000;

}

else

{strcpy (pasien[a].nm_kmr,"Kode Salah");

biaya[a].hrg_kmr=0;

}

cetak<<"Kode Dokter [1/2/3] : ";input>>dokterku[a].kd_dktr;

jika (dokterku[a].kd_dktr=='1')

{

strcpy (dokterku[a].nm_dktr,"Dr.Prihat Wening");

biaya[a].hrg_dktr=150000;

}

else jika (dokterku[a].kd_dktr=='2')

{

strcpy (dokterku[a].nm_dktr,"Dr.Putri Muhendriana");

biaya[a].hrg_dktr=175000;

}

else jika (dokterku[a].kd_dktr=='3')

{

strcpy (dokterku[a].nm_dktr,"Prof.Dr.Mahmud Badarudin");

biaya[a].hrg_dktr=200000;

}

else

{

strcpy (dokterku[a].nm_dktr,"Id dokter Salah");

biaya[a].hrg_dktr=0;

}

cetak<<"Lama inap : ";input>>biaya[a].lm_inap;

biaya[a].total=tobay(biaya[a].lm_inap,biaya[a].hrg_kmr,biaya[a].hrg_dktr);

}

apus();

judul();

cetak<<

for (a=1;a<=b;a++) //for di sini untuk melakukan perintah percetakan variable yg udah kita input tadi//

{

cetak<<"Nama Pasien : "<<

cetak<<"Alamat Pasien : "<<

cetak<<"Lama Inap : "<<

cetak<<"Nama Kamar : "<<

cetak<<"Biaya Kamar /Hari : "<<

cetak<<"Nama Dokter : "<<

cetak<<"Biaya Dokter : "<<

cetak<<"Total Biaya : "<<

}

cetak<<"Mau Input Data Lagi ????? [Y/T] " ;input>>lagi; //ini adalah fungsi goto tadi

jika ((lagi=='y')||(lagi=='Y'))

ke mulailagi;

else

tahan();

}

bagi yang kurang jelas atau mau di tanyakan bisa post coment di bawah or tanya via facebook di yobel@live.com or sms ke no gw,

sangat di saran kan untuk tidak mengcopy paste tugas ini,

tapi buat yg mau copas juga gpp sih asal siap terima nilai sama aja,

hahahaha

sebuah quote indah terfikirkan oleh gw ketika mengerjakan tugas ini,

bahwa : “bagian terindah dari suatu pencapaian ialah usaha yg kita lakukan” - yobel permana 281209