Программалау технологиясы



Pdf көрінісі
бет51/136
Дата08.02.2022
өлшемі2,48 Mb.
#121875
түріПрограмма
1   ...   47   48   49   50   51   52   53   54   ...   136
Байланысты:
Мукашев С Builder

char
i='А';i<='Я';i++) 
for (
int
j=0;jif
(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;jif
(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{ stud max=grup[i]; 
int
maxI=i; 
for (
int
j=i;jif
(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 –элементін табатын және тізбек элементтерін кему реті бойынша 
орналастыратын программа жазыңыз.


Достарыңызбен бөлісу:
1   ...   47   48   49   50   51   52   53   54   ...   136




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет