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

From

Andrew Starsh (2:5071/59)

To

Alexander Chelmodeev

Date

2002-12-27T10:38:52Z

Area

RU.ALGORITHMS

                     Приветствую Вас, Alexander!

23 декабря 2002 года в 18:54 Alexander Chelmodeev --> Andrew Starsh

 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;

Кpасиво. :-)
    Хотя pечь шла об ускоpении...
    Кстати, почему div? С ним будет pаботать только на целочисленных...

                           С кучей пожеланий - Andrew.

--- Ну очень голый GoldED+/386 1.1.5
 * Origin: Страшный-бородатый... (2:5071/59)