All mohon bantuannya ya

[JagoVB]

All mohon bantuannya untuk memperpendek coding saya ini ya



saya menggunakan dev c++



#include

#include

#include

#include

#include



void clrscr(void){

COORD coordScreen = { 0, 0 }; // sudut kiri atas

DWORD cCharsWritten;

DWORD dwConSize;

HANDLE hCon = GetStdHandle(STD_OUTPUT_HANDLE);

CONSOLE_SCREEN_BUFFER_INFO csbi;



GetConsoleScreenBufferInfo(hCon, &csbi);

dwConSize = csbi.dwSize.X * csbi.dwSize.Y;

// isi dg spasi

FillConsoleOutputCharacter(hCon, TEXT(' '), dwConSize, coordScreen, &cCharsWritten);

GetConsoleScreenBufferInfo(hCon, &csbi);

FillConsoleOutputAttribute(hCon, csbi.wAttributes, dwConSize, coordScreen, &cCharsWritten);

// cursor sudut kiri atas

SetConsoleCursorPosition(hCon, coordScreen);

}



int acakdata(int jml,int x[101]){

int i;



srand((unsigned)time(NULL));



for(i=0;i100 || jml