![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
zoha |
![]() ![]()
Сообщение
#1
|
![]() Хакер ![]() Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: ![]() ![]() ![]() |
Здравствуйте уважаемые форумчане!
Трассировка на 3 StringGride не получается вот код Код procedure TForm2.BitBtn2Click(Sender: TObject); var i:integer; begin n:=strtoint(edit1.text); randomize; stringGrid1.colcount:=(strtoint(edit1.Text)); for i:=0 to n-1 do begin a[i]:=(random(20)-20)*2; stringGrid1.Cells[i,0]:=inttostr(a[i]); end; end; procedure TForm2.BitBtn3Click(Sender: TObject); var i,j,z,k,t:integer; begin k:=0; StringGrid2.ColCount:=(StrToInt(edit1.Text)); n:=StrToInt(edit1.Text); StringGrid3.ColCount:=(StrToInt(edit1.Text)); for i:=0 to n-1 do begin for j:=0 to n-i do begin if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end; for z := 1 to n-1 do stringgrid3.Cells[z-1,k]:=inttostr(a[z]); k:=k+1; end;end; for i:=0 to n-1 do for j:=0 to n-1 do begin StringGrid2.Cells[i,0]:=IntToStr(a[i]); end; end; |
![]() ![]() |
![]() |
Текстовая версия | 7.09.2024 18:27 |