var s,r:real;
n:integer;//Кол-во вероятностей
i:integer;
p:array[1..100] of real;//Вероятности
begin
read(n);
for i:=1 to n do read(p);
r:=random;
i:=1;
while (r>p) and (i<=n) do
begin
r:=r-p;
inc(i);
end;
write(i);
end;
Генерирование последовательности по определенной схеме
Вообщем задача такая, нужно к примеру сгенирировать последовательность, которая состоит из цифр от 0 до 9, по определенной схеме, которая тоже задается динамически. Например, 1 - 20%, 3 -50 % и т.д.
Перекопал пол инета, может кто видел примерные алгоритмы...
Благодарю за ранее:)
[COLOR="Red"]В названии темы указывается язык программирования, нарушение - 5 баллов.[/COLOR] модератор.
Перекопал пол инета, может кто видел примерные алгоритмы...
Благодарю за ранее:)
[COLOR="Red"]В названии темы указывается язык программирования, нарушение - 5 баллов.[/COLOR] модератор.
Динамически - то есть задается пользователем, что ли. Кстати, какой нужен язык?
без разницы какой язык, больше интересует алгоритм. динамически может просто схема передаваться в функцию и вместо циферок может быть все что угодно, даже строки
Хм, если я правильно понял. То , например, в случае когда ты генеришь равновероятностные числа в диапазоне от [1..100], то вероятность попадания в [1..20] - будет 20%, [21..70] - 50% и т.д. Вот и весь алгоритм - динамически задавай промежутки для своих значений.