Найти координаты точек пересечения прямой и окружности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д