Правильно расставить скобки в коде

@Magellan_ · Регистрация: 16.04.2011

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

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
Dim A As Variant
Dim A0 As Variant
Dim A1 As Variant
Dim A2 As Variant
Dim A3 As Variant
Dim T1 As Variant
Dim T2 As Variant
Dim T3 As Variant
Dim x As Variant
Dim K As Variant
 
Private Sub Command1_Click()
T1 = 10
T2 = 3
T3 = 1
A0 = T1 * T2 * T3
A1 = T1 * T2 + T2 * T3 + T1 * T3
A2 = T1 + T2 + T3
A3 = 1
x = Array(0, 0.01, 0.05, 0.1, 0.5, 1, 2, 5, 10, 20, 50, 100, 1000, 10000, 1000000)
For i = LBound(x) To UBound(x)
Print "A("; i; ")="; K * Sqr((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 * x(i) ^ 3 - A3 * x(i) ^ 2) / ((A1 * x(i) ^ 2 + A3) ^ 2 + (A2 * x(i) - A0 * x(i) ^ 3) ^ 2)
Next i
End Sub

Вот исходная формула $https://www.cyberforum.ru/cgi-bin/latex.cgi?A(x)=\frac{K\sqrt{({A}_{1}{x}^{2}+{A}_{3})^2+({A}_{0}{x}^{3}-{A}_{3}{x})^2}}{({A}_{1}{x}^{2}+{A}_{3})^2+({A}_{2}x-{A}_{0}{x}^{3)^2}}$
Подскажите пожалуйста как это исправить?!

@Апострофф · 30.11.2011, 21:42

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

PRINT "A("; i; ")="; K * SQR((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 * x(i) ^ 3 - A3 * x(i) ^ 2) ) / ((A1 * x(i) ^ 2 + A3) ^ 2 + (A2 * x(i) - A0 * x(i) ^ 3) ^ 2)

Выделенной скобки не хватает, кажется?

@Magellan_ · 30.11.2011, 21:48 **[ТС]**

Большое спасибо все исправил, но запустив программу выводятся только один нули. Что не так в коде?
Заранее спасибо!!!

@Апострофф · 30.11.2011, 21:54

K не задано!!! Т.е. K=0
И i не объявлено, но это уже мелочи, раз Option Explicit отсутствует (а зря!!!)

@Magellan_ · 30.11.2011, 22:35 **[ТС]**

Подскажите пожалуйста,а как лучше организовать вывод данных в этом случае?

@Linoge · 30.11.2011, 23:53

Скобку не там поправили

Visual Basic
1
2
Print "A("; i; ")="; K * Sqr((A1 * x(i) ^ 2 + A3) ^ 2 + (A0 * x(i) ^ 3 - A3 * x(i)) ^ 2) / _
    ((A1 * x(i) ^ 2 + A3) ^ 2 + (A2 * x(i) - A0 * x(i) ^ 3) ^ 2)

Ввод данных например в текстбокс а вывод в список.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Magellan_ 14 / 14 / 0 Регистрация: 16.04.2011 Сообщений: 236
	30.11.2011, 21:48 [ТС]
	Большое спасибо все исправил, но запустив программу выводятся только один нули. Что не так в коде? Заранее спасибо!!! 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	30.11.2011, 21:54
	K не задано!!! Т.е. K=0 И i не объявлено, но это уже мелочи, раз Option Explicit отсутствует (а зря!!!) 1

@Magellan_ 14 / 14 / 0 Регистрация: 16.04.2011 Сообщений: 236
	30.11.2011, 22:35 [ТС]
	Подскажите пожалуйста,а как лучше организовать вывод данных в этом случае? 0