Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 28.12.2011, 22:28
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Подскажите непонятливому, а где там попытки вставить ассемблер? Что и где требовалось?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #17  
Старый 28.12.2011, 23:05
Спайд Спайд вне форума
Прохожий
 
Регистрация: 28.12.2011
Сообщения: 9
Репутация: 10
По умолчанию

Ну там же все в начале темы все понятно написано, нужно было из полностью написанной на делфи программы (сортировка методом простой вставки) асемблерной вставой заменить кусок который я в начале написал вот и все задание

Последний раз редактировалось Спайд, 28.12.2011 в 23:11.
Ответить с цитированием
  #18  
Старый 28.12.2011, 23:12
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

У тебя там не один цикл и что?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #19  
Старый 28.12.2011, 23:13
Спайд Спайд вне форума
Прохожий
 
Регистрация: 28.12.2011
Сообщения: 9
Репутация: 10
По умолчанию

Или у вас проблемы со зрением или вы издеваетесь ...
Ответить с цитированием
  #20  
Старый 28.12.2011, 23:26
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Кто из нас издевается:
Код:
          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  
Старый 28.12.2011, 23:30
Спайд Спайд вне форума
Прохожий
 
Регистрация: 28.12.2011
Сообщения: 9
Репутация: 10
По умолчанию

Пост №1 там скопирован кусок , программа не настокльо большая что бы ее не найти вот даже картинку скину http://s1.ipicture.ru/uploads/20111228/G3xgyTKK.png
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025