как записать формулу на vb ? (убедительная просьба: пожалуйста с кодом )

@Canno · Регистрация: 13.02.2017

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

формула: $https://www.cyberforum.ru/cgi-bin/latex.cgi?x-\sqrt{{x}^{2}-160000}-100=0$

echs · 12.03.2017, 19:08

Canno
У вас задано уравнение. Вам нужна просто формула?
Или решение уравнения?

Добавлено через 10 минут

Visual Basic
1
2
3
4
5
Private Function f(x As Single) As Single
   If Abs(x) >= 400 Then
      f = x - Sqr(x ^ 2 - 160000) - 100
   End If
End Function

@Canno · 12.03.2017, 19:22 **[ТС]**

Решение уравнения

echs · 12.03.2017, 20:23

Дано
$https://www.cyberforum.ru/cgi-bin/latex.cgi?x -\sqrt{x^2-160000}-100=0$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x-100=\sqrt{x^2-160000}$ ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?x\ge100$ )

$https://www.cyberforum.ru/cgi-bin/latex.cgi?(x-100)^2=x^2-160000$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x^2-200x+10000=x^2-160000$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?-200x+10000=-160000$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?200x=170000$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?x=850$

@Canno · 12.03.2017, 22:15 **[ТС]**

А как это записать в vb ?

@Sur_L · 12.03.2017, 23:27

Canno, для программы нужно знать, до какого максимума можно перебирать Х в поиске решения.

@Canno · 13.03.2017, 06:12 **[ТС]**

от 500 до 2000

@Homarty · 13.03.2017, 07:33

Echs - за конкретный ответ.

echs · 13.03.2017, 09:25

Поставьте на форму кнопку с именем cmd1.
Ответ программа распечатает прямо на форме.

примечание
В цикле используется неравенство, так как
вещественные числа нельзя сравнивать на равенство.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmd1_Click()
REM
REM  x = 850
REM
 
Dim x As Single
 
CLS
Const eps = 0.0001
 
FOR x = 500 TO 2000
   IF ABS(f(x)) < eps THEN PRINT x
NEXT
End Sub
 
FUNCTION f (x As Single) As Single
   IF x >= 400 THEN
      f = x - SQR(x ^ 2 - 160000) - 100
   END IF
END FUNCTION

@Canno · 13.03.2017, 10:18 **[ТС]**

в 12 строчке, что за ABS?

Добавлено через 10 минут
в 8 строчке, что за CLS?

@Sur_L · 13.03.2017, 10:28

Вот так сойдет

Visual Basic
1
2
3
4
5
6
Private Sub Command1_Click()
Dim x As Long
For x = 500 To 2000
If x - Sqr(x ^ 2 - 160000) - 100 = 0 Then Debug.Print x
Next x
End Sub

echs · 13.03.2017, 10:46

Sur_L
Вы меня извините, НО у вас в строке 4 сравниваются на
равенство вещественные числа. Может это и пройдет
сейчас. Только у вас будут случаи, когда это не пройдет.
И вы будете ломать голову над тем, что не правильно в
программе. ВЕЩЕСТВЕННЫЕ ЧИСЛА НЕЛЬЗЯ СРАВНИВАТЬ
НА РАВЕНСТВО.

Canno
ABS() = Abs() - функция (модуль |x|)
CLS - Cls - оператор очистки экрана (текста, изображения)

@Canno · 13.03.2017, 20:31 **[ТС]**

у меня выдает 2 ошибки и отказывается запускаться!
Ошибки: Error 1 'cls' is not declared. It may be inaccessible due to its protection level.
Error 2 'abs' is not declared. It may be inaccessible due to its protection level.
как можно их исправить ?

SoftIce · 13.03.2017, 20:41

А на Print и Sqr не ругается?

Добавлено через 4 минуты
Cls можно убрать
Вместо Abs Math.Abs
Вместо Sqr Math.Sqrt
Вместо Print Msgbox

И вообще, на чем Вы пишите?

@Canno · 13.03.2017, 20:59 **[ТС]**

в смысле на чем я пишу ? VB(visual studio )

Добавлено через 2 минуты
ругается !

Добавлено через 2 минуты
спасибо всем кто помог, всё заработало!

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30

	как записать формулу на vb ? (убедительная просьба: пожалуйста с кодом ) 12.03.2017, 18:03. Показов 7202. Ответов 14 Метки нет (Все метки) формула: $https://www.cyberforum.ru/cgi-bin/latex.cgi?x-\sqrt{{x}^{2}-160000}-100=0$ 0

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	12.03.2017, 19:22 [ТС]
	Решение уравнения 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	12.03.2017, 20:23
	Дано $https://www.cyberforum.ru/cgi-bin/latex.cgi?x -\sqrt{x^2-160000}-100=0$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?x-100=\sqrt{x^2-160000}$ ( $https://www.cyberforum.ru/cgi-bin/latex.cgi?x\ge100$ ) $https://www.cyberforum.ru/cgi-bin/latex.cgi?(x-100)^2=x^2-160000$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?x^2-200x+10000=x^2-160000$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?-200x+10000=-160000$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?200x=170000$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?x=850$ 1

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	12.03.2017, 22:15 [ТС]
	А как это записать в vb ? 0

@Sur_L 103 / 63 / 10 Регистрация: 13.02.2017 Сообщений: 178
	12.03.2017, 23:27
	Canno, для программы нужно знать, до какого максимума можно перебирать Х в поиске решения. 0

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	13.03.2017, 06:12 [ТС]
	от 500 до 2000 0

@Homarty 141 / 119 / 29 Регистрация: 12.02.2017 Сообщений: 308
	13.03.2017, 07:33
	Echs - за конкретный ответ. 0

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	13.03.2017, 10:18 [ТС]
	в 12 строчке, что за ABS? Добавлено через 10 минут в 8 строчке, что за CLS? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	13.03.2017, 10:46
	Sur_L Вы меня извините, НО у вас в строке 4 сравниваются на равенство вещественные числа. Может это и пройдет сейчас. Только у вас будут случаи, когда это не пройдет. И вы будете ломать голову над тем, что не правильно в программе. ВЕЩЕСТВЕННЫЕ ЧИСЛА НЕЛЬЗЯ СРАВНИВАТЬ НА РАВЕНСТВО. Canno ABS() = Abs() - функция (модуль \|x\|) CLS - Cls - оператор очистки экрана (текста, изображения) 1

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	13.03.2017, 20:31 [ТС]
	у меня выдает 2 ошибки и отказывается запускаться! Ошибки: Error 1 'cls' is not declared. It may be inaccessible due to its protection level. Error 2 'abs' is not declared. It may be inaccessible due to its protection level. как можно их исправить ? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	13.03.2017, 20:41
	Сообщение было отмечено Canno как решение Решение А на Print и Sqr не ругается? Добавлено через 4 минуты Cls можно убрать Вместо Abs Math.Abs Вместо Sqr Math.Sqrt Вместо Print Msgbox И вообще, на чем Вы пишите? 0

@Canno 0 / 0 / 0 Регистрация: 13.02.2017 Сообщений: 30
	13.03.2017, 20:59 [ТС]
	в смысле на чем я пишу ? VB(visual studio ) Добавлено через 2 минуты ругается ! Добавлено через 2 минуты спасибо всем кто помог, всё заработало! 0