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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include<stdio.h>
#include<math.h>
int i;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int k,c=0;
  int A[15];
  for(i=0;i<15;i++)
 {
  A[i]=rand()%20;
  StringGrid1->Cells[i][0]=A[i];
 }
 for (int i=0; i<15; i++)
 {
  for (int k=1; k<15; k++)
  {
   if ((k%2!=0) && (sqrt(double(A[i]))==k))
   c++;
  }
 }
 Edit1->Text=IntToStr(c);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if( SaveDialog1 ->Execute())
 {
  TStringList *tsl=new TStringList;
  for(int i=0;i<15;i++)
  {
   tsl->AddStrings(StringGrid1->Rows[i]);
  }
  tsl->SaveToFile(SaveDialog1->FileName);
  delete tsl;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 for(i=0;i<15;i++)
 { StringGrid1->Cells[i][0]=""; }
 Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  int k=1;
  int A[15];
  for(i=0;i<15;i++)
 {
  A[i]=rand()%100;
  StringGrid2->Cells[i][0]=A[i];
 }
 for(i=0;i<15;i++)
 {
  if(i%2!=0 && (abs(A[i])>abs(k)))
  k=A[i];
 }
 Edit2->Text=IntToStr(k);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 if( SaveDialog1 ->Execute())
 {
  TStringList *tsl=new TStringList;
  for(int i=0;i<15;i++)
  {
   tsl->AddStrings(StringGrid2->Rows[i]);
  }
  tsl->SaveToFile(SaveDialog1->FileName);
 delete tsl;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  for(i=0;i<15;i++)
 { StringGrid2->Cells[i][0]=""; }
 Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
 int k,c;
 int A[15];
 for(i=0;i<15;i++)
 {
  A[i]=rand()%100;
  StringGrid5->Cells[i][0]=A[i];
 }
  k=A[0]; c=A[14];
  Edit3->Text=IntToStr(abs(k-c));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
 if( SaveDialog1 ->Execute())
 {
  TStringList *tsl=new TStringList;
  for(int i=0;i<15;i++)
  {
   tsl->AddStrings(StringGrid5->Rows[i]);
  }
  tsl->SaveToFile(SaveDialog1->FileName);
  delete tsl;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
 for(i=0;i<15;i++)
 { StringGrid5->Cells[i][0]=""; }
 Edit3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
 for(i=0;i<15;i++)
 {
  StringGrid3->Cells[i][0]="";
  StringGrid4->Cells[i][0]="";
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
 if( SaveDialog1 ->Execute())
 {
  TStringList *tsl=new TStringList;
  for(int i=0;i<15;i++)
  {
   tsl->AddStrings(StringGrid3->Rows[i]);
  }
  tsl->SaveToFile(SaveDialog1->FileName);
 delete tsl;
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button13Click(TObject *Sender)
{
 if( SaveDialog1 ->Execute())
 {
  TStringList *tsl=new TStringList;
  for(int i=0;i<15;i++)
  {
   tsl->AddStrings(StringGrid4->Rows[i]);
  }
  tsl->SaveToFile(SaveDialog1->FileName);
  delete tsl;
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
 int j,k,n=15;
 int A[15];
 for(i=0;i<15;i++)
 {
  StringGrid3->Cells[i][0]="";
  StringGrid4->Cells[i][0]="";
 }
 for(i=0;i<n;i++)
 {
  A[i]=rand()%40;
  StringGrid3->Cells[i][0]=A[i];
 } i=2;

 while(i<=n)
 {
  for (j=0;j<i-1;j++)
  if(A[i]==A[j])
  { n--;
  for(k=i;k<n;k++)
  A[k]=A[k+1];
  i++;
  break; }
  i++; }
  for(i=0;i<n;i++)
 {
  StringGrid4->Cells[i][0]=A[i];
 }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------