Программалау технологиясы
жүктеу/скачать 2,48 Mb. Pdf көрінісі
|
Мукашев С Builder
| char
i='А';i<='Я';i++) for ( int j=0;j (grup[j].fam[1]==i) Memo1->Lines->Add(grup[j].fam+" "+ grup[j].ati+" "+IntToStr(grup[j].tugG)); } // fam boinsha syriptay bitti if (RadioGroup1->ItemIndex==1) //ati boinsha syriptay bastaldi { Memo1->Clear(); for( char i='А';i<='Я';i++) for ( int j=0;j (grup[j].ati[1]==i) Memo1->Lines->Add(grup[j].ati+" "+ grup[j].fam+" "+IntToStr(grup[j].tugG)); } //ati boinsha syriptay bitti if (RadioGroup1->ItemIndex==2) //tugG boinsha syriptay bastaldi {Memo1->Clear(); for( int i=0;i int maxI=i; for ( int j=i;j (grup[j].tugG > max.tugG) {max=grup[j]; maxI=j;} Memo1->Lines->Add(max.ati+" "+ max.fam+" "+IntToStr(max.tugG)); grup[maxI]=grup[i]; grup[i]=max; } }//tugG boinsha syriptay bitti } Ӛзіндік жұмыс тапсымалары: 1. Қолданушының таңдауына сәйкес тізбек мүшелерін арифметикалық, геометриялық прогрессия ережелері немесе т.б. заңдылықтар бойынша құратын және алынған тізбектің min –элементін табатын және тізбек элементтерін кему реті бойынша орналастыратын программа жазыңыз. жүктеу/скачать 2,48 Mb. Достарыңызбен бөлісу:
|