Sorting dalam Borland C++

Ok. Langsung saja copy listing di bawah ini dan lihat hasilnya :


#include "conio.h"
#include "stdio.h"

int main()
{

int i, j, iMin;
int n, Urut;
int Tmp, code;
int Arr[100];
do {


printf("=====================================\n");
printf("| Pilihan Program Sorting |\n");
printf("=====================================\n");
printf("| 1. Selection Sorting (Ascending) |\n");
printf("| 2. Selection Sorting (Descending) |\n");
printf("| 3. Bubble Sorting (Ascending) |\n");
printf("| 4. Bubble Sorting (Descending) |\n");
printf("| 5. Insertion Sorting (Ascending) |\n");
printf("| 6. Insertion Sorting (Descending) |\n");
printf("| 7. Keluar . . . |\n");
printf("=====================================\n\n");
printf("Masukan Pilihan Anda : ");
scanf("%d", &code);
switch (code) {

case 1 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
Urut = 1;
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 0; i < n - 1; i++) {
iMin = i;
for(j = Urut; j < n; j++) {
if(Arr[j] < Arr[iMin]) {
iMin = j;
if(Arr[i] != Arr[iMin]) {
Tmp = Arr[i];
if(Arr[i] > Arr[iMin]) {
Arr[i] = Arr[iMin];
Arr[iMin] = Tmp;
}
}
}
}
Urut = Urut + 1;
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}
getch();
break;


case 2 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
Urut = 1;
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 0; i < n - 1; i++) {
iMin = i;
for(j = Urut; j < n; j++) {
if(Arr[j] > Arr[iMin]) {
iMin = j;
if(Arr[i] != Arr[iMin]) {
Tmp = Arr[i];
if(Arr[i] < Arr[iMin]) {
Arr[i] = Arr[iMin];
Arr[iMin] = Tmp;
}
}
}
}
Urut = Urut + 1;
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}
getch();
break;

case 3 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 1; i < n; i++) {
for(j = 0; j < n - 1; j++) {
if(Arr[j] > Arr[j + 1]) {
Tmp = Arr[j];
Arr[j] = Arr[j + 1];
Arr[j + 1] = Tmp;
}
}
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}

getch();
break;

case 4 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 1; i < n; i++) {
for(j = 0; j < n - 1; j++) {
if(Arr[j] < Arr[j + 1]) {
Tmp = Arr[j];
Arr[j] = Arr[j + 1];
Arr[j + 1] = Tmp;
}
}
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}
getch();
break;

case 5 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 1; i < n; i++) {
Tmp = Arr[i];
j = i - 1;
while(Arr[j] >= Tmp && j > 0) {
Arr[j + 1] = Arr[j];
j = j - 1;
}
if(Tmp >= Arr[j]) {
Arr[j + 1] = Tmp;
} else {
Arr[j + 1] = Arr[j];
Arr[j] = Tmp;
}
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}
getch();
break;

case 6 :
printf("\nInputkan banyak data yang akan diurutkan : ");
scanf("%i", &n);
for(i = 0; i < n; i++) {
printf("Input data ke %i : ", i + 1);
scanf("%i", &Arr[i]);
}
for(i = 1; i < n; i++) {
Tmp = Arr[i];
j = i - 1;
while(Arr[j] <= Tmp && j > 0) {
Arr[j + 1] = Arr[j];
j = j - 1;
}
if(Tmp <= Arr[j]) {
Arr[j + 1] = Tmp;
} else {
Arr[j + 1] = Arr[j];
Arr[j] = Tmp;
}
}
printf("\nSetelah Pengurutan\n");
for(i = 0; i < n; i++) {
printf("Elemen ke %i : %i\n", i + 1, Arr[i]);
}
getch();
break;


default : {
printf("\nSilahkan Tekan Enter Untuk Keluar . . . "); }}

} while(code >=1 && code <= 6);
getch();
}

Structure dalam Borland C++

Penjelasan :

“Structure digunakan untuk mengelompokkan sejumlah data yang mempunyai tipe data yang mempunyai tipe data yang berbeda. Variable-variable yang membentuk sebuah struktur dinamakan elemen struktur”

Struct nama_tipe_structure

{

                Elemen_structure;

} nama_tipe_structure;

Contoh:

#include <conio.h>

#include <stdio.h>

#include <iostream.h>

#include <iomanip.h>

char ket(float n);

main()

{

int i,j;

char k;

struct

{

char nim[12];

char nama[15];

float nilai;

}

mhs[5];

clrscr();

cout<<"Jumlah Data Yang Ingin di Input :"; cin>>j;

for (i=1; i<=j; i++)

                {

   cout<<"Data Ke-"<<i<<endl;

   cout<<"Masukkan Nim :"; cin>>mhs[i].nim;

   cout<<"Masukkan Nama:";cin>>mhs[i].nama;

   cout<<"Masukkan Nilai Akhir :"; cin>>mhs[i].nilai;

   cout<<endl<<endl;

   }

clrscr();

cout<<"No  NIM       Nama      Nilai Akhir     Keterangan"<<endl;

cout<<"--------------------------------------------------"<<endl;

 for (i=1; i<=j; i++)

                {

   cout<<setiosflags(ios::left)<<setw(4)<<i;

   cout<<setiosflags(ios::left)<<setw(10)<<mhs[i].nim;

   cout<<setiosflags(ios::left)<<setw(17)<<mhs[i].nama;

   cout<<setprecision(2)<<"  "<<mhs[i].nilai; cout<<" ";

   k=ket(mhs[i].nilai);

   cout<<setiosflags(ios::left)<<setw(17)<<k<<endl;

   cout<<endl;

   }

getch();

}

char ket (float n)

{

                if (n>65)

                return 'L';

      else

      return 'G';

}

Latihan Mandiri 1 Structure

#include <conio>

#include <stdio>

#include <iostream>

#include <string>

#include <iomanip>

garis()

{cout<<"---------------------------------------------------------------------------"<<endl;}

double potongan( char askes, long int biaya)

{ if (toupper(askes)=='Y')

   return (biaya*0.15) ;

   else

   return 0 ;

}

main()

{

char lagi;

int jp,i;

long int grand=0;

struct

{ char nama[10],waktu[5],*dokter,*jam,spesialis[5], askes;

  long int biaya, total;

} rs[2];

awal:

clrscr();

cout<<"\tRUMAH SAKIT \"SEMOGA WARAS\""<<endl;

garis();

cout<<"\tForm Pendaftaran"<<endl<<endl;

cout<<"Masukkan Jumlah Pasien:";cin>>jp;

cout<<endl<<endl;

for (i=1;i<=jp;i++)

{

                cout<<"Data Ke-"<<i<<endl;

   cout<<"Nama Pasien:";cin>>rs[i].nama;

   cout<<"Waktu Berobat[Pagi|Sore]:";cin>>rs[i].waktu;

   cout<<"Pilih Spesialis[THT|Anak]:";cin>>rs[i].spesialis;

   cout<<"Askes[Y|T]:";cin>>rs[i].askes;

                if (!strcmp(rs[i].waktu,"PAGI")||!strcmp(rs[i].waktu,"pagi"))

      {

                                if  (!strcmp(rs[i].spesialis,"THT")||!strcmp(rs[i].spesialis,"tht"))

            {

               rs[i].dokter="dr. Yuza";

               rs[i].jam="07.45-15.15";

               rs[i].biaya=65000;

            }

            else if  (!strcmp(rs[i].spesialis,"Anak")||!strcmp(rs[i].spesialis,"anak"))

            {

               rs[i].dokter="dr. Hilda";

               rs[i].jam="07.00-15.00";

               rs[i].biaya=80000;

            }

       }

       else   if (!strcmp(rs[i].waktu,"SORE")||!strcmp(rs[i].waktu,"sore"))

      {

                                if  (!strcmp(rs[i].spesialis,"THT")||!strcmp(rs[i].spesialis,"tht"))

            {

               rs[i].dokter="dr. Deanda";

               rs[i].jam="18.30-21.30";

               rs[i].biaya=75000;

            }

            else if  (!strcmp(rs[i].spesialis,"Anak")||!strcmp(rs[i].spesialis,"anak"))

            {

               rs[i].dokter="dr. Andini";

               rs[i].jam="17.25-22.00";

               rs[i].biaya=90000;

            }

       }

     rs[i].total=rs[i].biaya-potongan(rs[i].askes,rs[i].biaya);

     grand=grand+rs[i].total;

}

clrscr();

cout<<"Bukti Pendaftaran"<<endl;

cout<<"RUMAH SAKIT \"SEMOGA WARAS\""<<endl<<endl;

garis();

cout<<"|No |  Nama   |   Nama     |   Jam    |    Biaya   | Potongan | Total |"<<endl;

cout<<"|   | Pasien  |  Dokter    |          |    Dokter  |          |       |"<<endl;

garis();

cout<<endl;

for (i=1;i<=jp;i++)

{

                cout<<setiosflags(ios::left)<<setw(6)<<i<<"|";

   cout<<setiosflags(ios::left)<<setw(9)<<rs[i].nama<<"|";

   cout<<setiosflags(ios::left)<<setw(10)<<rs[i].dokter<<"|";

   cout<<setiosflags(ios::left)<<setw(14)<<rs[i].jam<<"|";

   cout<<setprecision(14)<<" "<<rs[i].biaya<<"|";

   cout<<setprecision(14)<<"      "<<potongan(rs[i].askes, rs[i].biaya)<<"|";

   cout<<setprecision(14)<<"      "<<rs[i].total<<"|";

   cout<<endl;

}

garis();

cout<<"                              Grand Total=Rp."<<grand;

cout<<endl<<endl;

garis();

cout<<"Input Data Lagi [Y/T]:";cin>>lagi;

if (toupper(lagi)=='Y')

                goto awal;

else

                goto akhir;

akhir:

getch();

}

Planet Gliese 581d Dipastikan Layak Huni

 Gliese 581d, sebuah planet bebatuan raksasa yang mengitari sebuah bintang red dwarf (bintang dengan massa lebih rendah dibanding Matahari dan bersuhu di bawah 4000 derajat Kelvin) dikonfirmasi sebagai planet pertama yang memenuhi persyaratan mampu menampung kehidupan.

Planet yang berjarak sekitar 20 tahun cahaya dari Bumi ini merupakan salah satu tetangga terdekat planet kita. Ia diperkirakan bersuhu cukup hangat dan cukup basah untuk menumbuh kembangkan kehidupan serupa yang dimiliki planet Bumi.

Gliese 581d mengorbit di zona Goldilocks (kawasan di mana kehidupan dimungkinkan terbentuk) milik bintang Gliese 581. Seperti diketahui, di Goldilocks zone, temperatur tidak terlalu panas sehingga menyebabkan air mendidih ataupun tidak terlalu dingin hingga membuatnya membeku namun  berada di suhu yang tepat agar air tetap dalam bentuk cair.

“Dengan atmosfir yang padat akan karbon dioksida, yang merupakan skenario paling memungkinkan untuk planet berukuran raksasa, iklim di Gliese 581d stabil dan cukup hangat untuk memiliki samudera, awan, dan curah hujan,” kata peneliti National Centre for Scientific Research (CNRS).

Dikutip dari Daily Galaxy, 19 Mei 2011, menurut penelitian yang dipublikasikan diAstrophysical Journal Letters, Gliese 581d memiliki massa setidaknya 7 kali lipat dibanding Bumi berukuran sekitar 2 kali lipat planet Bumi. 

                          

       KASIH

Meskipun aku dapat berkata-kata dengan semua bahasa manusia dan bahasa malaikat,

tetapi jika aku tidak mempunyai kasih,

aku sama dengan gong yang berkumandang dan canang yang gemerincing.

Sekalipun aku mempunyai karunia untuk bernubuat dan aku mengetahui segala rahasia dan memiliki seluruh pengetahuan dan sekalipun aku memiliki iman yang sempurna untuk memindahkan gunung,

tetapi jika aku tidak mempunyai kasih,

aku sama sekali tidak berguna.

Dan sekalipun aku membagi-bagikan segala sesuatu yang ada padaku,

bahkan menyerahkan tubuhku untuk dibakar,

tetapi jika aku tidak mempunyai kasih,

sedikitpun tidak ada faedahnya bagiku.

Kasih itu sabar,

kasih itu murah hati,

ia tidak cemburu.

Ia tidak memegahkan diri dan tidak sombong.

Ia tidak melakukan yang tidak sopan dan tidak mencari keuntungan diri sendiri.

Ia tidak pemarah dan tidak menyimpan kesalahan orang lain.

ia tidak bersuka cita karena ketidakadilan,

tetapi karena kebenaran.

Ia menutupi segala sesuatu,

percaya segala sesuatu,

mengharapkan segala sesuatu,

sabar menanggung segala sesuatu.

Kasih tidak berkesudahan,

nubuat akan berakhir,

bahasa roh akan berhenti,

pengetahuan akan lenyap.

Sebab pengetahuan kita tidak lengkap dan nubuat kita tidak sempurna.

Tetapi jika yang sempurna tiba, maka yang tidak sempurna itu akan lenyap.

Ketika aku kanak-kanak, aku berkata-kata seperti kanak-kanak, aku merasa seperti kanak-kanak, aku berpikir seperti kanak-kanak. Sekarang sesudah aku menjadi dewasa, aku meninggalkan sifat kanak-kanak itu.

Karena sekarang kita melihat dalam cermin suatu gambaran yang samar-samar, tetapi nanti kita akan melihat muka dengan muka. Sekarang aku hanya mengenal dengan tidak sempurna, tetapi nanti aku akan mengenal dengan sempurna, seperti aku sendiri dikenal.

Demikianlah tinggal ketiga hal ini, yaitu iman, pengharapan dan kasih, dan yang paling besar di antaranya ialah kasih.

KASIH ALLAH TIDAK BERSYARAT

Suatu hari aku melihat Bapa sedang melamun di takhta-Nya. Aku menghampiri-Nya dan pelan-pelan aku bertanya kepada-Nya, "Bapa, apa yang sedang Kau pikirkan ?"

Bapa menoleh ke arahku, dan Ia tersenyum, lalu Ia berkata dengan lembut, "Tidak ada, Nak. Aku hanya sedang memikirkan manusia."

"Manusia ? Ada apa dengan mereka ?" tanyaku

"Tahukah kau bahwa Aku sangat mengasihi manusia ?" ujar-Nya,

"Iya, aku tahu itu. Apa hubungannya Tuhan ?"

"Aku mengasihi manusia sedemikian, sehingga Aku merelakan Anak-Ku terkasih, Yesus Kristus untuk turun ke bumi, menderita, dihina, dan akhirnya mati bagi mereka."

"Iya, itu adalah karya penebusan yang sangat indah."

"Tapi...."

Ups..., ada nada sedih di suara-Nya.

"Tapi, mengapa manusia masih juga meragukan kasih-Ku ?"

Aku terdiam, aku tidak dapat menjawab pertanyaan-Nya, karena aku pun tidak tahu...

"Hari ini, ada satu anak-Ku, dia menangisi dosanya, dia memohon pengampunanKu, Aku mengampuninya, Aku mengatakan bahwa Aku sudah tidak mengingat-ngingat lagi dosa yang ia buat, tapi...."

"Tapi kenapa Tuhan ?"

"Saat Aku berkata demikian, ia menggelengkan kepalanya, ia berkata, tidak akan ada pengampunan lagi atas dosa yang ia perbuat, ia sudah terlalu sering jatuh bangun dalam dosa, ia mengatakan bahwa ia membenci dirinya..."

Aku diam, menantikan Tuhan.

"Kenapa ia memandang hina dirinya ? Padahal dia adalah biji mata-Ku, kekasih hati-Ku. Darah Yesus sudah tercurah untuknya, Aku sudah mengampuninya, tapi ia tidak Percaya. Aku berkata Aku sudah melupakan semua dosanya, tapi ia berkata tidak mungkin. Mengapa ia memandang rendah pengorbanan Yesus di kayu salib ?"

"Apa ? Memandang rendah pengorbanan Yesus di kayu salib ?" Aku terkejut, adakah orang yang seperti itu ?  "Bagaimana mungkin ia memandang rendah pengorbanan Yesus ?"

"Darah Yesus tercurah di Kalvari untuk menebus dosa manusia, hukuman yang seharusnya ditimpakan kepada manusia sudah diambil alih oleh-Nya, sehingga manusia dapat memperoleh keselamatan di dalam Dia, tapi manusia merasa tidak yakin bahwa apa yang telah Dia lakukan sanggup menebus mereka dari maut, mereka tidak yakin dengan karya penebusan yang telah dilakukan oleh Yesus."

Tanpa sadar, aku menangis, aku membayangkan, seandainya aku sudah memberikan hadiah yang terbaik yang bisa aku lakukan untuk orang yang aku kasihi, tapi ternyata hadiah itu dianggap rendah, diacuhkan dan dibuang begitu saja. Kira-kira, apakah masih tersisa kasih dalam hatiku untuk mengasihi orang itu ? Kalau itu aku, mungkin aku tidak akan mengasihi orang itu lagi.

"Lalu Tuhan, apakah sekarang Engkau masih mengasihi manusia ?"

"Ya, Aku sangat mengasihi manusia !"

Aku terkejut ! Sedemikian dalamkah kasih Allah untuk manusia ?

"Walaupun mereka seperti itu ?" tanyaku

"Ya, Aku rindu suatu hari mereka akan datang kepada-Ku dan mengatakan bahwa mereka mengasihi-Ku."

Aku masih terheran-heran. Siapakah manusia sehingga Allah, Sang Pencipta langit dan bumi begitu mengasihinya ? Bukankah mereka hanyalah debu dan abu ? Bukankah jika Tuhan mau, Tuhan bisa dengan mudah menghancurkan manusia dan membuat yang lebih baik ? Aku rasa hal itu tidak sulit untuk Tuhan, bukankah Ia menciptakan langit dan bumi hanya dengan perkataan saja ? Hal seperti ini sangat sulit untuk diterima, mengapa Tuhan sampai sedemikian dalam mengasihi manusia ?

Aku memberanikan diriku, aku bertanya lagi kepada Tuhan, "Tuhan, sungguhkan Engkau mengasihi manusia ?"

Tuhan tersenyum, dan Ia berkata, "Sangat, Aku sangat mengasihi manusia. Jika tidak, Aku tidak akan mengutus Anak-Ku Yesus untuk mati bagi mereka. Sekalipun mereka sekarang jauh dari-Ku, Aku sangat rindu mereka kembali kepada-Ku. Karena mereka adalah anak-anak-Ku terkasih."

Mendengar jawaban Tuhan aku tersenyum. Aku mengerti kenapa Tuhan tetap mengasihi manusia...., Tuhan memiliki kasih yang tidak bersyarat !

Tiba-tiba terdengar suara dari bumi. Suara yang perlahan dan terdengar sedih, tapi suara itu tetap menarik perhatian Allah.

"Tuhan, aku tahu aku seringkali melukai hatiMu. Aku sering jatuh bangun dalam dosa. Aku kadang merasa benci dan jijik terhadap diriku sendiri, karena dosa-dosa yang aku perbuat. Tapi aku percaya, darah Yesus menebus aku seluruhnya dan sepenuhnya. Aku tahu aku adalah ciptaan baru sekarang. Aku percaya Tuhan mengasihi aku sebagaimana adanya aku. Ampuni aku Tuhan, aku benci dosa-dosaku. Aku ingin hidupku menyenangkanMu, aku mengasihiMu Tuhan."

Saat doa itu diucapkan, aku melihat senyum di wajah Tuhan berubah menjadi tawa sukacita, Ia sangat bahagia, karena saat itu, ada satu anakNya yang terhilang kembali kepadaNya, dan ia berkata kepada para malaikat,

"Bersukacita dan bergembiralah, karena anak-Ku ini telah mati dan menjadi hidup kembali, ia telah hilang dan didapati kembali."

Aku tidak tahu, dosa apa yang kamu perbuat, aku tidak tahu berapa lama kamu tinggal dalam dosa. Tapi aku tahu satu hal, Bapa di Surga mengasihimu, dan tangan-Nya terbuka menunggumu pulang. Kembalilah, jangan biarkan Ia menunggu terlalu lama. Yesus mengasihimu !