|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Alex Kozhushko 2:5020/400 27 Dec 2002 14:45:48 To : Alexander Chelmodeev Subject : Re: Ускорение поиска максимума... -------------------------------------------------------------------------------- Добрый день, Александр! "Alexander Chelmodeev" <Alexander.Chelmodeev@p5.f17.n5062.z2.fidonet.org> wrote in message news:1040670551@p5.f17.n5062.z2.fidonet.ftn... AC> Вот совсем без сравнений: ;) AC> max:=ar[0]; AC> min:=ar[0]; AC> for n:=1 to high(ar) do AC> begin AC> max:= (max+ar[n] + Abs(max-ar[n])) div 2 ; AC> min:= (min+ar[n] - Abs(min-ar[n])) div 2 ; AC> end; Поскольку на каждом шаге цикла хотя бы одно неявное сравнение есть - как считать сравнения? :-) С уважением, Алексей --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/65773311433b.html, оценка из 5, голосов 10
|