Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / 2раб(тпспп) / К. В / main / UKr1
.cpp//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "UKr1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm11 *Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button1Click(TObject *Sender)
{
double a,b,c;
int k;
if((Edit1->Text).Length()==0 ||(Edit2->Text).Length()==0 ||(Edit3->Text).Length()==0 )
ShowMessage("Ви ввели не всі значення.Для роботи програми заповніть поля."); else{
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);
if(a>b){k=a;a=b;b=k;}
if(b>c){k=b;b=c;c=k;}
if(a>b){k=a;a=b;b=k;}
Memo1->Lines->Add("Сортування змінних за значенням:\r\n"+FloatToStrF(a,ffFixed,7,2)+"->"+FloatToStrF(b,ffFixed,7,2)+"->"+FloatToStrF(c,ffFixed,7,2));
}}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button2Click(TObject *Sender)
{
Edit1->Clear();Edit2->Clear();Edit3->Clear();Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button3Click(TObject *Sender)
{
Form11->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Edit1KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
return;
if (Key==VK_RETURN)
Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Edit2KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
return;
if (Key==VK_RETURN)
Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Edit3KeyPress(TObject *Sender, char &Key)
{
if (((Key>='0') && (Key<='9')) || (Key==VK_BACK) || (Key==',') || (Key=='-'))
return;
if (Key==VK_RETURN)
Button1->SetFocus();
Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Memo1KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------
Соседние файлы в папке main