Дописать программу решения заданного уравнения

@quaker94 · Регистрация: 17.06.2012

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

Написал программу которая по сути должна находить корень из заданного уравнения,но так получилось что программа не находит корни ни с отрицательными степенями,ни с положительными.Помогите добить ее до ума

Походу там нужно только написать другое условие выхода из цикла и все,но как я не понимаю(

Скрипт · 07.01.2013, 12:18

Visual Basic

Sub Procedure_1()
 
    Dim myResult As Double
    
    'Два умножаем на три, которая возводится в пятую степень.
    myResult = 2 * 3 ^ 5
    
    MsgBox myResult
    
End Sub

@quaker94 · 07.01.2013, 14:07 **[ТС]**

Сообщение от Скрипт

Visual Basic

Sub Procedure_1()
 
    Dim myResult As Double
    
    'Два умножаем на три, которая возводится в пятую степень.
    myResult = 2 * 3 ^ 5
    
    MsgBox myResult
    
End Sub

ее отдельно прописать или же можно строку "myResult = 2 * 3 ^ 5" вставить в основной код(но тогда куда)?

Скрипт · 07.01.2013, 14:14

quaker94, выпишите из вашей программы код, с которым у вас вопрос, и выложите этот код сюда.
У вас большая программа и не каждый захочет вникать в эту программу.

Я просто привёл пример, как в VBA возводятся числа в степень.

@quaker94 · 07.01.2013, 14:49 **[ТС]**

Сообщение от Скрипт

quaker94, выпишите из вашей программы код, с которым у вас вопрос, и выложите этот код сюда.
У вас большая программа и не каждый захочет вникать в эту программу.

Я просто привёл пример, как в VBA возводятся числа в степень.

Кажется проблема в этом

PureBasic

Do
'сам процесс вычисления
k = (na + nb) / 2
f = a * x ^ n + b * x ^ (n1) + c * x ^ (n2) + d * x ^ (n3)
'проверка знака полученного значения
If Abs(nb - na) <= e Then nb = k Else na = k
'условие выхода из цикла
Loop Until Abs(nb - na) <= e
k = Math.Round(k, r)
'вывод полученного значения
Label18 = k
End Sub

Если ничего не менять то программа выдаст число введенного пользователем конца отрезка(т.е. в коде это nb).Нужно чтобы программа находила корень.Вот я и бьюсь уже 4тый день над этим

Скрипт · 07.01.2013, 15:24

quaker94, в книге из сообщения #1 две формы. С какой формой проблемы?

@quaker94 · 07.01.2013, 15:41 **[ТС]**

Сообщение от Скрипт

quaker94, в книге из сообщения #1 две формы. С какой формой проблемы?

со второй

Скрипт · 07.01.2013, 16:25

quaker94, напишите словесное описание задания, напишите формулу по которой решается ваше задание.
На время написания кода не используйте TextBoxы, а помещайте числа прямо в коде.
Выложите свой код и поясните, что не получается.

@quaker94 · 07.01.2013, 16:51 **[ТС]**

Сообщение от Скрипт

quaker94, напишите словесное описание задания, напишите формулу по которой решается ваше задание.
На время написания кода не используйте TextBoxы, а помещайте числа прямо в коде.
Выложите свой код и поясните, что не получается.

Задание.Пользователь вводит числа в отведенных ему местах(TextBox).При нажатии показать уравнение выводит записанное им уравнение ниже.После того как пользователь далее ввел начало и конец отрезка,а также точность и число после запятой при нажатии Найти корень автоматически высчитывается корень заданного им уравнения.
Примечания:Корень должен высчитываться как с отрицательными так и с положительными степенями;
Корень высчитывать либо комбинированным методом(хорд и касательных) либо методом бисекции

На счет остального-пока в процессе

@quaker94 · 07.01.2013, 18:21 **[ТС]**

Потрепав мозги, исчерпывая все свои навыки работы с VBA я все таки добил сам свою программу и пожалуй, она теперь высчитывает корень даже с отрицательными степенями,правда методом бисекции,но все же

Вот если нужно,выложил готовую(ну или почти готовую) версию в 2х формах внутри(1ая-образец,2ая-основная):

@quaker94 · 07.01.2013, 18:35 **[ТС]**

Сообщение от quaker94

Потрепав мозги, исчерпывая все свои навыки работы с VBA я все таки добил сам свою программу и пожалуй, она теперь высчитывает корень даже с отрицательными степенями,правда методом бисекции,но все же

Вот если нужно,выложил готовую(ну или почти готовую) версию в 2х формах внутри(1ая-образец,2ая-основная):

исправил ошибку в построении графика,выкладываю версию 0.2 (предыдущую не качайте)

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	07.01.2013, 14:14	4
	quaker94, выпишите из вашей программы код, с которым у вас вопрос, и выложите этот код сюда. У вас большая программа и не каждый захочет вникать в эту программу. Я просто привёл пример, как в VBA возводятся числа в степень. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	07.01.2013, 15:24	6
	quaker94, в книге из сообщения #1 две формы. С какой формой проблемы? 0

@quaker94 0 / 0 / 0 Регистрация: 17.06.2012 Сообщений: 9
	07.01.2013, 15:41 [ТС]	7
	Сообщение от Скрипт quaker94, в книге из сообщения #1 две формы. С какой формой проблемы? со второй 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	07.01.2013, 16:25	8
	quaker94, напишите словесное описание задания, напишите формулу по которой решается ваше задание. На время написания кода не используйте TextBoxы, а помещайте числа прямо в коде. Выложите свой код и поясните, что не получается. 0

@quaker94 0 / 0 / 0 Регистрация: 17.06.2012 Сообщений: 9
	07.01.2013, 16:51 [ТС]	9
	Сообщение от Скрипт quaker94, напишите словесное описание задания, напишите формулу по которой решается ваше задание. На время написания кода не используйте TextBoxы, а помещайте числа прямо в коде. Выложите свой код и поясните, что не получается. Задание.Пользователь вводит числа в отведенных ему местах(TextBox).При нажатии показать уравнение выводит записанное им уравнение ниже.После того как пользователь далее ввел начало и конец отрезка,а также точность и число после запятой при нажатии Найти корень автоматически высчитывается корень заданного им уравнения. Примечания:Корень должен высчитываться как с отрицательными так и с положительными степенями; Корень высчитывать либо комбинированным методом(хорд и касательных) либо методом бисекции На счет остального-пока в процессе 0

	07.01.2013, 18:35