Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function montekarlo(diap1: double; diap2: double): double;
- var
- Xx: array of double;
- i, j, l,k: integer;//количество итераций
- min: double;
- begin
- randomize;
- l := PABCSystem.Random(7) + 5;
- Xx := new double[l];
- for i := 0 to l - 1 do
- begin
- Xx[i] := PABCSystem.Random * diap2 + diap1;
- end;
- min := Xx[1];
- for i := 2 to l - 1 do
- begin
- if Xx[i] < min then min := Xx[i];
- end;
- min := Xx[i];
- montekarlo := min;
- end;
- gr.DrawString(montekarlo(diap1, diap2).ToString('N2'), new System.Drawing.Font('Times New Roman', 10, System.Drawing.FontStyle.Regular), System.Drawing.Brushes.Black, 440, 90);
- function montekarlo(diap1: double; diap2: double): double;
- var
- i, l: integer;//количество итераций
- x: double;
- begin
- randomize;
- l := PABCSystem.Random(7) + 5;
- result := PABCSystem.Random * diap2 + diap1;
- for i := 1 to l - 1 do
- begin
- x := PABCSystem.Random * diap2 + diap1;
- if x < result then
- result := x;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement