Home disini
widget by sy@ms

Latest Posts

Program Array Dua Dimensi Dengan Prosedure

Sebelumnya ane dah posting tentang Program bubble sort dan searching pada array dua dimensi. Bagai mana program tersebut jika dibuat dengan prosedure, nah ane dah buat programnya tapi ane buat di Visual C++ 2008, sobat tinggal menyesuikan aja ok.
Tancap gan ke TKP...



#include "stdafx.h"
#include "conio.h"
#include "stdlib.h"


int i, j, bantu, tukar, pindah, carix;
const int baris=10, kolom=3;
int data[baris][kolom];




void tampil()
{
for(i=0; i<baris; i++)
{
printf("\t ± ");
for(j=0; j<kolom; j++)
{
printf(" %-3d ", data[i][j]);
}
printf(" ± ");
printf("\n");
}
}

void sorting()
{
//---------------------------------- sorting kolom pertama
for(i=1; i<baris; i++)
{
for(j=baris-1; j>=i; j--)
{
if(data[j][0]<data[j-1][0])
{
for(int k=0; k<kolom; k++)
{
tukar = data[j][k];
data[j][k] = data[j-1][k];
data[j-1][k] = tukar;
}
}
}
}

//---------------------------------- sorting baris ke 2 dan 3
for(i=0; i<baris; i++)
{
for(int k=2; k<kolom; k++)
{
for(int kl=kolom-1; kl>=k; kl--)
{
if(data[i][kl]<data[i][kl-1])
{
pindah = data[i][kl];
data[i][kl] = data[i][kl-1];
data[i][kl-1] = pindah;
}
}
}
}
printf(" \n\n ");
printf("Sorting selesai!!! \n\n");
}

void pencarian()
{
for(i=0; i<baris; i++)
{
for(j=0; j<kolom; j++)
{
if(data[i][j]==carix)
{
printf(" Data di temukan pada araay [%d][%d] \n", i, j);
bantu = carix;
}
}
}
if(bantu!=carix)
{
printf(" Data tidak ditemukan \n\n");
}

}

void cari3data()
{
int cari[3];
for(int cr=0; cr<3; cr++)
{
printf(" Cari data pada kolom %d : ", cr+1); scanf("%d", &cari[cr]);
}

for( i=0; i<baris; i++)
{
if(data[i][0]==cari[0] && data[i][1]==cari[1] && data[i][2]==cari[2])
{
bantu = i; break;
}
}

if(bantu==i)
{
printf(" Data ditemukan \n\n");
}
else
{
printf(" Data tidak ditemukan \n\n");
}
}





void main()
{
int key;

data[0][0]=10; data[0][1]=8; data[0][2]=12;
data[1][0]=3; data[1][1]=6; data[1][2]=10;
data[2][0]=15; data[2][1]=7; data[2][2]=5;
data[3][0]=20; data[3][1]=12; data[3][2]=14;
data[4][0]=7; data[4][1]=14; data[4][2]=21;
data[5][0]=5; data[5][1]=6; data[5][2]=7;
data[6][0]=1; data[6][1]=10; data[6][2]=20;
data[7][0]=25; data[7][1]=15; data[7][2]=5;
data[8][0]=6; data[8][1]=8; data[8][2]=3;
data[9][0]=18; data[9][1]=9; data[9][2]=3;

do
{
system("CLS");
printf("\n\n");
printf(" Data : \n\n");
tampil();

printf(" \n\n");
printf(" Pilihan : \n");
printf(" [1] Sorting data \n");
printf(" [2] Pencarian 3 data \n");
printf(" [3] Pencarian lokasi data \n");
printf(" [4] Exit \n");
printf(" Masukan pilihan anda : ");scanf("%d", &key);

switch(key)
{
case 1 : system("CLS");
{
sorting();
printf(" Hasil data : \n\n");
tampil();
getch();
}break;
case 2 :
{
printf("\n Pencarian pada baris yang sama \n");
cari3data();
getch();
}break;
case 3 :
{
printf("\n Pencarian lokasi data \n");
printf(" Masukan data yang ingin di cari : "); scanf("%d", &carix);
pencarian();
getch();
}break;
case 4 : system("CLS");break;
default :
{
printf("\n pilihan salah \n");
getch();
}break;
}
}
while(key !=4);
}




Woke, Semoga bermanfaat,
Salam senyum dariku........




Salam senyum dariku untuk semuanya, tetaplah untuk bersemangat. Jangan lupa Comment atau isi buku tamu ya sob. Sedikit pemberitahuan untuk sobat yang ingin mengambil [Copy-Paste], Owner tidak melarang sobat untuk memperbanyak artikel namun Owner berharap sobat berlaku dengan bijak agar mencantumkan link active maupun yang tidak. Owner berharap partisipasinya ya sob.



0 komentar:

Jam Sekarang
Tanggal
Salam Sapa :
Status Blogging :

*ket. status : Terjadwal : Berarti yang punya blog tidak bisa berinternet [ More... ]





sy@ms
skyNET program


Join the conversation for skyNET program

 
 free web counter Counter Powered by  RedCounter

© 2011 || Copyright by sy@ms || Thanks for skyNET program All Reserved

Technology Blogs TopOfBlogs Top Blogs Internet Internet Blogs Phil Backlink Display Pagerank
Yahoo bot last visit powered by MyPagerank.Net
USA Backlinks Free Backlinks Service at USABacklinks.com! Auto Backlink Gratis Indonesia : Top Link Indo My Ping in TotalPing.com ping fast  my blog, website, or RSS feed for Free