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

From

Sergey Andrianov (2:5020/1507.400)

To

Alexander Chelmodeev

Date

2002-12-26T23:13:22Z

Area

RU.ALGORITHMS

Здравствуй, Alexander!

Однажды 23-Dec-02  в 18:54   Alexander Chelmodeev (2:5062/17.5)
написал       Andrew Starsh    по поводу
-=-   Ускорение поиска максимума...  -=-

AS>> Пpиятная задачка, хотелось бы веpить, что можно за меньшее число
AS>> сpавнений...

AC>   Да у тебя тут сравнений больше, чем надо...

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;

	А как ты собираешься реализовать Abs() без сравнений? На поразрядной логике что ли? :)

                  До свидания,  в  22:50 MSK
                                 Sergey

---
 * Origin: Sergiev Posad (2:5020/1507.400)