 |
|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Andrew Starsh 2:5071/59 27 Dec 2002 11:38:52 To : Alexander Chelmodeev Subject : Re: Ускорение поиска максимума... --------------------------------------------------------------------------------
Приветствую Вас, 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.
--- Hу очень голый GoldED+/386 1.1.5
* Origin: Страшный-бородатый... (2:5071/59)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/18823e0c2ee2.html, оценка из 5, голосов 10
|
|
|