Advertisement
Guest User

Untitled

a guest
Dec 9th, 2016
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.00 KB | None | 0 0
  1. function montekarlo(diap1: double; diap2: double): double;
  2. var
  3. Xx: array of double;
  4. i, j, l,k: integer;//количество итераций
  5. min: double;
  6.  
  7. begin
  8. randomize;
  9. l := PABCSystem.Random(7) + 5;
  10. Xx := new double[l];
  11. for i := 0 to l - 1 do
  12. begin
  13. Xx[i] := PABCSystem.Random * diap2 + diap1;
  14. end;
  15. min := Xx[1];
  16. for i := 2 to l - 1 do
  17. begin
  18. if Xx[i] < min then min := Xx[i];
  19. end;
  20. min := Xx[i];
  21. montekarlo := min;
  22. end;
  23.  
  24. 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);
  25.  
  26. function montekarlo(diap1: double; diap2: double): double;
  27. var
  28. i, l: integer;//количество итераций
  29. x: double;
  30. begin
  31. randomize;
  32. l := PABCSystem.Random(7) + 5;
  33. montekarlo := PABCSystem.Random * diap2 + diap1;
  34. for i := 1 to l - 1 do
  35. begin
  36. x := PABCSystem.Random * diap2 + diap1;
  37. if (x < montekarlo)
  38. montekarlo := x;
  39. end;
  40. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement