Нужна помошь с написанием программы (VB)

@CommanderJimbo · Регистрация: 11.01.2014

Студворк — интернет-сервис помощи студентам

Очень долго пытаюсь решить одну задачу. Пока результат не радует( Я в отчаянии. Пожалуйста помогите с решением следующей задачи:
"В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить кольцо с центром в начале координат, которое содержит все точки."

Вот мои наработки по ней:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim a() As Integer, i As Integer, n As Integer, str As String, max As Integer, min As Integer, _
r As Single
 
n = InputBox("Введите количество точек ")
r = 1
min = 999
max = -999
 
n = 2 * n
 
ReDim a(1 To n) As Integer
 
str = " "
For i = 1 To n
a(i) = Int(10 * Rnd + 1) + Int(-10 * Rnd + 1)
str = str & a(i) & " "
Next i
MsgBox ("Исходный массив с координатами : " & str)
 
 
For i = 1 To n Step 2
 
r = Sqr(a(i) ^ 2 + a(i + 1) ^ 2)
 
 
If r > max Then
r = max
End If
 
If r < min Then
r = min
End If
 
Next i
MsgBox ("Внешний радиус кольца: " & min & "Внутренний радиус кольца: " & min)

@Catstail · 11.01.2014, 22:42

С виду не больно симпатично, но в целом верно. Что не радует?
А max и min определи как single

@Антихакер32 · 11.01.2014, 22:48

Сообщение от CommanderJimbo

str = " "

str - это вообщето зарегестрированная процедура, поменял бы имя...

и перед rnd поставь Randomize timer

Добавлено через 2 минуты
пользуюся тегами..
там есть в окне редактора сообщений значек VB
а то без подсветки тяжело всматриваться

@CommanderJimbo · 11.01.2014, 22:50 **[ТС]**

Сообщение от Catstail

С виду не больно симпатично, но в целом верно. Что не радует?
А max и min определи как single

За симпотичностью пока не гонюсь. Все бы хорошо, да не работает эта прога (наверно я ошибки допустил какие-то, но сам найти их не в состоянии). В конце выводит изначально заданные значения max и min. Была мысль, что зря задавал шаг, но стоит мне убрать "Step 2" и программа перестает работать вовсе. Помогите пожалуйста.

@Alex77755 · 11.01.2014, 23:01

Ошибок 3
r = max должно быть наоборот
r = min должно быть наоборот

Добавлено через 58 секунд
В сообщении выводится только минимум
Попробуй так:

Visual Basic
1
 MsgBox ("Внешний радиус кольца: " & max & vbCrLf & "Внутренний радиус кольца: " & min)

Добавлено через 5 минут
И ущё одна "ошибка": код надо оформлять тегами

@CommanderJimbo · 11.01.2014, 23:30 **[ТС]**

Про теги учту. Спасибо, перенос помог! Всем остальным тоже спасибо за то, что уделили внимание.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@Catstail Супер-модератор 38197 / 21130 / 4309 Регистрация: 12.02.2012 Сообщений: 34,738 Записей в блоге: 14
	11.01.2014, 22:42
	С виду не больно симпатично, но в целом верно. Что не радует? А max и min определи как single 0

@CommanderJimbo 0 / 0 / 0 Регистрация: 11.01.2014 Сообщений: 3
	11.01.2014, 23:30 [ТС]
	Про теги учту. Спасибо, перенос помог! Всем остальным тоже спасибо за то, что уделили внимание. 0