|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2007, 22:05 | #1 |
Форумчанин
Регистрация: 22.09.2007
Сообщений: 540
|
Помогите вставить счётчик...
procedure TForm1.Button2Click(Sender: TObject);
var i, j, item : integer; begin Edit_c2.Clear; s1:=0; Edit_sortarr1.Clear; for i := 1 to n-1 do begin item := arr[i]; j := i; while item > arr[j-1] do begin arr[j] := arr[j-1]; j := j-1; end; arr[j] := item; end; easySort := arr; for i := 0 to n-1 do Edit_sortarr1.Text:=Edit_sortarr1.T ext+' '+IntToStr(easySort[i]); Edit_c2.Clear; Edit_c2.Text:=IntToStr(s1); end; -------------------------------------------------- Нужно поставить счётчик s1:=s1+1; Я так понял, что счётчик надо вставить в эту часть: while item > arr[j-1] do begin arr[j] := arr[j-1]; j := j-1; s1:=s1+1; end; Но не работает... Я куда уже только не ставил в этой сортировке или просто число от i до n показывает или 0. Помогите, плиз... Исходник прикрепил!!! |
26.09.2007, 08:25 | #2 |
форвард
Форумчанин
Регистрация: 03.08.2007
Сообщений: 130
|
привет !
я посмотрел исходник, счетчик вставляеш правильно просто когда Button1 нажимаеш массив arr уже сортируеться и в простых вставок(Button2) не выполняеться условия while item > arr[j-1] и просто выводить результат Button1 . я пробовал поменят кое чё но не очень получилос ты посмотри его может поможеть
dela ne v dengax a v yego kolichestve
|
26.09.2007, 08:31 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ребята все просто до безобразия. Пользуйтесь Дебуггером почаще и может тогда вы поймете что цикл while item > arr[j-1] do begin вообще не выполняется поскольку не срабатывает условие item > arr[j-1], где item=8 а arr[j-1]=10
Это при условии что просто нажимать на кнопки.
I'm learning to live...
|
26.09.2007, 09:34 | #4 |
форвард
Форумчанин
Регистрация: 03.08.2007
Сообщений: 130
|
а почему она не срабативает я как раз таки написал, так что стоило бы читат по внимательно
dela ne v dengax a v yego kolichestve
|
26.09.2007, 09:39 | #5 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Это тебе стоит внимательно читать мой пост. посмотри что я там выделил и подумай.
А вообще это стоит внимательно читать автору вопроса.
I'm learning to live...
|
26.09.2007, 11:10 | #6 | |
форвард
Форумчанин
Регистрация: 03.08.2007
Сообщений: 130
|
Цитата:
p.s : я согласен что стоит внимательно читать автору вопроса.
dela ne v dengax a v yego kolichestve
|
|
26.09.2007, 11:39 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ыгы. я заметил, но поскольку толком задача не определена, или вернее вопрос совсем в другом, посему вникать в особые кишки проги не стал, думаю что мы ему уже ответели по вопросу достаточно равноценно )
(Мало ли че там автор задумал... Может ему именно такой массив нужен, тогда нуна менять условие, ну и т.д....)
I'm learning to live...
|
27.09.2007, 20:53 | #8 |
Форумчанин
Регистрация: 22.09.2007
Сообщений: 540
|
спасибо, помогли
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
счётчик | ZYRGiX | HTML и CSS | 7 | 26.12.2007 16:12 |