Цитата:
|
Сообщение от 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))))
0.1+0.1+0.1 и так десять раз....
=1)))))