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

From

Alexander Chelmodeev (2:5062/17.5)

To

Alex Kozhushko

Date

2002-12-28T15:34:31Z

Area

RU.ALGORITHMS

   /Привет Alex!/  
 27 Дек 2002 Пт в 13:45 : Alex Kozhushko --> Alexander Chelmodeev:

 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;

 AK> Поскольку на каждом шаге цикла хотя бы одно неявное сравнение есть -
 AK> как считать сравнения? :-)

    Никак, их здесь - 0 ;)
    Если подозреваешь на сравнение ф-ю Abs, то - зависит от реализации Abs.

... http://ichip.rbcmail.ru  ... mailto: ichip(a)rbcmail.ru
--- GoldED+/386 1.1.5-20010807 rev.0813 (MS-DOS 7.10 pc) * Chip&Deal *
 * Origin: Вы мoжете иметь пивo публичнo. (2:5062/17.5)