Re: Ускорение поиска максимума...

From

Alex Kozhushko ()

To

Alexander Chelmodeev

Date

2002-12-27T13:45:48Z

Area

RU.ALGORITHMS

From: "Alex Kozhushko" <alxrie@sibmail.ru>

Добрый день, Александр!

"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)