Найти координаты точек пересечения прямой и окружности - VB

Узнай цену своей работы

Формулировка задачи:

Несколько лаб сдала, а вот оставшиеся никак(((... Помогите плс.. Заранее гигантское спасибо))) 1) на цикл if Найти координаты точек пересечения прямой y=kx+b и окружности радиусом R и с центром в начале координат. В каких координатных четвертях находятся точки пересечения? Если точек пересечения нет или прямая касается окружности выдать соответствующее сообщение. 2) Найти на отрезке [п,р] натуральное число, имеющее наибольшее количество делителей. Пожалуйста, помогите, добрые человеки)))))

Решение задачи: «Найти координаты точек пересечения прямой и окружности»

textual
Листинг программы
Private Sub Command1_Click()
n = 10: p = 100
mx = 1
For i = n To p
k = 1
For j = 2 To i \ 2
If i Mod j = 0 Then k = k + 1
Next
If mx < k Then mx = k
Next
List1.Clear
For i = n To p
k = 1
For j = 2 To i \ 2
If i Mod j = 0 Then k = k + 1
Next j
If mx = k Then
 s = ""
  For j = 2 To i \ 2
    If i Mod j = 0 Then
      s = s & j & " , "
    End If
  Next j
  List1.AddItem i & vbTab & "k=" & mx + 1 & vbTab & s
End If
Next i
End Sub

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы