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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2016, 05:51   #1
Blekzet
Новичок
Джуниор
 
Регистрация: 01.06.2016
Сообщений: 2
По умолчанию Помогите с функцией.

"«Перенести» в начало списка все отрицательные элементы, вернуть количество переносов." Можно не писать код программы, главное помогите понять, как это правильно отсортировать.
Blekzet вне форума Ответить с цитированием
Старый 01.06.2016, 20:05   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Например:
Код:
const n = 10;
var i, j, m : integer;
   a : real;
   mas : array[1..n] of real;
begin
{...
    инициируем массив, например, рандомно
 ...
}
   j := 1;
   m := 0;
   for i := 1 to n do
      if mas[i] < 0 then {выполним перестановку}
      begin
         a := mas[j];
         mas[j] := mas[i];
         mas[i] := a;
         if i <> j then {элемент перемещается}
            m := m + 1; {число перестановок}
         j := j + 1;
      end;
{...
   вывод необходимой информации
 ...
}
end.

Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с функцией lola_lola1 PHP 18 10.12.2015 21:22
помогите с функцией Ximerka Паскаль, Turbo Pascal, PascalABC.NET 0 09.04.2009 00:14
помогите с функцией 1234 Общие вопросы Delphi 5 30.08.2008 10:55
Помогите с функцией Родион Общие вопросы Delphi 3 08.05.2008 19:18