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

From

Alexander Chelmodeev (2:5062/17.5)

To

Andrew Starsh

Date

2002-12-28T15:32:01Z

Area

RU.ALGORITHMS

   /Привет Andrew!/  
 27 Дек 2002 Пт в 10:38 : Andrew Starsh --> Alexander Chelmodeev:

 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;

 AS> Кpасиво. :-)
 AS>     Хотя pечь шла об ускоpении...

   Значит количество сравнений - не единственный критерий. Будет или нет
ускорение надо сравнивать на тесте.

 AS>     Кстати, почему div? С ним будет pаботать только на целочисленных...

   Это не реализация, а алгоритм. Замени на плавающее "/".

... 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: Всё лишнее - детям. (2:5062/17.5)