Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Pro100Ops
0 / 0 / 0
Регистрация: 05.05.2012
Сообщений: 5
#1

Решить уравнение четырьмя способами - VB

02.12.2012, 03:41. Просмотров 709. Ответов 1
Метки нет (Все метки)

Необходимо написать программу для решения уравнения: 2 - х - lnx = 0.
Это уравнение нужно решить 4 способами в 1 проге: 1) Метод половинного деления 2) Метод хорд (линейной аппроксимации) 3)Метод касательных (Ньютона) 4) Метод итераций.
Заранее спасибо!)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 03:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Решить уравнение четырьмя способами (VB):

Решить уравнение - Visual Basic
уравнение вида (cos(x-2)+1-e^2-x)(5-x)

Решить уравнение - Basic
помогите плиз решить ур-е с тотностью 0,001 (Tan(x) - (1 / 3) * ((Tan(x)) ^ 2) + (1 / 5) * ((Tan(x)) ^ 5) - 1 / 3) вот моё Dim x c1...

Решить уравнение - Basic
Привет!!! помогите, пожалуйста, решить задачки в бэйсике, в долгу не останусь! 1 задача Вычисление корня уравнения f(x)=0 методом...

Решить квадратное уравнение - Visual Basic
Решите пожалуйста № 4 на Visual Basic

Решить квадратное уравнение - Visual Basic
ПОМОГИТЕ ПОЖАЛУЙСТА))))) СПС ЗАРАНЕЕ

Решить квадратное уравнение - Basic
Ребята, помогите пожалуйста решить контрольную на языке Турбо Бейсик: 1. Вычислить сумму нечетных элементов натурального ряда...

1
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
03.12.2012, 14:18 #2
Только на VBA.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Private Sub CommandButton1_Click()
'деление пополам
Dim a!, b!
 
a = 0.001: b = 10
 
Do While Abs(b - a) > 0.000001
 
f1 = f(a)
f2 = f(b)
f3 = f((a + b) / 2)
 
If (f1 > 0 And f3 > 0) Or (f1 < 0 And f3 < 0) Then
a = a / 2 + b / 2
Else
b = a / 2 + b / 2
End If
DoEvents
Loop
 
 
MsgBox a / 2 + b / 2
MsgBox (f(a / 2 + b / 2))
End Sub
 
Function f(x As Single) As Single
 f = 2 - x - Log(x)
End Function
 
Private Sub CommandButton2_Click()
'метод хорд
Dim a!, b!, c!
 
a = 0.001: b = 10
 
 
Do While Abs(b - a) > 0.000001
 
c = b - f(b) * (b - a) / (f(b) - f(a))
a = b
b = c
DoEvents
Loop
 
 
MsgBox a / 2 + b / 2
MsgBox (f(a / 2 + b / 2))
End Sub
 
Private Sub CommandButton3_Click()
'метод ньютона
 
Dim a!
a = 1
Do While Abs(f(a)) > 0.000001
a = a - f(a) / (-1 - 1 / a)
DoEvents
Loop
 
MsgBox a
MsgBox f(a)
End Sub
 
Private Sub CommandButton4_Click()
'метод итераций
Dim a!, b!, c!
 
a = 1
b = 2 - Log(a)
 
Do While Abs(b - a) > 0.000001
 
c = 2 - Log(b)
a = b
b = c
DoEvents
 
Loop
 
MsgBox a / 2 + b / 2
MsgBox (f(a / 2 + b / 2))
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2012, 14:18
Привет! Вот еще темы с ответами:

Решить квадратное уравнение - Visual Basic
очень прошу!!!!Решить любое квадратное уравнение

Решить уравнение графическим методом - Visual Basic
Решить уравнение графическим методом y= -3x^2+5,2

Решить уравнение графическим методом - Visual Basic
привет...У мя тут 2 задачки помогите срочно!!! Составить программу, решающую графически уравнение sin(x)=cos(x). На интервале от – пи до...

Решить нелинейное уравнение и построить график - Visual Basic
Доброго времени суток уважаемые форумчане. Есть такое задание: Решить нелинейное уравнение и построить график Ln(x)-x+1.8=0 . VB знаю не...


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

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

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