[baff]

Ребята, привет. Помогите разобраться, может что-то с типами не так, не понимаю почему не выводятся значения.

[Konrad]

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

Ребята, привет. Помогите разобраться, может что-то с типами не так, не понимаю почему не выводятся значения.

И что твоя прога должна делать?

вот что было в архиве (если кому влом качать):

PHP код:

procedure TForm1.Button1Click(Sender: TObject);

var
i,j,m,n:integer;
p1,p,x:real;

begin
p:=0.1;
m:=0;
n:=10000;
for i:=1 to 10 do begin
  m:=0;
  for j:=1 to n do begin
  x:=random;
  if (x<=p) then inc(m);
end;

p1:=m/n;
p:=p+0.1;

StringGrid1.Cells[2,2]:=floattostr(p1);
StringGrid1.Cells[1,1]:=floattostr(p);
end;
end; 


Итак смотрим.
Для 10000 раз ты проверяешь x<=0.1 и считаешь сколько раз такое будет)
Я и так тебе скажу))))) 1000 раз.(+-, ну может быть 995 или 1005, не столь важно)
и так m=1000.
р1=1000/10000=0.1))))

PHP код:

p:=0.1;
p:=p+0.1; 


0.1+0.1+0.1 и так десять раз....
=1)))))

[baff]

Для моделирования случайного события вероятность которого равна p достаточно сформировать одно число равномерно распределенное от 0 до 1. При попадании числа в интервал от 0 до p считают, что событие наступило в противном случае не наступило.

[Konrad]

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

Для моделирования случайного события вероятность которого равна p достаточно сформировать одно число равномерно распределенное от 0 до 1. При попадании числа в интервал от 0 до p считают, что событие наступило в противном случае не наступило.

Знаю, учил такое в свое время.

И?
А что тебе нужно?

[baff]

мне нужно посчитать p и p*.

[Konrad]

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

мне нужно посчитать p и p*.

Так прога уже их считает.

Кстати, у тебя там интересно тем что в конце ты сравниваешь
if random<=1.1 then inc(m);

Не трудно догадаться что получишь 1 всегда

[baff]

она не выводит значения которые должны быть в интервале от 0 до p и p* может это из-за floattostr...

[Konrad]

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

она не выводит значения которые должны быть в интервале от 0 до p и p* может это из-за floattostr...

Пропиши так:
StringGrid1.Cells[i,2]:=floattostr(p1);

[baff]

подскажи как исправить(

[baff]

о спасибо заработало)
также надо и со вторым чтобы оно выводило: 0.1 0.2 0.3?

[Konrad]

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

подскажи как исправить(

И
StringGrid1.Cells[i,1]:=floattostr(p);

Только тут уже нужно смотреть по какой границе ты показываешь интервал.

или такой костыль (чесно влом думать):
StringGrid1.Cells[i,1]:=floattostr(p-0.1);

[baff]

Спасибо тебе огромное!!! Ты мне очень помог.

[baff]

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

И
StringGrid1.Cells[i,1]:=floattostr(p);

Только тут уже нужно смотреть по какой границе ты показываешь интервал.

или такой костыль (чесно влом думать):
StringGrid1.Cells[i,1]:=floattostr(p-0.1);

После этого заработало как надо, спасибо тебе огромное, ты мне очень очень помог.

[Konrad]

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

После этого заработало как надо, спасибо тебе огромное, ты мне очень очень помог.

Ок.
Незачто.