как записать формулу на 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 минуты
спасибо всем кто помог, всё заработало!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте 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 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

	как записать формулу на vb ? (убедительная просьба: пожалуйста с кодом ) 12.03.2017, 18:03. Показов 7254. Ответов 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