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

From

Alexander Chelmodeev (2:5062/17.5)

To

Andrew Starsh

Date

2002-12-23T18:54:54Z

Area

RU.ALGORITHMS

   /Привет Andrew!/  
 21 Дек 2002 Сб в 15:49 : Andrew Starsh --> Anton Kuznetsov:

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

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

   Вот совсем без сравнений: ;)

max:=ar[0];
min:=ar[0];
for n:=1 to high(ar) do
  begin
    max:= (max+ar[n] + Abs(max-ar[n])) div 2 ;
    min:= (min+ar[n] - Abs(min-ar[n])) div 2 ;
  end;


... 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: Если не знaешь, чтo делaть, делaй тo, чтo нужнo. (2:5062/17.5)