Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТПСПП / PR_8 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
void sort(void);
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

int A[10],i,n;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 randomize();
 for(i=0;i<10;i++)
 {
  A[i]=random(50);
  Memo1->Text=Memo1->Text+A[i]+' ';
 }
 Memo1->Lines->Add("");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 int verh=0,niz=9,sred,found=0;;
 n=StrToInt(Edit1->Text);
 sort();
 while(verh<=niz)
 {
  sred=((niz-verh)/2)+verh;
  if(A[sred]==n)
  {
   found=1;
   Memo1->Lines->Add("Індекс--->"+IntToStr(sred));
  }
  if(n<A[sred])
  niz=sred-1;
  else
  verh=sred+1;
 }
 if(found!=1)
 Memo1->Lines->Add("Не найдено!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Memo1->Clear();
  Edit1->Clear();
}
//---------------------------------------------------------------------------

void sort(void)
{
 int j,temp;
 for(i=0;i<10-1;i++)
 for(j=0;j<10-1;j++)
 {
  if(A[j]>A[j+1])
  {
   temp=A[j];
   A[j]=A[j+1];
   A[j+1]=temp;
  }
 }
 for(i=0;i<10;i++)
 {
  Form1->Memo1->Text=Form1->Memo1->Text+A[i]+' ';
 }
}