procedure TForm1.Button1Click(Sender: TObject);
var
mu,sigma:Extended;
i,n:integer;
x:double;
begin
randomize;
mu:=strtoint(edit1.text);
sigma:=strtoint(edit2.Text);
n:=strtoint(edit3.text);
for i:=0 to n-1 do
begin
x:=randg(mu,sigma);
memo1.lines.add(formatfloat('0.###',x));
end;
end;
end.
Hiç yorum yok:
Yorum Gönder