|
|
ru.algorithms- RU.ALGORITHMS ---------------------------------------------------------------- From : Alexander Chelmodeev 2:5062/17.5 23 Dec 2002 19:54:54 To : Andrew Starsh Subject : Ускорение поиска максимума... -------------------------------------------------------------------------------- 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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.algorithms/147063e075f57.html, оценка из 5, голосов 10
|