Re: МАСИВ ЧИСЕЛ

From

Oleg Khovayko ()

To

Igor Kasyanchuk

Date

2003-01-05T01:00:59Z

Area

RU.ALGORITHMS

From: Oleg Khovayko <olegh@hotpop.com>

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)