ga程式碼.txt

這是一個GA的簡單程式碼

#include <vcl.h>
#pragma hdrstop
#include "Main.h"
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall
TForm1::TForm1(TComponent*
Owner)
: TForm(Owner)
{
}
void __fastcall
TForm1::sort_bubble(int data[],int
n,int sequence[])
{
int i,j,k,temp;
for(i=0;i<n-1;i++)
{
for(j=0;j<n-i-1;j++)
{
if(data[j]<
data[j+1])
{
temp=data[j];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
sequence[j+1]=temp;
}void
__fastcall
TForm1::bubble_sort_float(float
data[],int n,int sequence[])
}
else
if( data[j]==data[j+1])
{
if(sequence[j]>sequence[j+1])
{
temp=data[j];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
sequence[j+1]=temp;
sequence[j+1]=temp;
void
__fastcall
TForm1::sort_bubble_float(float
data[],int n,int sequence[])
{
int i,j,k,temp;
for(i=0;i<n-1;i++)
{
for(j=0;j<n-i-1;j++)
{
if(data[j]<
data[j+1])
temp=data[j];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
sequence[j+1]=temp;
}
else
if( data[j]==data[j+1])
{
if(sequence[j]>sequence[j+1])
{
temp=data[j];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
sequence[j+1]=temp;
{
int i,j,k,temp;
for(i=0;i<n-1;i++)
{
for(j=0;j<n-i-1;j++)
{
if(data[j]>
data[j+1])
{
temp=data[j];
}
else
if( data[j]==data[j+1])
if(sequence[j]>sequence[j+1])
temp=data[j];
data[j]=data[j+1];
data[j+1]=temp;
temp=sequence[j];
sequence[j]=sequence[j+1];
sequence[j+1]=temp;
str1="";
str2="";
str3="";
Memo1->Lines->Add("材
"+IntToStr(seq[i]+1)+"