# define LENGTH 50
# define printdata
Void BinSort (int r [], int n)
{
Int I, j, low, high, m;
for(i=2; i
R [0]=r [I];
Low=1;
High=I - 1;
While (low<=high)
{
M=+ high (low)/2;
If (r [0]
The else
Low=m + 1;
}
For (j=I - 1; j>=high + 1; - j)
R=r [m + 1] [j];
R=r [0] [high + 1];
}
Printdata (r, n);
}
Void main ()
{
Int r [LENGTH + 1]=,2,5,3,6,9,7,8,10 {1};
Int r1 [LENGTH + 1];
Int I, n=LENGTH + 1;
for(i=0; i
Printf (" BinSort output: ");
BinSort (r1, n);
}
Why couldn't run the digital results ~
CodePudding user response:
Here is the Delphi ahCodePudding user response:
Because your code without output