Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2008, 18:29   #1
Droid
Форумчанин
 
Аватар для Droid
 
Регистрация: 24.04.2008
Сообщений: 440
По умолчанию не получается сортировка кто знает помогите

Код:
procedure TForm1.FormActivate(Sender: TObject);
var
ll,ll1,ll2,ll3,p1,p2,kl2:integer;
bufer: variant;
begin
for ll:=1 to 7 do
for ll1:=2 to 8 do
for ll2:=3 to 9 do
for ll3:=4 to 10 do
begin
stringgrid3.Cells[ll-1,0]:=inttostr(ll);
stringgrid3.Cells[ll1-2,1]:=inttostr(ll1);
stringgrid3.Cells[ll2-3,2]:=inttostr(ll2);
stringgrid3.Cells[ll3-4,3]:=inttostr(ll3);
end;
for p1:=1 to 10 do
for p2:=1 to 10 do
for kl2:=1 to 4 do
begin
if stringgrid1.Cells[kl2,p1]>stringgrid1.Cells[kl2,p2] then
begin
bufer:=stringgrid1.Cells[kl2,p1];
p1:=p2;
p2:=bufer;
end;
end;
1 старый программист, лучше новых 2-х

Последний раз редактировалось Droid; 22.05.2008 в 18:32.
Droid вне форума Ответить с цитированием
Старый 22.05.2008, 18:45   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Что это за метод ?
И почему переменная цикла P2 меняется в самом цикле ?

for p2:=1 to 10 do
...
p1:=p2;
p2:=bufer;
...
alexBlack вне форума Ответить с цитированием
Старый 22.05.2008, 18:49   #3
Droid
Форумчанин
 
Аватар для Droid
 
Регистрация: 24.04.2008
Сообщений: 440
По умолчанию

хм.... а как он должна быть ?
я поэтому и спрашиваю
1 старый программист, лучше новых 2-х
Droid вне форума Ответить с цитированием
Старый 22.05.2008, 18:59   #4
Droid
Форумчанин
 
Аватар для Droid
 
Регистрация: 24.04.2008
Сообщений: 440
По умолчанию

Код:
for p1:=1 to 10 do
for p2:=1 to 10 do
for kl2:=1 to 4 do
begin
if stringgrid1.Cells[kl2,p1]>stringgrid1.Cells[kl2,p2] then
begin
bufer:=stringgrid1.Cells[kl2,p1];
stringgrid1.Cells[kl2,p1]:=stringgrid1.Cells[kl2,p2];
stringgrid1.Cells[kl2,p2]:=bufer;

end;
так наверное надо делать ?
1 старый программист, лучше новых 2-х
Droid вне форума Ответить с цитированием
Старый 22.05.2008, 19:06   #5
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

И работает ?
У Вас заполняется StringGrid3, а сортируется StringGrid1.
Кроме того непонятно, что должно сортироваться.
Метод-то пузырька ?
alexBlack вне форума Ответить с цитированием
Старый 23.05.2008, 07:28   #6
AlexandrSid
Форумчанин
 
Регистрация: 31.10.2007
Сообщений: 103
По умолчанию

Здесь все подробно написано по сортировку массивов

http://alglib.sources.ru/articles/sort.php
AlexandrSid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста решить задачу!Очень нужно у самой не получается! Lilu Monechi Помощь студентам 2 19.05.2008 19:38
Всю голову сломала, но формула не получается. Помогите! Аленка Microsoft Office Excel 1 07.02.2008 12:56
ПОМОГИТЕ новичку... ибо новичок это еще не знает=) gard Помощь студентам 5 16.04.2007 17:04