ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Max Alekseyev                        2:5015/60      29 Jan 2003  18:52:30
 To : Oleg Khovayko
 Subject : МАСИВ ЧИСЕЛ
 -------------------------------------------------------------------------------- 
 

 
 Replying to a message of Oleg Khovayko to Igor Kasyanchuk:
 
  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);
 
 Та же ошибка. Должно быть 
 j := random(i+1);
 
  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.
 
 Regards,      ш.ш
         Max    ~
 
 --- FleetStreet 1.27.3.8
  * Origin:  (2:5015/60)
 
 

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

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