6 Haziran 2014 Cuma

Randg fonksiyonu (randg function example) ile rastgele veri üretmek.

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