ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Max Alekseyev                        2:5015/60      29 Aug 2001  21:24:50
 To : Abbat
 Subject : Hужно решение
 -------------------------------------------------------------------------------- 
 

 
 Replying to a message of Abbat to All:
 
  A> Есть массив целых чисел от 0 до N (на практике N не больше 100). Числа
  A> в массиве расположенны по порядку (0-100). Требуется перемешать массив
  A> произвольным образом. Скорость критична (счет идет на ms).
 
 var m:array[0..N] of integer;
       i,j,t:integer;
 begin
   for i:=0 to N do m[i] := i;
   for i:=0 to N-1 do
   begin
         j := i + random(N+1-i);
         t := m[i]; m[i] := m[j]; m[j] := t;
   end;
 end.
 
 Regards,      ш.ш
         Max    ~
 
 --- FleetStreet 1.27.3.6
  * Origin:  (2:5015/60)
 
 

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

Тема:    Автор:    Дата:    Hужно решение   Abbat   30 Aug 2001 07:14:52   Hужно решение   Max Alekseyev   29 Aug 2001 21:24:50   Re: Hужно решение   OLS   30 Aug 2001 09:02:22   Hужно решение   Evgenij Masherov   30 Aug 2001 10:05:56   Hужно решение   Boris Sivko   30 Aug 2001 08:20:08   Hужно решение   Nickita A. Startcev   31 Aug 2001 08:41:22   Re: Hужно решение   Andrew Kadatch   06 Sep 2001 13:36:53