Задать произвольные координаты центров x(i), y(i) и радиусов r(i) для n окружностей - VB

  1. Имеются две точки с координатами (a,b) и (c,d). Задать произвольные координаты центров x(i),y(i) и радиусов r(i) для n окружностей. Определить, сколько из них содержат обе точки. Примечание: обе точки лежат в круге, если (x(i)-a)2+(y(i)-b)2 < r(i)2 и (x(i)-c)2+(y(i)-d)2 < r(i)2. Нужно написать программу(построить график) с 2 подпрограммами.Мне легче на С++ написать это чем на basic.Нужна помощь ребят.


textual

Код к задаче: «Задать произвольные координаты центров x(i), y(i) и радиусов r(i) для n окружностей - VB»

Private Sub Command1_Click()
Dim x() As Integer, y() As Integer, r() As Integer
Dim i As Integer, kol As Integer, n As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer
Me.ScaleMode = 3: Me.DrawWidth = 5: Me.ForeColor = vbRed
n = InputBox("Введите количество окружностей", "", 3)
ReDim x(1 To n), y(1 To n), r(1 To n)
 
a = InputBox("Введите координату Х первой точки", "", 200)
b = InputBox("Введите координату У первой точки", "", 200)
c = InputBox("Введите координату Х второй точки", "", 120)
d = InputBox("Введите координату У второй точки", "", 150)
PSet (a, b): PSet (c, d)
 
 For i = 1 To n
    x(i) = InputBox("Введите координату  Х  " & i & "-й окружности", "", 120 * i)
    y(i) = InputBox("Введите координату  У  " & i & "-й окружности", "", 180 / i)
    r(i) = InputBox("Введите радиус " & i & "-й окружности", "", 50 * i * 2)
        If (x(i) - a) ^ 2 + (y(i) - b) ^ 2 < r(i) ^ 2 And _
           (x(i) - c) ^ 2 + (y(i) - d) ^ 2 < r(i) ^ 2 Then
           kol = kol + 1
        End If
        Circle (x(i), y(i)), r(i), vbBlue
  Next
  
MsgBox "Число окружностей содержащих обе точки равно  " & kol, vbExclamation
End Sub

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.333 из 5



Похожие ответы
  1. возможно ли задать несколько условий в операторе if например: if усл.1 или усл.2 или усл.3.... или усл.N then?

  1. Подскажите пожалуйста как в RichTextBox задать текст в ртф формате по своему (с нуля, начиная с заголовка)? Дело в том, что я задаю текст в свойство TextRTF, но оно не задает заголовок и другие опции: Вот ртф, который я задаю:

  1. Здравствуйте! Не подскажете как активной ячейке задать значение именно на языке Visual Basic? В этом куске программа ругается на строчку

  1. Мне из подпрограммы нужно получить строковое значение в массиве и запихнуть его в строковую переменную, толком не разобрался в чем дело, пишет, что имя аргумента задано неверно

  1. Вот возьмем консольный WinRar, к примеру. rar.exe Код возвратаОписание0Операция успешно завершена. 1Предупреждение. Произошли некритические ошибки. 2Произошла критическая ошибка. 3Неверная контрольная сумма CRC32. Данные повреждены. 4Предпринята попытка изменить заблокированный архив. 5Произошла ошибка записи на диск. 6Произошла ошибка открытия файла. 7Ошибка при указании параметра в командной строке. 8Недостаточно памяти для выполнения операции. 9Ошибка при создании файла. 10Нет файлов, удовлетворяющих указанной маске, и параметров. 255Операция была прервана пользователем. После завершения операции, код возврата можно получить через Shell:BashEcho %errorlevel%А как задать свои коды в своей программе?

  1. Ребята подскажите как задать условия для комбо, вопрос в том, что-бы в комбо при выборе значение из списка определялся тем что, если сегодня день недели суббота или воскресения тогда msgbox, поясню с другого варианта есть комбо, в нем находится список: 9:00-18:00 9:00-16:00 допустим сегодня суббота или воскресение, а в комбо выбранно 9:00-18:00 тогда и выводи сообщение

  1. Здравствуйте форумчане, помогите задать правильно условия для SpinButton, а именно: если кликая SpinButton_SpinUp доходит до конца даты месяца, то начинать следует с начало. как то так! Заранее благодарен за ответ!

  1. Здравствуйте, неполучается открыть файл на прямую, пытаюсь открыть так:

  1. Ребят, помогите пожалуйста, в VB ноль, а задачку надо решить, как задать алгоритм, что бы при нажатии кнопки в текстовом окне появлялась дата в формате 12/июня/2013(дата текущая) и текущее время. Заранее спасибо!!!

  1. Доброго времени суток всем. Хотел попросить помощи в разрешении следующей задачи. Ниже привожу код: