МАСИВ ЧИСЕЛ

From

Igor Kasyanchuk (2:4623/55.90)

To

Oleg Khovayko

Date

2003-01-05T12:08Z

Area

RU.ALGORITHMS

             ────────── Здравствуй  Oleg!:-) ─────────

 >> Вот програма  . Все работает на 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)