Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
1

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

12.03.2017, 18:03. Показов 3542. Ответов 14
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2017, 18:03
Ответы с готовыми решениями:

Как записать формулу кодом Дельфи?
https://www.cyberforum.ru/attachment.php?attachmentid=362343&stc=1&d=1391522106 Как ее можно...

Как записать формулу программным кодом
Подскажите пожалуйста как правильно записать эти формулы на C# Первую так написал: z1 =...

Убедительная просьба помочь...
Ув. программисты, помогите нубу в Borland C, пожалуйста!.. Есть 2 задания, не могу никак...

народ убедительная просьба
помогите написать программу на учебном ассемблере(с использованием машынных кодов) Известно, что...

14
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.03.2017, 19:08 2
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
0
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
12.03.2017, 19:22  [ТС] 3
Решение уравнения
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.03.2017, 20:23 4
Дано
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
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
12.03.2017, 22:15  [ТС] 5
А как это записать в vb ?
0
103 / 63 / 10
Регистрация: 13.02.2017
Сообщений: 178
12.03.2017, 23:27 6
Canno, для программы нужно знать, до какого максимума можно перебирать Х в поиске решения.
0
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
13.03.2017, 06:12  [ТС] 7
от 500 до 2000
0
141 / 119 / 29
Регистрация: 12.02.2017
Сообщений: 308
13.03.2017, 07:33 8
Echs - за конкретный ответ.
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.03.2017, 09:25 9
Поставьте на форму кнопку с именем 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
0
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
13.03.2017, 10:18  [ТС] 10
в 12 строчке, что за ABS?

Добавлено через 10 минут
в 8 строчке, что за CLS?
0
103 / 63 / 10
Регистрация: 13.02.2017
Сообщений: 178
13.03.2017, 10:28 11
Вот так сойдет
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
1
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.03.2017, 10:46 12
Sur_L
Вы меня извините, НО у вас в строке 4 сравниваются на
равенство вещественные числа. Может это и пройдет
сейчас. Только у вас будут случаи, когда это не пройдет.
И вы будете ломать голову над тем, что не правильно в
программе. ВЕЩЕСТВЕННЫЕ ЧИСЛА НЕЛЬЗЯ СРАВНИВАТЬ
НА РАВЕНСТВО.

Canno
ABS() = Abs() - функция (модуль |x|)
CLS - Cls - оператор очистки экрана (текста, изображения)
1
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
13.03.2017, 20:31  [ТС] 13
у меня выдает 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
es geht mir gut
11484 / 4716 / 1180
Регистрация: 27.07.2011
Сообщений: 11,433
13.03.2017, 20:41 14
Лучший ответ Сообщение было отмечено Canno как решение

Решение

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

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

И вообще, на чем Вы пишите?
0
0 / 0 / 0
Регистрация: 13.02.2017
Сообщений: 29
13.03.2017, 20:59  [ТС] 15
в смысле на чем я пишу ? VB(visual studio )

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

Добавлено через 2 минуты
спасибо всем кто помог, всё заработало!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2017, 20:59

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Убедительная просьба помочь в подключении.
Здравствуйте у меня проблема, дома два ноутбука и один кабель интернета (провайдер Beeline), хочу...

Как правильно записать формулу подскажите,пожалуйста!
s(x) sm:=0; t:=1; for k:=1 to n do begin t:=t*ln(3)*x/k; sm:=sm+t;//Вычисляем сумму s(x)...

Как записать формулу для построения графика, пожалуйста
:help: Помогите разобраться с формулой: z=cos(2ПиX)sin^2(ПиX)-cos(4ПиX) Уже вообще ничего не...

Как кодом описать формулу?
Здравствуйте, помогите пожалуйста написать программу для формулы Z=(G1-G2)/2, при этом, значения G1...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.