И-12б(8) / 10 / 7 / Unit1

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

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int lenght=0;
double* mas=NULL;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)

{
}
void zapmas(double *a, int len)
{
*a= 1.029619417;
for (int i=1; i<len; i++)
*(a+i) = -*(a+i-1)*1.184062330+1.235543300;
}



void sort1(double *s1, int len1)
{
bool* ptm=new bool;
		*ptm=true;
		double *tmp= new double;
	while (*ptm)
		{
			*ptm=false;
			for(int j=0;j<lenght-1;j++)
			{
				if (*(s1+j)>*(s1+j+1))
				{
				 *tmp=*(s1+j);
				 *(s1+j)=*(s1+j+1);
				 *(s1+j+1)=*tmp;
				 *ptm=true;
				}
			}
		}
		delete ptm;
		delete tmp;
                 }



void vivod(double *mas3)
                {
for(int i=0; i<lenght;i++)
Form1->Memo1->Lines->Add(FloatToStr(mas3[i]));
                }

void sort2(double s2[],int len2)
{
bool* ptm=new bool;
		*ptm=true;
		double *tmp= new double;
	while (*ptm)
		{
			*ptm=false;
			for(int j=0;j<lenght-1;j++)
			{
				if (*(s2+j)<*(s2+j+1))
				{
				 *tmp=*(s2+j);
				 *(s2+j)=*(s2+j+1);
				 *(s2+j+1)=*tmp;
				 *ptm=true;
				}
			}
		}
		delete ptm;
		delete tmp;
                 }




void diap(double *d, int n)
{
int k=0;
 int b=0;
 double *C=new double[n];
 for (int i = 0; i<n; i++)
 {
  if (d[i]>-0.4 && d[i]<2.32)
   {
	C[k]=d[i];
	k++;
   }
   else
   {
	C[n-b-1]=d[i];
	b++;
}
}
  for (int i = 0; i<n; i++)
  Form1->Memo1->Lines->Add(FloatToStr(C[i]));
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (RadioButton1->Checked)
		{
		lenght=StrToInt(Edit1->Text)  ;
		if (mas!=NULL)
			delete []mas;
		mas= new double [lenght]     ;


		zapmas(mas, lenght);
		vivod(mas);
		}
		if (RadioButton2)
		{
                if (CheckBox2->Checked)
                {
		sort2 (mas, lenght) ;
		vivod(mas);
                }
		if (CheckBox1->Checked)
		{
		sort1 (mas, lenght) ;
		vivod(mas);
		}
                }
		if (RadioButton3->Checked)
		{
		diap (mas, lenght);
}
}
//---------------------------------------------------------------------------