Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "амв.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
struct TStudent
{
AnsiString FIO;
int otc[3];
double srb;
};
TStudent Stud[100], st;
int nzap=-1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
nzap++;
Stud[nzap].FIO = Edit1->Text;
Stud[nzap].otc[0]=StrToInt(Edit2->Text);
Stud[nzap].otc[1]=StrToInt(Edit3->Text);
Stud[nzap].otc[2]=StrToInt(Edit4->Text);
Stud[nzap].srb=(Stud[nzap].otc[0] + Stud[nzap].otc[1] + Stud[nzap].otc[2]) / 3.0;
Memo1->Lines->Add(Stud[nzap].FIO + " " + IntToStr(Stud[nzap].otc[0]) + " "
+ IntToStr(Stud[nzap].otc[1]) + " " + IntToStr(Stud[nzap].otc[2]));
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->Add("\nResult");
for (int i=0; i<=nzap-1; i++)
for (int j=i+1; j<=nzap; j++)
if (Stud[i].srb>Stud[j].srb)
{
st= Stud[i];
Stud[i]= Stud[j];
Stud[j]=st;
}
for (int i=0; i<=nzap; i++)
if (Stud[i].srb>4.5)
Memo1->Lines->Add(Stud[i].FIO + " " + IntToStr(Stud[i].otc[0]) + " " +
IntToStr(Stud[i].otc[1]) + " " + IntToStr(Stud[i].otc[2]));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Memo1->Clear();
}
//---------------------------------------------------------------------------