ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 07.08.2024
Просмотров: 29
Скачиваний: 0
void __fastcall TForm1::Edit17KeyPress(TObject *Sender, char &Key)
{
if (IsCharAlpha(Key) || Key=='.' || Key==',' || Key=='-') Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button20Click(TObject *Sender)
{
int a,b;
a=StrToInt(Edit17->Text);
b= podc(a);
Label32->Caption=b;
}
//---------------------------------------------------------------------------
Висновок: на лабораторних роботах ми навчилися створювати програмні продукти групою, коли кожен робить якусь певну працю та освіжили в памяті функції та звернення до функції!
