[DaniilBorodin]

Здравствуйте все.

Мой вопрос многим покажется глупым и простым, но прошу дать ответ. Или указать где посмотреть. Я начинающий программист.

Вопрос следующий: Необходимо программно описать вероятность наступления события. Допустим вероятность наступления события равна 0.8 (вероятность от 0 до 1 ). Как это с симулировать на Delphi. Буду благодарен за любую помощь.

Спасибо. Даниил.

[Winny]

Вычислять надо по каким то координатам? Поясни. Если случайно, то можно пойти таким путём:

Код:

var
Cel,Drob:Integer;
begin
Randomize;
Cel:=Random(9);
Drob:=Random(9);
ShowMessage(IntToStr(Cel)+','+IntToStr(Drob))

[AlexSku]

Вот генерация 20 элементов

Код:

var p: Single = 0.8;
procedure TForm1.FormCreate(Sender: TObject);
var I: Integer;
begin
  Randomize;
  for I:= 1 to 20 do
    if Random < p then StringGrid1.Cells[1,I]:= '1'
    else               StringGrid1.Cells[1,I]:= '0';
end;

(исправил ошибку, т.к. было всё наоборот)