У какждого человека наверно есть что-то, чем он особенно гордится...
Я вот больно не задумывался об этом, но сегодня наткнулся на кусочек кода...
...и сердце бешенно застучало и стала так ПРИЯТНО-при-ПРИЯТНО на душе!!!
этот кусочек - моя наибольшая гордость из всего, что я за свою жизнь напрограммировал...

code:


procedure ran_dom;

var

 x,i,j,e:integer;

 xx:array [1..100] of integer;

begin

 for i:=1 to 100 do

  xx[i]:=0;

 for i:=1 to 100 do

  begin

   e:=0;

   repeat

    x:=random(100)+1;

    if xx[x]=0 then

     begin

      xx[x]:=i;

      e:=1;

     end;

   until e=1;

  end;

 e:=0;

 x:=random(100)+1;

 for i:=1 to j do

  if x=xx[i] then e:=1;

end;

где j - заданная вероятность в процентах от 1 до 100... (понятное дело, что при 0 - событие не сбывается, но это исключение прописывается в вызывающей процедуре...)

и если, выйдя из этой процедуры e=1, то событие выполнится...