Посмотрел я твой код и заодним привёл в порядок. Скажу тебе одну вещь - этот код был написан по алгоритму, в котором нумерация элементов входного массива начиналась с 1, а не с 0. Тебе никто не мешает начинать заполнение массива с первого, а не с нулевого элемента. Пусть он там себе в памяти болтается и никому не мешает.
И ещё, если вдруг кто-то захочет переписать эту программу под массив с нумерацией с нуля, пусть обратит внимание на изменение значений переменной j, т.к. именно она отвечает за индексы.
| Код |
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include <stdio.h>
#include <dos.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
const n=7;
struct zap{
int key;
};
zap X[n];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int busort (zap X[])
{
int i,j,k,m,n1;
int path[20];
zap w,v;
n1=n-1;
for(m=n1/2;m>0;m--){
i=0;
j=m;
path[i]=j;
i++;
while(2*j<n1){
if(X[2*j+1].key<X[2*j].key){
j=j*2;
path[i]=j;
i++;
}else{
j=j*2+1;
path[i]=j;
i++;
}
}
if(2*j==n1){
j=n1;
path[i]=j;
i++;
}
i=m;
while((j>i)&& (X[j].key<X[i].key)){
j=j/2;
}
i=m;
v=X[path[0]];
k=0;
while(path[k]<j){
X[path[k]]=X[path[k+1]];
k++;
}
X[path[k]]=v;
}
for(m=n1;m>=2;m--){
w=X[1];
X[1]=X[m];
X[m]=w;
if(m!=2){
i=0;
j=1;
path[i]=j;
i++;
while((2*j)<(m-1)){
if(X[2*j+1].key < X[2*j].key){
j=j*2;
path[i]=j;
i++;
}else{
j=j*2+1;
path[i]=j;
i++;
}
}
if((2*j)==(m-1)){
j=m-1;
path[i]=j;
i++;
}
i=1;
while((j>i)&& (X[j].key<X[i].key)){
j=j/2;
}
i=1;
v=X[path[0]];
k=0;
while(path[k]<j){
X[path[k]]=X[path[k+1]];
k++;
}
X[path[k]]=v;
}
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int j,k,i;
X[0].key=100;
X[1].key=55;
X[2].key=8;
X[3].key=99;
X[4].key=9;
X[5].key=3;
X[6].key=1;
busort(X);
for(k=0;k<n;k++)
Form1->Memo1->Lines->Add(IntToStr(X[k].key)) ;
}
|
Добавлено через 5 минут и 15 секунд
А на Delphi ещё проще: пишешь
| Код |
X: array [1..N] of integer;
|
|
