Главная страница


ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Yurij Zabelyshynskij                 2:5020/400     23 Dec 2002  23:17:47
 To : Andrew Starsh
 Subject : Re: Ускорение поиска максимума...
 -------------------------------------------------------------------------------- 
 
 Hi, Andrew.
 Andrew Starsh wrote
 
 >> Меньше нельзя (только при нечетном N должно
 >> быть 1.5N - 1.5).
 
 > Увы, Вы забыли, что может быть нечетное число,
 
 Судя по моей фразе, как раз не забыл.
 
 > Ваш коppеспондент забыл посчитать еще одно сpавнение.
 
 Т.к. "мой корреспондент" не написал свой алгоритм, то мы не можем
 говорить, что он забыл, а что нет.
 
 > var
 >   N,c,min,max:byte;
 >   m:array[1..255] of byte;
 >   s:word;
 > BEGIN
 >   n:=1;
 >   while n>0 do
 >   begin
 >     writeln('Введите N, выход - 0');
 >     readln(n);
 > (*    for c:=1 to n do m[c]:=c;*)
 >     for c:=1 to n do m[n-c+1]:=c;
 
 И что же будет, если пользователь введет n=300?
 
 >     s:=1;
 >     if m[1]>m[n] then
 
 Это лишнее: ведь только что мы присвоили
 m[1] := n, m[n] := 1
 
 >     begin
 >       min:=m[n];
 >       max:=m[1];
 >     end
 >     else
 >     begin
 >       min:=m[1];
 >       max:=m[n];
 >     end;
 >     for c:=2 to (n div 2) do
 >     begin
 >       s:=s+3;
 >       if m[c]>m[n-c] then
 >       begin
 >         if m[c]>max then max:=m[c];
 >         if m[n-c]<min then min:=m[n-c];
 >       end
 >       else
 >       begin
 >         if m[n-c]>max then max:=m[n-c];
 >         if m[c]<min then min:=m[c];
 >       end;
 >     end;
 
 А как же m[n-1]? Оно вообще ни с чем не сравнивается?
 
 >     s:=s+1;
 >     if (n div 2)<>(n/2) then
 
 Т.е. Вы считаете еще проверку n на четность? Это лежит несколько в
 стороне от задачи, потому что имеются в виду сравнения элементов
 массива. Иначе надо еще учитывать, например, проверку выхода из цикла.
 
 > [...]
 
 В остальном идея правильная, но если уж писать код, то его проверять
 нужно.
 
 > Пpиятная задачка, хотелось бы веpить, что можно за
 > меньшее число сpавнений...
 
 Вы, видимо, плохо читали мое сообщение. Я в нем написал, что за
 меньшее количество сравнений это невозможно сделать.
 --
 WBR, Yura.
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Алгоритмы сортировк   Anthony Volkov   29 Nov 2002 07:24:30 
 Re: Алгоритмы сортировк   Andrey Belyakov   29 Nov 2002 19:17:38 
 Re: Алгоритмы сортировк   Kirill Usatov   06 Dec 2002 00:55:06 
 Re: Алгоритмы сортировк   Anthony Volkov   09 Dec 2002 05:12:54 
 Алгоритмы сортировк   Vlad Salikov   09 Dec 2002 03:39:56 
 Re: Алгоритмы сортировк   Artur Mogozov   11 Dec 2002 17:28:30 
 Re^2: Алгоритмы сортировк   Andrew Starsh   12 Dec 2002 14:28:17 
 Re^2: Алгоритмы сортировк   Kirill Usatov   15 Dec 2002 01:29:53 
 Алгоритмы сортировк   Vlad Salikov   12 Dec 2002 16:24:34 
 Re: Алгоритмы сортировк   Anatoly Saveliev   13 Dec 2002 09:42:59 
 Re: Алгоритмы сортировк   Viktor Karev   15 Dec 2002 12:02:33 
 Re: Алгоритмы сортировк   Ilia Kantor   15 Dec 2002 18:09:00 
 Re: Алгоритмы сортировк   Anatoly Saveliev   16 Dec 2002 09:50:18 
 Алгоритмы сортировк   Alexander Chelmodeev   13 Dec 2002 12:27:30 
 Алгоритмы сортировк   Andrey Dashkovsky   16 Dec 2002 00:01:11 
 Алгоритмы сортировк   Vlad Salikov   17 Dec 2002 20:46:35 
 Алгоритмы сортировк   Andrey Dashkovsky   19 Dec 2002 19:10:58 
 Ускорение поиска максимума...   Anton Kuznetsov   19 Dec 2002 22:24:00 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   20 Dec 2002 23:36:24 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   21 Dec 2002 16:49:18 
 Ускорение поиска максимума...   Alexander Chelmodeev   23 Dec 2002 19:54:54 
 Re: Ускорение поиска максимума...   Andrew Starsh   27 Dec 2002 11:38:52 
 Ускорение поиска максимума...   Alexander Chelmodeev   28 Dec 2002 16:32:01 
 Re: Ускорение поиска максимума...   Andrew Starsh   30 Dec 2002 12:22:38 
 Re: Ускорение поиска максимума...   Alex Kozhushko   27 Dec 2002 14:45:48 
 Ускорение поиска максимума...   Alexander Chelmodeev   28 Dec 2002 16:34:31 
 Re: Ускорение поиска максимума...   Alex Kozhushko   28 Dec 2002 19:46:47 
 Re: Ускорение поиска максимума...   Andrew Starsh   30 Dec 2002 12:25:10 
 Re: Ускорение поиска максимума...   Sergey Andrianov   27 Dec 2002 00:13:22 
 Re: Ускорение поиска максимума...   Vladimir Vassilevsky   28 Dec 2002 22:36:06 
 Re: Ускорение поиска максимума...   Sergey Andrianov   30 Dec 2002 23:51:38 
 Re: Ускорение поиска максимума...   Vladislav Gusev   29 Dec 2002 20:01:30 
 Ускорение поиска максимума...   Alexander Lezin   29 Dec 2002 13:50:47 
 Ускорение поиска максимума...   Sam   30 Dec 2002 20:13:47 
 Ускорение поиска максимума...   Alexander Lezin   30 Dec 2002 22:13:01 
 Ускорение поиска максимума...   Sam   01 Jan 2003 18:32:50 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   01 Jan 2003 11:40:41 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   23 Dec 2002 23:17:47 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   27 Dec 2002 11:44:35 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   27 Dec 2002 14:39:41 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   28 Dec 2002 18:50:27 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   28 Dec 2002 18:39:03 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   30 Dec 2002 12:29:06 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   30 Dec 2002 17:52:15 
 Ускорение поиска максимума...   Alexander Chelmodeev   28 Dec 2002 16:30:04 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   28 Dec 2002 18:39:10 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   30 Dec 2002 12:32:58 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   30 Dec 2002 18:33:21 
 Re: Re^2: Ускорение поиска максимума...   Valentin Davydov   31 Dec 2002 20:58:06 
 Ускорение поиска максимума...   Evgeny Sharandin   06 Jan 2003 02:40:00 
 Ускорение поиска максимума...   Alexander Lezin   08 Jan 2003 23:50:37 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   30 Dec 2002 12:40:51 
 Re: Ускорение поиска максимума...   Yurij Zabelyshynskij   30 Dec 2002 18:33:22 
 Ускорение поиска максимума...   Comoderator Of Ru Algorithms   01 Jan 2003 03:57:37 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   27 Dec 2002 13:14:59 
 Re: Ускорение поиска максимума...   Andrew Starsh   21 Dec 2002 12:39:18 
 Re^2: Ускорение поиска максимума...   Andrew Starsh   21 Dec 2002 17:03:39 
 Re: Ускорение поиска максимума...   Viktor Karev   23 Dec 2002 16:39:57 
 Re: Ускорение поиска максимума...   Andrew Starsh   21 Dec 2002 14:26:24 
 Алгоритмы сортировк   Vlad Salikov   17 Dec 2002 20:50:03 
 Алгоритмы сортировк   Oleg V.Cat   13 Dec 2002 10:58:06 
 Re: Алгоритмы сортировк   Artur Mogozov   10 Dec 2002 12:41:20 
Архивное /ru.algorithms/6577cd6d23e6.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional