Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Случайные числа. Функция RND.

В Бейсике есть функция RND, которая выдает случайное число в диапазоне от 0 до 1, например:

 

X=RND

Это означает, что переменной Х присваивается значение случайного числа. Мы это значение не знаем, но оно не может быть больше 1 и меньше 0. Если нам необходимо взять случайное число из произвольного отрезка (А, В), то необходимо сделать следующие преобразования:

 

X=RND*(B-A)+A

А - начало отрезка, В - конец отрезка, B-A - длина отрезка.

Если нам нужно получить целое случайное число из отрезка (А, В), то необходимо записать так:

X=INT(RND*(B-A)+A)

Задание №1.

В прямоугольник (200, 100) – (2600, 1500) случайным образом поместить окружность радиусом 200. Для того, чтобы окружность не вылезала за пределы прямоугольника: X случайно получается из [400, 2400], Y – [300, 1300].

Для проверки работоспособности программы рекомендуем несколько раз нажать кнопку вызова данной процедуры Command1.

 
 

Private Sub Form_Load()

AutoRedraw = True

End Sub

Private Sub Command1_Click()

Cls

Line (200, 100)-(2600, 1500), , B

X = Int(Rnd * 2000 + 400) ‘случайно из отрезка[400, 2400]

Y = Int(Rnd * 1000 + 300) ‘случайно из отрезка[300, 1300]

Circle(X, Y), 200

End Sub

Задание №2.

В прямоугольник (300, 200)-(2400, 1400) поместить случайным образом прямоугольник случайного размера. Минимальный размер100х100.

Координата Х1 должна получиться случайным образом из отрезка [300, 2300], координата Y1 должна получиться случайным образом из отрезка [200, 1300]. На 100 меньше, потому что 100х100 – самый минимальный размер, стороны прямоугольника: B – [100, 2400-X1], A – [100, 1400-Y1].

Private Sub Command2_Click()

Cls

Line (300, 200)-(2400, 1400), , B

X1 = Int(Rnd * 2000 + 300)

Y1 = Int(Rnd * 1100 + 200)

a = Int(Rnd * (1300 - Y1) + 100)

b = Int(Rnd * (2300 - X1) + 100)

Line (X1, Y1)-(X1 + b, Y1 + a), , B

End Sub

Задание №3.

В прямоугольник (100, 100) – (2600, 1500) случайным образом поместить окружность, прямоугольник и треугольник:

а)фиксированные размеры: А=400, В=300, С=500, D=400, R=250;

б) случайные размеры всех фигур.