![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
![]() Подскажите непонятливому, а где там попытки вставить ассемблер? Что и где требовалось?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#17
|
|||
|
|||
![]() Ну там же все в начале темы все понятно написано, нужно было из полностью написанной на делфи программы (сортировка методом простой вставки) асемблерной вставой заменить кусок который я в начале написал вот и все задание
Последний раз редактировалось Спайд, 28.12.2011 в 23:11. |
#18
|
||||
|
||||
![]() У тебя там не один цикл и что?
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#19
|
|||
|
|||
![]() Или у вас проблемы со зрением или вы издеваетесь ...
![]() |
#20
|
||||
|
||||
![]() Кто из нас издевается:
Код:
for i:=2 to n do begin s:=a[i]; // запомним элемент на случай сдвига k:=0; {Поиск места элемента в упорядоченной последов-ти} for j:=i-1 downto 1 do if a[j]<=a[i] then begin k:=j; // можно сдвигаться слева направо, справа налево break; // если элемент найден, больше перебирать не нужно end; {Сдвиг части последовательности} for j:=i downto k+1 do a[j]:=a[j-1]; a[k+1]:=s;// поставить элемент на нужное место end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#21
|
|||
|
|||
![]() Пост №1 там скопирован кусок , программа не настокльо большая что бы ее не найти вот даже картинку скину http://s1.ipicture.ru/uploads/20111228/G3xgyTKK.png
|