/*Deskripsi :*/
/*Pembuat :*/
/*Tanggal Buat :*/
#include
typedef struct
{ int isi[101]; /*penampung elemen tabel*/
int len; /*banyak elemen yang dipakai*/
}TabInt;
/*procedure Buat(output T:TabInt)*/
void Buat(TabInt *T);
/*procedure Entri(input/output T:TabInt, input N:integer)*/
void Entri(TabInt *T, int N);
/*procedure Cetak(input T:TabInt)*/
void Cetak(TabInt T);
/*procedur MaxSort (input/output T : TabInt)*/
void MaxSort(TabInt *T);
/*procedur MinSort (input/output T : TabInt)*/
void MinSort(TabInt *T);
void BubbleSort(TabInt *T);
main()
{ /*kamus*/
TabInt A;
clrscr();
Buat(&A);
Entri(&A,5);
Cetak(A);
MaxSort(&A);
printf("\nMaxSort");
Cetak(A);
MinSort(&A);
printf("\nMinSort");
Cetak(A);
BubbleSort(&A);
printf("\nBubbleSort");
Cetak(A);
getch();
}
/*BODY PROTOTIPE*/
void Buat(TabInt *T)
{ /*kamus lokal*/
int i;
/*algoritma*/
for(i=1;i<=100;i++)
{ (*T).isi[i] = 0;
}
}
void Entri(TabInt *T, int N)
{ /*kamus lokal*/
int i;
/*algoritma*/
(*T).len = N;
for(i=1;i<=(*T).len;i++)
{ printf("\nelemen ke-%d : ",i);
scanf("%d",&(*T).isi[i]);
}
}
void Cetak(TabInt T)
{ /*kamus lokal*/
int i;
/*algoritma*/
for(i=1;i<=(T).len;i++)
{ printf("\nelemen ke-%d = %d",i,(T).isi[i]);
}
}
void MaxSort(TabInt *T)
{ /*kamus lokal*/
int pass, i, imax, temp;
/*algoritma*/
for(pass=1;pass<=(*T).len-1;pass++)
{
imax = pass;
for(i=pass+1;i<=(*T).len;i++)
{ if ((*T).isi[i] > (*T).isi[imax])
imax = i;
}
temp=(*T).isi[pass];
(*T).isi[pass] = (*T).isi[imax];
(*T).isi[imax] = temp;
}
}
void MinSort(TabInt *T)
{ /*kamus lokal*/
int pass, i, imin, temp;
/*algoritma*/
for(pass=1;pass<=(*T).len-1;pass++)
{
imin = pass;
for(i=pass+1;i<=(*T).len;i++)
{ if ((*T).isi[i] < (*T).isi[imin])
imin = i;
}
temp=(*T).isi[pass];
(*T).isi[pass] = (*T).isi[imin];
(*T).isi[imin] = temp;
}
}
void BubbleSort(TabInt *T)
{ /*kamus lokal*/
int pass, i, temp;
/*algoritma*/
for(pass=1;pass<=(*T).len-1;pass++)
{
for(i=2;i<=(*T).len;i++)
{ if((*T).isi[i]< (*T).isi[i-1])
{ temp = (*T).isi[i];
(*T).isi[i]=(*T).isi[i-1];
(*T).isi[i-1]=temp;
}
}
}
}
Tidak ada komentar:
Posting Komentar