«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,7 Mb.
|
«Бағдарламалау тілдері» пәнінен тәжірибелік жұмыстар жинағы
| class stud
{public: AnsiString fam, ati; int tugG; }; stud grup[10]; int n=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) // 'ЕНГIЗУДI ОРЫНДАУ' батырмасының коды { grup[n].fam=Edit1->Text; grup[n].ati=Edit2->Text; grup[n].tugG=StrToInt(Edit3->Text); Memo1->Lines->Add(grup[n].fam+" "+ grup[n].ati+" "+IntToStr(grup[n].tugG)); n++; Edit1->Clear();Edit2->Clear();Edit3->Clear(); Edit1->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key) { if(Key==13) Edit2->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key) { if(Key==13) Edit3->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key) { if(Key==13) Button1->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) // 'СУРЫПТАУДЫ ОРЫНДАУ' батырмасының коды { if(RadioGroup1->ItemIndex==0) //fam boinsha syriptay bastaldi { Memo1->Clear(); for(char i='А';i<='Я';i++) for (int j=0;j Memo1->Lines->Add(grup[j].fam+" "+ grup[j].ati+" "+IntToStr(grup[j].tugG)); } // fam boinsha syriptay bitti жүктеу/скачать 2,7 Mb. Достарыңызбен бөлісу:
|