ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Oleg Khovayko                        2:5020/400     05 Jan 2003  02:00:59
 To : Igor Kasyanchuk
 Subject : Re: МАСИВ ЧИСЕЛ
 -------------------------------------------------------------------------------- 
 

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

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

Тема:    Автор:    Дата:    МАСИВ ЧИСЕЛ   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