Нужна помошь с написанием программы (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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

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

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

Опции темы