«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша

1 ... 35 36 37 38 39 40 41 42 ... 63

float a[100];

int Elem_sani=0;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---Орындау батырмасының коды ----------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

float max=a[0];

float min=a[0];

if (Edit1->Text=="")

{ShowMessage("Massiv elementterinin sanin beriniz");

Edit1->SetFocus();}

if (CheckBox1->Checked == True) //max элементті табу

{for (int i=0;i

if (a[i]>max) max=a[i];

}

Edit2->Text=FloatToStrF(max,ffFixed,5,2);

}

if (CheckBox2->Checked == True) //min элементті табу

{for (int i=0;i

if (a[i]Edit3->Text=FloatToStrF(min,ffFixed,5,2);

}

if (CheckBox3->Checked == True)

for(int i=0;i{ max=a[i]; int Nmax=i;

for(int j=i;j
if (a[j]>max) {max=a[j]; Nmax=j;}

a[Nmax]=a[i]; a[i]=max;

Memo2->Lines->Add("a["+Int

ToStr(i)+"]= "+FloatToStrF(max,ffFixed,5,2)); }

}

//------Массивті толтыру батырмасының коды-----------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if (Edit1->Text=="")

{ShowMessage("Massiv elementterinin sanin beriniz");

Edit1->SetFocus();}

Elem_sani=StrToInt (Edit1->Text);

for(int i=0; i

{ a[i]= (float) random(100)/7-3;

Memo1->Lines->Add("a["+IntToStr(i)+"]=

"+FloatToStrF(a[i],ffGeneral,3,1));}

}

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

Достарыңызбен бөлісу:

1 ... 35 36 37 38 39 40 41 42 ... 63