IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Трассировка, сортировка потом трассировка
zoha
сообщение 13.12.2012 20:23
Сообщение #1


Хакер
*

Группа: Пользователи
Сообщений: 49
Пол: Мужской

Репутация: -  -4  +


Здравствуйте уважаемые форумчане!

Трассировка на 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;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.11.2024 23:31
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"