ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Igor Kasyanchuk                      2:4623/55.90   05 Jan 2003  13:08:00
 To : Oleg Khovayko
 Subject : МАСИВ ЧИСЕЛ
 -------------------------------------------------------------------------------- 
 

 
  >> Вот програма  . Все работает на 100% . Быстро и понятно .
 
  OK> Ужыс!
 
  OK> Вы что, не знаете, что применение goto всуе - вредно?!
  OK> Эта самая "ТИПА ПРОГРАМ", когда будет заполнять последний элемент
  OK> массива, будет методом тыка наощупь его находить
  OK> в почти заполненом массиве!
 
 Спасибо за ответ , но где Вы видели вопрос и несколько тысяч вариантов ответов.
 
  OK> Когда элементов 10 - с этим еще можно смириться, но
  OK> когда несколько тысяч - это же абзац!
 
  OK> Я же приводил быстрый алгорити перемешивания!
  OK> Или С-шный исходник не катит?
  OK> Если так, вот тебе твой Pascal:
 
  OK> ТИПА ПРОГРАМ_Как_надо_делать ;
  OK>   i, j, t : integer
  OK>   var a:array[0..9] of integer;
 
  OK>   for i := 0 to 9 do a[i] := i;
 
  OK>   for i := 9 downto 1 do begin
  OK>    j := random(i);
  OK>    t := a[i]; a[i] := a[j]; a[j] := t;
  OK>   end;
 
  OK> for i := 0 to 9 do write(a[i]:3);
  OK> end.
 
 Да  етот вариант програмы лучше . Спасибо .
 
             С наилучшими пожеланиями
                                         -  Игорь Касянчук
 
  * Origin: Юзер, чайник, програмист, хакер...Кто ты ? (2:4623/55.90)
 
 

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

Тема:    Автор:    Дата:    МАСИВ ЧИСЕЛ   Igor Kasyanchuk   04 Jan 2003 18:11:00   Re: МАСИВ ЧИСЕЛ   Oleg Khovayko   05 Jan 2003 02:00:59   МАСИВ ЧИСЕЛ   Igor Kasyanchuk   05 Jan 2003 13:08:00   Re: МАСИВ ЧИСЕЛ   Oleg Khovayko   06 Jan 2003 05:12:14   МАСИВ ЧИСЕЛ   Max Alekseyev   29 Jan 2003 18:52:30