Лабораторная работа: Моделирование датчиков случайных чисел с заданным законом распределения

Picture2.Print ("5")

Picture2.PSet (4, -0.3)

Picture2.Print ("0.4")

Picture2.PSet (7, -0.3)

Picture2.Print ("0.7")

Picture2.PSet (10, -0.3)

Picture2.Print ("1")

For i = 4 To 10 Step 0.001

If i < 7 Then

l = 2

Else

l = i - 5

End If

Picture2.PSet (i, l), vbRed

Next i

Picture2.Line (4, 0)-(4, 2), vbRed

Picture2.Line (10, 5)-(10, 11), vbRed

End Sub