Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТСПП / 3 Л.р / 3 / 2 / Unit1
.cpp#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Memo1->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
Memo1->Hide();
Edit1->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a,d,sum,buf,k,ost;
try
{
a=StrToInt(Edit1->Text);
}
catch(EConvertError &e)
{
ShowMessage("Ошибка! Можно вводить только комбинации цифр от 0 до 9!");
return;
}
Memo1->Clear();
if(a>=0)
{
buf=a;
sum=0;
while (buf!=0)
{
d=buf%10;
sum=sum+d;
buf=buf/10;
}
k=0;
ost=0;
while(a>0)
{
a=a-sum;
if(a<0) ost=a+sum;
if(a<0) break;
k++;
}
Memo1->Show();
Memo1->Lines->Add("Сумма цифр="+IntToStr(sum)+";");
Memo1->Lines->Add("Количество вычитаний суммы цифр от числа (без остатка)="+IntToStr(k)+";");
if(ost!=0)
Memo1->Lines->Add("Остаток = "+IntToStr(ost)+".");
}
else ShowMessage("Вводите корректные числа >= 0!");
}
//---------------------------------------------------------------------------
Соседние файлы в папке 2