Вот нашел свою реализацию подобного на Builder 6.0. Единственное, что здесь работа не с мемо, а с листбоксом! Меняете строки типа:
ListBox1->Items->Add(IntToStr(A[i]));
на строки типа:
Form1->Memo3->Lines->Add("выводим A[i]="+IntToStr(A[i]));
то есть отличие в Lines и в том, что нужно применить функцию IntToStr(этого вам должно хватить).
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i,t,j;
long int A[3500];
int min,min_p;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
for(i=0;i<3500;i++)
{A[i]=random(100);
ListBox1->Items->Add(IntToStr(A[i]));
}
ShowMessage("Масив из случайных чисел успешно сформирован!!!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
for(long int x=3500;x>0;x--)
{for(i=0;i<3500-1;i++)
{if(A[i]>A[i+1])
{t=A[i];
A[i]=A[i+1];
A[i+1]=t;
}
}
}
for(i=0;i<3500;i++)
ListBox2->Items->Add(IntToStr(A[i]));
ShowMessage("Сортировка масива из случайных чисел методом Пузырька прошел успешно!!!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
int i,j,min,pos,temp;
{for(i=0;i<3500-1;i++)
{min=A[i];
pos=i;
for(j=i+1;i<3500;i++)
if(A[j]<min)
{min=A[j];
pos=j;
}
temp=A[i];
A[i]=A[pos];
A[pos]=temp;
}
for(i=0;i<3500;i++)
ListBox3->Items->Add(IntToStr(A[i]));
}
ShowMessage("Сортировка масива из случайных чисел методом Выбора прошел успешно!!!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
exit(1);
}
//---------------------------------------------------------------------------</pre>