Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > VB 6.0 Задачи помогите найти ошибки

Автор: Wolver 1.4.2006, 20:12

Доброго времени суток!И с праздником первого апреля smile

Посмотрите пожалуйста мой код программы для следующего задания:
exp = 1+1/1!+1/2!+1/3!......

Код


Private Sub Command1_Click()
sl = 1: i = 0:  F = 1
eps = Val(InputBox("EPS=", "проверка", "проверка"))
Do While Abs(sl) > eps
i = i + 1
F = F * i
sl = 1 / F
s = s + sl
Loop
If eps = 0.0001 Then
Text3.Text = (Format(s, "###0.0000"))
Else
Text3.Text = (Format(s, "###0.00"))
End If
End Sub

И если несложно напишите примерно как решить следующий пример методом половинного деления:
8x^2-12x+5=0 на интервале [-1;1]
Зарание огромное спассибо.

Автор: Wolver 2.4.2006, 10:43

Ребята ну что никто не может мне помочь? Особенно с методом половинного деления?

Автор: Wolver 2.4.2006, 11:25

Нашел ошибку в коде первого задания. Если кому надо вот код программы.

Код


Private Sub Command1_Click()
sl = 1: i = 0:  F = 1: s = 1
eps = Val(InputBox("EPS=", "Проверка", "Проверка"))
Do While Abs(sl) > eps
i = i + 1
F = F * i
sl = 1 / F
s = s + sl
Loop
If eps = 0.0001 Then
Text3.Text = (Format(s, "###0.0000"))
Else
Text3.Text = (Format(s, "###0.00"))
End If
End Sub

Пошел разбиратся с методом половинного деления.

Автор: Wolver 2.4.2006, 19:44

Так я ничего и не понял как им решить....Если кто знает как решить квадратное уравнение методом половинного деления напишите пожалуйста.