random

[Pein95]

Ну вопшем есть задача: из трех чисел нужно угадать одно, у вас есть одна попытка, но после етого у вас есть возможность поменять свой выбор. Если хотите можете менять если нет то не менять)) Вопрос если я поменяю вибыор то вероятность правильного ответа возрастет? как по мне, то если поменять выбор, то вероятность возрестет, но я написал такой вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit2: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Memo2: TMemo;
    Label2: TLabel;

    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bool:boolean;
  result:integer;
  col:integer;

implementation

{$R *.dfm}











procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a,b,result1,result2:integer;
begin
result1:=0;
result2:=0;
randomize;

for i := 1 to strtoint(edit2.Text) do
begin
  a:=random(3);
  memo1.Lines.Add('a='+inttostr(a));
  b:=random(3);
  memo1.Lines.Add('b='+inttostr(b));
  if a=b then
  result1:=result1+1;
end;
memo1.Lines.Add('result='+inttostr(result1));

for i := 1 to strtoint(edit2.Text) do
begin
  a:=random(3);
  memo2.Lines.Add('a='+inttostr(a));
  b:=random(3);
  b:=random(3);
  memo2.Lines.Add('b='+inttostr(b));
    if a=b then
  result2:=result2+1;
end;
memo2.Lines.Add('result='+inttostr(result2));



end;

procedure TForm1.FormCreate(Sender: TObject);
begin
bool:=true;
result:=0;
col:=1;
end;

end.

и в 4 случиях из 5 количество правильных ответов было больше в тому случие если я не менял свой выбор. Може быть что мой код не коректен, я в нем не очень уверен.

[Pein95]

народ, отозвитесь кто-нибудь)))

[SNUPY]

Увеличьте количество испытаний:

  Randomize;
  m := 0;
  j := 100000000;
  for j:=1 to j do
  begin
    a := Random(3);
    b := Random(3);
    c := Random(3);
    if a=c then inc(m);
  end;

  Memo1.Lines.Add('ñðåäíÿÿ '+FloatToStr(m/j));

результат:
средняя 0,333448646665514

[Pein95]

все ок) но меня интересует ещо и математический аспект задачи, будит ли вероятность правильного ответа больше, когда я меняю вариант ответа)

[veniside]

задача сформулирована неполно. Это т.н. парадокс Монти Холла, и вероятность там плавает в зависимости от стратегии ведущего.

[SNUPY]

вероятность a=b a<>c:
(1/3*1/3+1/3*1/3+1/3*1/3)*(1-1/3*1/3+1/3*1/3+1/3*1/3)=1/3*2/3=2/9
вероятность a<>b a=c:
(1-1/3*1/3+1/3*1/3+1/3*1/3)*(1/3*1/3+1/3*1/3+1/3*1/3)=2/3*1/3=2/9
вероятность a=b a=c:
(1/3*1/3+1/3*1/3+1/3*1/3)*(1/3*1/3+1/3*1/3+1/3*1/3)=1/3*1/3=1/9

[Pein95]

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

[SNUPY]

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

ну вы видите мой код, и думаю понимаете стратегию, можете прощитать вероятность? просто я на даный момент владею математикой только на школьном уровне))

Эмм а я что вам привел выше постом?

Вероятность выпадения a=b равно в свою очередь сумме вероятностей a=b a<>c и a=b a=c т.е. 2/9+1/9=3/9=1/3=0,(3)

Вероятность выпадения a=c равно в свою очередь сумме вероятностей a=c a<>b и a=c a=b т.е. 2/9+1/9=3/9=1/3=0,(3)

[Pein95]

сори не увидел)) спс оч благодарен)