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

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

#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int figure=0,sum=0,i,a,b,st,k;
  double n=10;
  k=StrToInt(Edit1->Text);
  for (i=0;i<k;i++)
  {
   a=b=i;
   while(a)
   { a/=10;figure++; }
   st = pow(n,figure-1);
    while(b)
    {
     sum += pow((double)(b/st),figure);
     b%=st; st/=10; }
  if(sum==i)
     Memo1->Lines->Add("Armstrong -->"+IntToStr(i));
     figure=0;
     sum=0;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
 Key=0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
 if((Key>='0') && (Key<='9')) {}
 else if(Key==8) {}
 else Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Memo1->Clear();
 Edit1->Clear();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Memo1->Clear();
}
//---------------------------------------------------------------------------