Теория вероятности

[Stvit]

Всем привет. В програмировании я ничего не понимаю, когда-то пробувал, но это не мое. Сейчас столкнулся с такой проблемой: нужна программа, написаная на любом языке. Суть программы заключается в том, что бы она могла случайным образом выберать одно число из 11. У каждого числа есть свой процент того что оно выпадет. Например, то что программа выберет число 2 30 %, число 5 7%, и т.д. Насколько сложно это сделать? И кто может мне помочь? Пока заплатить нечим, но если сработаемся, там эту прогу нужно будет много усовершенствовать, то буду платить.

[VIK_aka_TOR]

самое банальное... это через рандом сделать... а процент вероятности сделать через case... тобишь рандом делаем от 1 до 100... с 1 до 7 - число 5, с 8 до 28 - число 2... и т.д. остальные числа и проценты... если учитывать равновероятностное выпадение чисел самого рандома...

[Stvit]

Сообщение от VIK_aka_TOR

самое банальное... это через рандом сделать... а процент вероятности сделать через case... тобишь рандом делаем от 1 до 100... с 1 до 7 - число 5, с 8 до 28 - число 2... и т.д. остальные числа и проценты... если учитывать равновероятностное выпадение чисел самого рандома...

Я вообще програмированием не занимаюсь, прошу помощи пока заплатить не могу, но это пока, потом если сможешь переделать прогу, кое-ка ну я тоже думаю не сложно будет, смогу платить

[VIK_aka_TOR]

ну.... в кодовом эквиваленте сама эта часть будет выглядеть примерно так... для delphi/pascal

randomize;
x := random(100) + 1;// от 1 до 100
case x of
1..7: chislo := 5;
8..28: chislo := 2;
и т.д....
end;
// в chislo находится выбранное число...

сколько инфы столько коду...

[Аватар]

const Numbers: array [1..11] of Integer = (2,5,9,13,15,22,31,44,45,49,52);
      Procents: array [1..11] of Integer = (5,5,15,20,10,10,11,7,9,2,5);

var Count: Integer;
    Source: array of Integer;

procedure TForm1.FormCreate(Sender: TObject);
var i,j,k: Integer;
begin
  Count:=0;
  for i:=1 to 11 do Inc(Count,Procents[i]);
  SetLength(Source,Count);
  k:=0;
  for i:=1 to 11 do begin
    for j:=1 to Procents[i] do Source[j+k-1]:=Numbers[i];
    Inc(k,Procents[i]);
  end;
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  i:=Random(Count);
  Label1.Caption:=IntToStr(Source[i]);
end;

[Stvit]

Хм, мне код этот не к чему, нужна готова программа, кто сможет сделать?

[Аватар]

Программа это не только базовый алгоритм, а и способ ввода исходной информации (в данном случае перечень чисел и весовых процентов), ограничения, способ отображения введенной информации и результатов работы и/или сохранения полученных результатов (в файл, на печать, в каком виде и т.п.). А так это филькина грамота, сядь, сделай ТЗ и во фриланс

[Stvit]

Сообщение от Аватар

Программа это не только базовый алгоритм, а и способ ввода исходной информации (в данном случае перечень чисел и весовых процентов), ограничения, способ отображения введенной информации и результатов работы и/или сохранения полученных результатов (в файл, на печать, в каком виде и т.п.). А так это филькина грамота, сядь, сделай ТЗ и во фриланс

Понятно, а что-то подобное в екселе зделать можно?