![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#16
|
||||
|
||||
|
Подскажите непонятливому, а где там попытки вставить ассемблер? Что и где требовалось?
|
|
#17
|
|||
|
|||
|
Ну там же все в начале темы все понятно написано, нужно было из полностью написанной на делфи программы (сортировка методом простой вставки) асемблерной вставой заменить кусок который я в начале написал вот и все задание
Последний раз редактировалось Спайд, 28.12.2011 в 23:11. |
|
#18
|
||||
|
||||
|
У тебя там не один цикл и что?
|
|
#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; |
|
#21
|
|||
|
|||
|
Пост №1 там скопирован кусок , программа не настокльо большая что бы ее не найти вот даже картинку скину http://s1.ipicture.ru/uploads/20111228/G3xgyTKK.png
|