Popular Post

Popular Posts

Posted by : Unknown Rabu, 18 Mei 2016

#include <conio.h>
#include <stdio.h>
#include <iostream.h>
class klinik
{
public:
char nama[30],penyakit[30];
int lmrawat,bykamar,bydokter,total;
};
main()
{
char bulan[15],lagi;
int tahun,i,banyak;
atas:
clrscr();
klinik sehat[10];
cout<<"\t\tDATA PASIEN"<<endl;
cout<<"\t  KLINIK SMK KORPRI"<<endl;
cout<<"\t--------------------------"<<endl;
cout<<"Masukkan Jumlah Data\t:";cin>>banyak;
cout<<"Bulan\t:";cin>>bulan;
cout<<"Tahun\t:";cin>>tahun;
for(i=1;i<=banyak;i++)
{
cout<<"Data Ke-"<<i<<endl;
cout<<endl;
puts("Nama Pasien\t:");gets(sehat[i].nama);
cout<<endl;
puts("Jenis Penyakit");gets(sehat[i].penyakit);
cout<<"Lama Perawatan\t:";cin>>sehat[i].lmrawat;
if(sehat[i].lmrawat<=5)
{sehat[i].bykamar=1500000;
sehat[i].bydokter=2000000;
}
else if(sehat[i].lmrawat<=10)
{sehat[i].bykamar=2500000;
sehat[i].bydokter=4000000;
}
else if(sehat[i].lmrawat<=30)
{sehat[i].bykamar=4000000;
sehat[i].bydokter=1000000;
}
else
{sehat[i].bykamar=0;
sehat[i].bydokter=0;
}
sehat[i].total=sehat[i].bykamar+sehat[i].bydokter;
}
clrscr();
cout<<"\t\tDATA PASIEN"<<endl;
cout<<"\t  KLINIK SMK KORPRI"<<endl;
cout<<"\t-----------------------"<<endl;
cout<<endl;
cout<<"Bulan :"<<bulan;
cout<<"\t\t\t\t\t\tTahun :"<<tahun<<endl;
cout<<"========================================================================="<<endl;
cout<<"No. Nama  Jenis  Lama   Biaya       Biaya    Total"<<endl;
cout<<" Pasien  Penyakit Rawat   Kamar  Dokter   "<<endl;
cout<<"========================================================================="<<endl;
for(i=1;i<=banyak;i++)
{
cout<<i<<"\t"<<sehat[i].nama<<"\t"<<sehat[i].penyakit<<"\t"<<sehat[i].lmrawat<<"\t "<<sehat[i].bykamar<<"\t"<<sehat[i].bydokter<<"\t\t"<<sehat[i].total<<endl;
}
cout<<"========================================================================="<<endl;
cout<<endl;
cout<<"Keterangan :"<<endl;
cout<<"0 berarti biaya kamar dan biaya dokter sesuai dengan kesepakatan antara pasien dengan pihak klinik"<<endl;
cout<<endl;
cout<<"Ingin input lagi [Y/T] :";cin>>lagi;
if(lagi=='y'||lagi=='Y')
{goto atas;
}
else
{goto bawah;
}
bawah:
getch();
}


Leave a Reply

Subscribe to Posts | Subscribe to Comments

- Copyright © SMK KORPRI BERKARYA - Devil Survivor 2 - Powered by Blogger - Designed by Johanes Djogan -